一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

5 M. q) O1 D- G4 ~ b8 T

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

/ {; `) v0 `: t9 l: \( `8 B0 V

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

, q0 F5 [7 ^8 w( b$ A/ Z9 q; X

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

E3 T1 y; ^! U8 b+ G

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

作者：海娃

用法：

% j1 w* S" |5 _+ Y
1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

5 I; a& u; k7 r7 C p

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. dim AsoR,FlashFileName 0 e0 U8 o% ~: c( Y: k; e4 v: hSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize 0 e; [* ], M! D; I- APositionStart = 920000'flash 4的播放器的大致字节数 & ~% v4 ?$ `# e; N T) aEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 + ^5 v* `$ X, {' K w; {AsoR.Type=1 & [1 w; p- D. h% a. H- wAsoR.Open ( j. `8 v4 Q' U) S7 T) U+ ^5 ^set AsoW=CreateObject("Adodb.Stream") 7 r; O, @5 ^9 q Q' u# d% yAsoW.Mode=3 * g* w% t7 |0 x$ h* n$ a7 p8 z7 w; N1 BAsoW.Type=1 AsoW.Open 7 q+ b4 }2 K2 h( VAsoR.LoadFromFile(FlashFileName)

) m b. c0 u0 e; D" w

OKed = true dim filesize ( T' h# o8 R8 y* ?filesize = AsoR.size

5 j7 g- ]2 A s0 J, F

if filesize>ositionStart then $ b( Z$ _ F$ Y while OKed 2 t7 Z- C m7 _( ] AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 else PositionStart = PositionStart + 20 end if ) W; m3 X" M( x% P if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false ) R+ h P& j/ l" }2 E: j; m- C end if $ G4 b9 `" F3 |8 T 'if PositionStart > filesize then ' OKed = false 'end if wend / ~- B+ p4 {9 q1 A1 `4 {else : d M; Y. I1 J. M9 s msgbox "文件错误" 5 B+ l; @7 k$ t- Oend if . Y! z# Y/ b, d9 ~/ _PositionStart = PositionStart + 16 - v7 B- A. J6 C2 u'msgbox PositionStart 7 o: {9 n& p) s' K1 U3 S5 c* S! G5 vAsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 4 L; a: |/ d1 q$ z: E8 a$ L0 z5 ldim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" ' o! l5 t# B! I, H7 x8 OnewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") : h/ l% l. w9 N; Z( V if overwrite=6 then AsoW.SaveToFile newFileName, 2 ; m- [" `- w4 e0 M3 C% S! X5 c else ( |9 ], f' E# S" Q0 l+ B6 R, Q msgbox "操作被取消",0,"exe2swf脚本" 9 g* ~+ S) e+ N9 y" W# A/ S end if else 0 I! h8 ?3 P# r+ i AsoW.SaveToFile newFileName, 1 / I* k* C3 J$ Gend if

AsoR.close set AsoR=nothing 6 [" g9 L& @* ?: R0 vAsoW.close set AsoW=nothing

* m- S H3 \8 s7 N0 i$ b

Function Bin2Str(Bin) Dim I, Str 9 A3 j" L( @$ J' @4 C For I=1 to LenB(Bin) $ g1 s y7 \- y% K+ m8 I clow=MidB(Bin,I,1) % {9 }. Z$ m7 r7 U if ASCB(clow)<128 then $ t. r, `4 {, I8 i; k Str = Str & (ASCB(clow)) else I=I+1 ( f, ]/ P& J) ^8 Q) n5 J if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if % d" L; I' n7 _$ E: @" G Next ( G3 |6 ~* ~. w& U3 E Bin2Str = Str End Function

4 M& i/ z5 a) v

% Y8 w3 x) s5 j r* D& u

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli