一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

. [, C* s' {8 q# }* }, f

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

# R; V3 g9 n: J) ~9 t) P

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

软件名称：exe2swf 0 E( K! v) E8 F) U0 P( l, |3 [2 N适用系统：WIN 9x/ME/2000/NT , M l: ]% H: ]/ w文件大小：11K 9 p# T8 n g8 U; ^' \5 f7 T/ u6 e文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

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

# S9 K$ F* v0 q

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

* r1 B: N1 ]& o0 \( @* e9 p

作者：海娃

用法：

! l" w$ x! U- H1 `: [& s
1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

; Z, _2 O% S6 Q

' e7 n3 z- e# Q% g" i3 k'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. 6 N% \0 a, H' t* W6 Ydim AsoR,FlashFileName Set ArgObj = WScript.Arguments

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

+ c; D; t; p: f

set AsoR=CreateObject("Adodb.Stream") ( e$ I' i4 h% R. ^& X9 \# r* hAsoR.Mode=3 . A% [9 d! Z% t. ?7 i4 B3 lAsoR.Type=1 AsoR.Open 9 l1 {% b# I; v+ @8 hset AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open 2 D+ }6 X. W" d0 MAsoR.LoadFromFile(FlashFileName)

/ n; f% ~8 \0 z$ D7 w* d& R( [

OKed = true dim filesize filesize = AsoR.size

* E& w, g8 J6 e' ^; p1 K+ N

if filesize>ositionStart then , Q7 U2 [2 e& f. S- u9 Z) R. R1 d while OKed 5 k- z6 Z" j$ K9 Y0 ?- U0 d AsoR.Position = PositionStart 1 ?, L! Y, o* V* Z1 R, \ Tag = Bin2Str(AsoR.read(20)) 4 J$ Q3 w6 g2 t4 j% r if instr(Tag,"0000000") >0 then 5 n' u r+ t- c+ ~" s+ P q PositionStart = PositionStart + 1 else ) A. @4 L3 ^! d# U PositionStart = PositionStart + 20 ) h) Y6 H6 p+ n2 Z4 E end if " {& f( U2 J) R' A if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then " S2 F" K1 z# Y9 I% a OKed = false & x" T2 e( D% ?$ E+ {3 Z end if 'if PositionStart > filesize then ' OKed = false 0 E2 W! f# ?9 Z6 G% }% X 'end if 4 h. F: s0 ?4 ^% s0 {+ O" F6 P2 } wend else 7 Q+ ^8 ?3 @* B2 Q1 k- L' R msgbox "文件错误" 3 X( ?5 j1 J% [8 J) @, _# nend if PositionStart = PositionStart + 16 : s2 K h# s* M'msgbox PositionStart ; ]# t- f* q& B8 _AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

1 O: }- R$ W' ?% O

'新文件名 dim newFileName - G6 v" P/ O; s, \8 ~ n1 t* O+ E'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" ' p, z* \5 P) b1 `- t$ snewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") 8 K7 m" C# h( \1 HIf (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 2 r! z& Y) H% m! i! P; c, d else ' H, f. {+ R8 k' h. j& @9 p5 f msgbox "操作被取消",0,"exe2swf脚本" ! F. ^9 [$ { H8 B5 H end if ( \1 V! r1 q6 r( o$ Zelse ?. I, G1 u8 c: A2 J AsoW.SaveToFile newFileName, 1 $ e& \5 {5 u, c/ i, F3 [end if

0 o2 {4 r2 e3 r4 u% p- }4 o6 [1 r1 O

AsoR.close set AsoR=nothing AsoW.close set AsoW=nothing

Function Bin2Str(Bin) ! [+ s: |# p% Z/ T Dim I, Str For I=1 to LenB(Bin) + B& M- _ B" D% I) D2 l8 [9 @' A clow=MidB(Bin,I,1) , G5 L4 S; X8 b; z2 w6 I$ @3 u; r if ASCB(clow)<128 then Str = Str & (ASCB(clow)) else I=I+1 " ]) P# r1 b# U7 m6 t if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if + t$ ]; i7 I0 |) {& F3 k5 P0 R Next Bin2Str = Str End Function

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli