一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

- V$ M. S; D8 j: ~! X }5 I

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

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

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

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

/ F( X3 C$ u! E6 [7 \ M8 E

作者：海娃

/ @. c/ v5 ^; D. ^( w" _2 h# X

用法：

+ c4 k1 W, s" Q) J1 v9 Q2 Y4 M! ]

1. 将下面代码存为 exe2swf.vbs * `+ I4 p9 E* ^
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. ' Z& H3 C2 Q3 @dim AsoR,FlashFileName Set ArgObj = WScript.Arguments

% Q# z. o. d. Q% H

dim PositionStart,OKed,Tag,EndSize 0 t. ?; B9 j/ U# i8 i: B3 ^# oPositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 ; S3 j9 K4 {- r1 FFlashFileName = ArgObj(0)'传递路径

. j& }) o' S5 {" L1 V% A

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 `* I+ G$ {" q: ^AsoR.Open set AsoW=CreateObject("Adodb.Stream") / E7 z5 U# z2 g& w# u7 dAsoW.Mode=3 0 |% ^7 L/ }; C/ q; w( M! RAsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)

OKed = true ; a: c2 u' C9 @1 Cdim filesize , n0 E1 T, _6 s; D& G1 Xfilesize = AsoR.size

7 w$ b& `, S! W! |* t6 n2 W$ c

if filesize>ositionStart then while OKed 6 d- J2 \' y- _5 {1 p AsoR.Position = PositionStart $ {1 ~" C; k; v% @4 \ Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 & \* u2 P1 C, c& l2 W else PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then * b) Z& Y0 h5 U3 p5 s. | OKed = false end if ' H6 v$ D- e0 a& n& w$ r+ j( G4 f 'if PositionStart > filesize then 6 d3 z/ C: M& |# F; g3 C2 l$ x# b7 T ' OKed = false * P; r7 _+ d; S+ ^. P0 O$ d 'end if 9 D) [; L* s# V& T wend else 2 G8 w; P' r! u% a# P7 | msgbox "文件错误" # i- M0 ?7 u5 L( ~end if ; e) e' ~. x0 }PositionStart = PositionStart + 16 9 ~' [" \) U& z( o5 r'msgbox PositionStart & |& p! F4 _& X" E( wAsoR.Position = PositionStart 5 s( e( t4 ~5 H5 GAsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

* @6 y Z* @- K4 ~: g

'新文件名 dim newFileName 3 O. P2 A. l! g2 h; {" N8 p3 N'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" newFileName = FlashFileName & ".swf"

( H& E) K0 N" K

Set fso = CreateObject("Scripting.FileSystemObject") ' c4 d O( E, z* DIf (fso.FileExists(newFileName)) Then 9 l( E- n0 Y0 n2 C5 t overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then ! D2 _( D3 L$ X, }6 ~$ q& ?( e AsoW.SaveToFile newFileName, 2 9 v" Z" }4 y O0 o1 i9 d0 N& r else msgbox "操作被取消",0,"exe2swf脚本" end if 2 P# H, W' k; m3 t! r5 j1 p; G8 selse AsoW.SaveToFile newFileName, 1 : e' c8 _! p; o1 ?! U' Uend if

AsoR.close . h2 h, J, p$ C: K% H7 Aset AsoR=nothing AsoW.close 4 N5 @& k1 L+ N* aset AsoW=nothing

" ?* h Y5 A+ h8 t! {% r1 h: X2 U

Function Bin2Str(Bin) % N7 J/ ~8 T/ J# A+ l. ` Dim I, Str For I=1 to LenB(Bin) clow=MidB(Bin,I,1) 0 a9 U5 _+ d6 s5 m( ]& V if ASCB(clow)<128 then Str = Str & (ASCB(clow)) else I=I+1 6 Q% T( }9 k- \% f, g6 r' d/ u! {+ l if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if : x" m. t J A5 m" J6 k& V8 y Next 5 C: [& L" l$ D4 {5 N2 w0 c0 m' z Bin2Str = Str End Function

( I/ V/ r( |8 P( Q" K( r& K

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli