一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

" |: t) \2 a, Z/ ]2 q

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

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

7 ^5 ?. t3 f! W5 w3 ?

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

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

6 {9 Z9 P# I, B! d$ a* f; |

作者：海娃

! ]- u& K, T8 d" n" V

用法：

5 Y+ [* V+ g7 A- H& A& j1 C: G

1. 将下面代码存为 exe2swf.vbs 9 u$ L- f. s2 H
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

9 E5 q& Z8 p' l# j O/ _! Q. h'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. ' e, n2 I8 ?- C+ m) d/ Udim AsoR,FlashFileName * J! B5 C0 X. T, O2 e3 `" [Set ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize : l+ k5 z) z2 L" r3 y7 [% uPositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 * @- G/ y9 ^) B" ]0 _( I2 ^ LAsoR.Open set AsoW=CreateObject("Adodb.Stream") ; B$ o: O- }% m( k) aAsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)

) V3 f- D$ G1 o2 X$ M" ~

OKed = true dim filesize : j. s$ e# [4 J7 ^filesize = AsoR.size

! `! M/ ~6 K# H8 k

if filesize>ositionStart then # o* l1 R" g0 U# Y. H while OKed ) |* {5 H7 I+ B' a" [2 ]/ z' a9 J AsoR.Position = PositionStart & R2 ?! C, H& }& `! C: K Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 , O( {/ ^4 z& s+ L0 m else PositionStart = PositionStart + 20 + }2 D2 u* v2 V6 X end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then . K$ \1 N2 g4 B6 G$ @! T5 R" u4 V OKed = false 1 \) P! h$ J( @6 v9 r end if 'if PositionStart > filesize then ' OKed = false 4 `5 F+ d. R6 @) \) s3 G8 n 'end if 4 ^8 i* m, d' _1 z# u v wend else 2 h+ e4 A4 f8 C' v: J- q+ p! P msgbox "文件错误" end if PositionStart = PositionStart + 16 , N1 U$ L2 N$ F- W4 F'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 + j# w4 o A; W+ Z6 G; fdim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" 7 H# B3 D% k3 T4 A; AnewFileName = FlashFileName & ".swf"

7 f2 Q% _' s: b) i x# X

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then 3 P6 \' b$ P! V/ C: g; L- q/ T6 k overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") - a! T) H0 h: }2 x' K$ @% W if overwrite=6 then AsoW.SaveToFile newFileName, 2 " k' V* y# D& F( V, X K4 T) P else # j! t& ^: X, j1 _- M2 @/ M( I1 y msgbox "操作被取消",0,"exe2swf脚本" + O; N+ c$ j* c, }- o end if 1 b* h9 F- K' T1 Jelse AsoW.SaveToFile newFileName, 1 ! |$ C4 ^1 e3 k" ?1 B/ Oend if

# m+ K, A) a! @

AsoR.close set AsoR=nothing 2 o. D5 D6 ]5 @2 [2 h' G3 R4 ZAsoW.close set AsoW=nothing

8 k. g+ r o+ f% o) x

Function Bin2Str(Bin) Dim I, Str For I=1 to LenB(Bin) 3 I# N2 _" i. y, L7 h: j+ h clow=MidB(Bin,I,1) ' s, Q+ w7 d. O8 e+ S- ` if ASCB(clow)<128 then Str = Str & (ASCB(clow)) % `4 Q% X* B& F% W else & g1 r3 B+ Y/ y" J% N7 W( g I=I+1 4 a, n" Q* F* s0 z5 z0 o; z7 } if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if ' o6 _. M9 {* U Next Bin2Str = Str 8 l% ^, h n. Y0 d. Z4 }' \# W1 B9 WEnd Function

1 y* O" C/ r* B

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli