一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

; u# I6 X/ l" ]2 U. g: M

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

6 A/ |- q5 ]+ |& u& n) C Y) d

软件名称：exe2swf - w- I5 S/ y+ f/ G适用系统：WIN 9x/ME/2000/NT 0 J3 I. w5 y2 s( |文件大小：11K / I: z5 X( V3 |! [( w0 }5 w" ~文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

# d* Y4 F F) I9 P, w

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

4 P5 ^) `2 P* c7 Y4 A

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

1 i; ]# q% j* ^# m: z

作者：海娃

' G( ^* }, a, q3 K4 j

用法：

) j/ W2 h& M, u' x# t" Y2 t

1 r% U8 ? ^0 F: H9 M! h) p
1. 将下面代码存为 exe2swf.vbs / t+ i5 ]: w/ x8 r/ s% f+ B
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

8 H4 j5 j% ?1 i) K3 k% F'haiwa@http://www.51windows.Net ! D6 X9 x3 |6 b" s/ T7 }; Z2 ~'感谢jimbob提供帮助. ! ?& H; m. I4 R7 Z Wdim AsoR,FlashFileName ) J% c* v- ]! c6 Q& @5 B/ j JSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

7 p9 s- w% p! A+ \' r+ p' M

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 AsoR.Open - H3 O3 J% t( M: ?2 }' m; Sset AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 , C- w3 ~6 i+ g/ A3 T& @( k" y% aAsoW.Open . o2 O, v: k5 t4 q8 E1 E" ]AsoR.LoadFromFile(FlashFileName)

OKed = true dim filesize filesize = AsoR.size

if filesize>ositionStart then while OKed % f* Q S; T% R% s* g AsoR.Position = PositionStart ' V9 d" m7 F5 r% L Tag = Bin2Str(AsoR.read(20)) # W$ R* U! b6 ? Y7 U/ H3 n if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 else PositionStart = PositionStart + 20 9 j2 }- M8 L7 Q* L" s end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then 9 X, m! D# F N$ I OKed = false end if 'if PositionStart > filesize then " o2 X( K; h7 T0 T( a+ S ' OKed = false 'end if 8 q% z9 @) R: V8 }$ n. t wend % |" p; a! H5 X* i% [) Nelse msgbox "文件错误" , g2 J- {5 j, S! ^) T4 U' [end if PositionStart = PositionStart + 16 * z5 p: ], E/ P! `; o" g/ F'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" ' M2 i( N: Y. o* |newFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") $ ? o. R% n, S2 g' QIf (fso.FileExists(newFileName)) Then $ | I$ |% I6 w/ r$ @7 O overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") " r D) @5 A( C' T5 T/ I if overwrite=6 then AsoW.SaveToFile newFileName, 2 else msgbox "操作被取消",0,"exe2swf脚本" ( N4 ~) H$ @1 P/ N# N( `% C! d( c' W end if else AsoW.SaveToFile newFileName, 1 * B- ^$ Q/ G0 Zend if

' z4 X( y T5 z# ?& b/ m6 Z( r

AsoR.close set AsoR=nothing $ c- t0 ]+ g4 f5 m" v% h& vAsoW.close # s B# s: b; S) n$ X0 Lset AsoW=nothing

3 ?& ^5 j9 U4 l) O! x

Function Bin2Str(Bin) Dim I, Str 1 e) N# B7 z: ?7 ]1 d For I=1 to LenB(Bin) clow=MidB(Bin,I,1) # Z& x1 k8 d( v7 X* l if ASCB(clow)<128 then Str = Str & (ASCB(clow)) ; \' }" M$ e& X8 v. t4 _, z else I=I+1 1 u1 T# c/ S) t( u5 R if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) ! u& {" i l7 u2 |$ K end if Next " v0 ~1 q2 z7 z& b9 ^/ x4 _ g Bin2Str = Str + G+ e4 i1 O. [/ J$ V4 vEnd Function

, L- F: ]3 S" Q+ `+ Z' p( y+ j1 N& r

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli