一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

) Y3 e% U9 S. S: Q. T# S

最近好象又开始流行播放器里插木马了，我于是在网上转了转，看有没有什么好东西能预防的．

% x! f8 V3 ~/ D# K* D d1 e8 T

结果在安天CERT小组 看到了这个：

软件名称：exe2swf & I$ b: B( e( Z8 G; E8 R$ ~' T适用系统：WIN 9x/ME/2000/NT f$ ]4 ^8 r* j5 p! Q! v( C文件大小：11K 3 S: c* K: w8 `, B0 h8 r! G文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

% Z1 q9 p' d. X

下载：http://soft.hackbase.com/37/20050319/6389.html

哈，但是还有还想不到的呢，我找到了一段可以实验这个功能的代码

( N' _% m9 R. ~" m

作者：海娃

用法：

9 }% L7 `4 P; j U \
1. 将下面代码存为 exe2swf.vbs ) J& R0 R% t d4 {& H- I4 @6 y: d
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

1 G1 ]: V) W( P3 w'haiwa@http://www.51windows.Net ) R% F, q( ^& j+ z'感谢jimbob提供帮助. ' Q- S0 F* O6 Zdim AsoR,FlashFileName 1 k0 V* q! L" X9 f mSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 9 t P- m: u. a( t1 f& N8 CFlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 , L c [8 m9 s' b( `* sAsoR.Type=1 : M( `4 b# }. L8 Q% Z) KAsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 # v$ g$ [* q) v/ n9 c" G! vAsoW.Open 4 U& O% r/ P/ KAsoR.LoadFromFile(FlashFileName)

I6 ?9 v8 Z) }$ ?* T( w

OKed = true dim filesize filesize = AsoR.size

4 n" i$ {4 C( u3 |% l' z- ]" n# ~

if filesize>ositionStart then ' L& L' _- i8 i6 _0 u- r/ m3 t7 w while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) 1 _! W) E2 F3 R4 |2 O if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 # F$ i! y% ~) F" S& B else PositionStart = PositionStart + 20 + T5 u. a& r, i$ R3 ` end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false 8 y, R. \- q3 y' h' m- H7 I end if 'if PositionStart > filesize then ' OKed = false 'end if wend else 5 k- g- R+ k( e8 u. p' d. J msgbox "文件错误" end if PositionStart = PositionStart + 16 3 ~& a( ~5 @ w8 n3 s! G! L'msgbox PositionStart + d* z: p) W1 s9 ^3 B: Z7 fAsoR.Position = PositionStart - ]: J3 z- Y8 D6 _: j: |4 R; ]2 zAsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

+ g+ O# Z: V# j+ }& T

'新文件名 ( G8 b) |# d4 q# l& c) c, hdim newFileName 2 v6 M1 C$ g" i D+ A'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" X6 Y1 C3 x" unewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") % P5 Q, A! X% `% X: F' }If (fso.FileExists(newFileName)) Then # N& m$ A5 E% n* A overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") 1 R# R# g$ u0 ]' e; l if overwrite=6 then 9 o. {% k& ~& C/ e' t1 p9 T. g3 o% Y AsoW.SaveToFile newFileName, 2 & A# A3 L6 b- W" U6 O else 4 U, n9 p: q) |7 E$ Y msgbox "操作被取消",0,"exe2swf脚本" end if 3 n+ e, i7 Y) r8 w9 E' k/ Yelse AsoW.SaveToFile newFileName, 1 : {& S; N* r* a( j3 @end if

AsoR.close 6 B& W, P/ L: H* Wset AsoR=nothing AsoW.close 3 I! j. u& [. {- T3 j: }, t+ D% o& Iset AsoW=nothing

; \4 {0 O$ z+ t# {0 Y

Function Bin2Str(Bin) Dim I, Str # X% E: v5 n* d4 N! z4 T! r" V/ O For I=1 to LenB(Bin) $ ]; _, L6 I6 l5 }* P clow=MidB(Bin,I,1) if ASCB(clow)<128 then Str = Str & (ASCB(clow)) else , T, A/ M) p8 a3 k# I T; G: R9 ]. a I=I+1 if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if 9 i$ a( V9 r& f2 }3 B Next ; b: u H3 H- N- |# |0 J" ]& a3 C Bin2Str = Str 1 m; K0 t/ S5 ?/ h# k& jEnd Function

+ m$ L9 K/ \ ^2 z

540982016044

从哪里开始啊，麻烦给个分割线吧，谢谢

小旋风假

是呀，分不清呀…………………………

413009449

不知道有什么用

lynli