一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

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

; O" B; K. Q! E/ Z3 k- h+ m

软件名称：exe2swf + [# K1 g: ?3 k" h适用系统：WIN 9x/ME/2000/NT 3 m; I h7 {/ r# A$ I7 q6 H文件大小：11K # S/ v6 o7 e- i. P/ H8 S% A文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

6 z$ V t- O7 i8 n

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

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

作者：海娃

用法：

' f( C# D7 b# |+ r, ]

1. 将下面代码存为 exe2swf.vbs $ ~; Y2 l* p+ s o4 B
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

: W6 j0 C6 g( M Q" P

6 U0 d! w0 t: M) M! }& Y9 E'haiwa@http://www.51windows.Net 6 G/ |3 h) Y3 b; N: ?+ E( e* ~' T'感谢jimbob提供帮助. * o: j: T% F6 Q8 K; L/ ^dim AsoR,FlashFileName / {' i3 C# P. FSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize , K, i7 Q* b4 S9 o7 r+ qPositionStart = 920000'flash 4的播放器的大致字节数 6 U2 N* f" b' M! SEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 ' s9 h( }% c* L3 ^FlashFileName = ArgObj(0)'传递路径

. z$ ^5 n# k. }# s: i6 ?. v3 ?

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 / F3 m" b/ G' J- IAsoR.Type=1 : \, y8 ~$ n: c- d% R" Q; P3 PAsoR.Open set AsoW=CreateObject("Adodb.Stream") / A6 {. ^2 o1 z) `AsoW.Mode=3 AsoW.Type=1 1 I1 C5 o& X Y, iAsoW.Open AsoR.LoadFromFile(FlashFileName)

OKed = true ' G k0 F* I0 L3 _; xdim filesize + ?3 x2 L: Q6 Q- lfilesize = AsoR.size

if filesize>ositionStart then 1 Z: o" r( |$ X4 a. k while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then ' n# G6 ~/ i' b% C8 H/ k. e2 B PositionStart = PositionStart + 1 . ?7 |3 s% @& K else 6 U L" V5 a5 ]: T' p5 P ^! N PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false ' O4 a7 c* [: T$ j6 \; D# Z end if 'if PositionStart > filesize then * W$ V# T: ~. ^/ c$ B ' OKed = false 1 S z, C! U0 X3 g/ _ 'end if wend else ) X! m9 b( z6 f- V0 \ msgbox "文件错误" # v( ]6 s! f+ Y' {end if ( ]8 Y8 i, \' a/ |/ H" @PositionStart = PositionStart + 16 5 l7 j2 H" b/ R1 ^9 e'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" newFileName = FlashFileName & ".swf"

2 x- v& w# z7 n& e- ]6 x

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") 1 ~& A- J' \& W, W2 ` if overwrite=6 then AsoW.SaveToFile newFileName, 2 @: g$ Q6 k+ K, R: r else msgbox "操作被取消",0,"exe2swf脚本" # L0 k) D9 z H end if $ f9 O+ l4 |; p9 X7 H: Y( m" L+ `. celse AsoW.SaveToFile newFileName, 1 & S |' S: N$ l* l; ~" Oend if

) u7 d1 u6 i9 [) d& x- W5 t. `+ I

AsoR.close 1 k" i- u' d; U7 m& z1 a: s4 c, hset AsoR=nothing AsoW.close set AsoW=nothing

Function Bin2Str(Bin) * c% q/ x9 F- W L- i& x! `( p Dim I, Str $ B4 R1 W- y1 C r For I=1 to LenB(Bin) / m, ~; Z- h7 s& s clow=MidB(Bin,I,1) if ASCB(clow)<128 then ) ^% D& W( F1 n; a( F4 r$ V, ^ Str = Str & (ASCB(clow)) else ) C1 N( p- ^2 F! C# @# ? I=I+1 " S/ [% t8 i9 {/ a8 A5 @# J6 w if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if $ @* l. f+ I( S2 s% t1 E' U+ g9 t Next Bin2Str = Str End Function

% C5 Z4 } q1 P) z" \

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli