一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

9 F. j) y2 q+ x/ {8 v2 B

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

. ~3 j6 d) ~& n* [" K# ]

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

3 B$ Z# f$ F0 Q! a4 Q$ z9 y5 d* t

软件名称：exe2swf a/ N' T( t. _. F, O- F适用系统：WIN 9x/ME/2000/NT 文件大小：11K 文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

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

3 \) X+ m* t* R3 z

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

作者：海娃

* m2 p( I3 g+ [3 n

用法：

3 d' a1 N% t( J7 T; F
1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

0 g3 h1 N* s4 c- h

1 E* W' s m0 I* L/ r; r'haiwa@http://www.51windows.Net 2 ^2 d9 S. W( J G2 U9 K. D# X'感谢jimbob提供帮助. dim AsoR,FlashFileName $ X& m4 ~1 l4 {& j, R2 e% SSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize ( {7 ~! c. ?0 U, pPositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 8 ]/ K4 W$ Y. j/ [: @FlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") + F6 q2 H! H3 S. T7 b& q% \0 wAsoR.Mode=3 * n2 Q% i' g5 A- aAsoR.Type=1 5 M! I# p* _7 I$ |5 XAsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 $ x( C2 h0 \9 I; pAsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)

OKed = true dim filesize & X5 ?% }4 K5 h( ^2 h8 afilesize = AsoR.size

9 _7 e( ? f7 ~9 R/ p/ T+ s& r8 @

if filesize>ositionStart then while OKed - h5 O2 f* A1 t' V4 G AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 1 k5 C8 N* V1 [. k$ W else - u, I4 X4 x8 t' s3 n PositionStart = PositionStart + 20 end if " @+ L0 E- n" h. S r6 z4 Z& a if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if $ Q. ~, W* o1 G" \8 c. } 'if PositionStart > filesize then ' OKed = false ! ^" D+ e2 T( u. K g9 o @2 B 'end if wend else ; J4 z, c) }2 [) P( W msgbox "文件错误" end if PositionStart = PositionStart + 16 * V3 q4 i" k4 Y" r'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

& m) a! u& _. q( J v/ B( ?- B

'新文件名 dim newFileName 2 q, e6 ~$ p8 _5 M'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" 8 y3 D/ A. e. k, p* G) l: S' J2 knewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") / _4 ~ d8 W# U7 w& g' CIf (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 % N+ T, m- g1 }) }! }0 i else msgbox "操作被取消",0,"exe2swf脚本" end if else AsoW.SaveToFile newFileName, 1 E1 ]/ Y. O5 @5 I7 nend if

8 g6 ?; X8 p% C* T

AsoR.close 2 [; W& I) c( Wset AsoR=nothing s7 S" o/ D% _ h3 VAsoW.close set AsoW=nothing

Function Bin2Str(Bin) Dim I, Str For I=1 to LenB(Bin) clow=MidB(Bin,I,1) 0 v* N( D7 P- S4 e if ASCB(clow)<128 then ) f3 R9 R1 w; C' A& P1 k, ~2 u- C! b+ u Str = Str & (ASCB(clow)) / `7 r- ~) B/ b2 ~7 R! ` else I=I+1 # c( p- M: x( }) `* p @ if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if Next # a' Y) D) [3 I, \" C( c3 [ Bin2Str = Str End Function

7 [4 \* O' j6 A7 w! w- F0 ]: P

8 ]/ f5 K, B2 k$ P* b) e" p

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli