一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

) Y7 d& @; Q5 R( M& N# S9 ]

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

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

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

: d7 A( x: r8 @% D" y+ ^6 [

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

7 q- y" g: J8 R4 @4 L! ~

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

作者：海娃

用法：

, \% X5 H' m5 j6 c

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

7 V, a8 }. X; H! B, l% v! x6 u9 K$ n- e'haiwa@http://www.51windows.Net " C3 a, _: V; K& l1 i P- ]! Y5 Z) |'感谢jimbob提供帮助. % r- {1 `) z8 a; a! ^3 wdim AsoR,FlashFileName Set ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 * Y) C/ }' @' i7 q6 |! J' YEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") , P# r8 q a0 D% hAsoR.Mode=3 ' H; d* G. u; @5 V J- o5 k# dAsoR.Type=1 & \3 c1 M5 x2 y- `AsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 3 q/ [3 u9 ~ [7 v' TAsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)

OKed = true dim filesize + l1 V0 f, m8 S) \3 Vfilesize = AsoR.size

$ X @9 p# m7 i7 x. ]5 C9 `

if filesize>ositionStart then " G( f R$ ^" f9 R! {# v while OKed 8 _1 r- h6 K9 `4 E AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 else & R) G2 |5 t( B) d5 X, _* _ PositionStart = PositionStart + 20 end if % S h& N8 e3 R/ ~' \$ D/ s' g if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then / U& I' c1 e' |7 P( W! \" _; h OKed = false end if * O) a5 E$ M* y7 K, C 'if PositionStart > filesize then ' OKed = false 'end if wend 7 r; e2 W) H1 E6 d) Delse , j/ X! F- T9 I2 e msgbox "文件错误" end if PositionStart = PositionStart + 16 7 a$ x- H! r$ t'msgbox PositionStart E" s1 A3 O% }; N+ nAsoR.Position = PositionStart + l# u- d# X1 I( N% aAsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 ' F4 {% l# N$ Tdim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" newFileName = FlashFileName & ".swf"

7 m% J* }" `0 u" v- q) @; }. w5 B

Set fso = CreateObject("Scripting.FileSystemObject") / h" b3 a4 ?. G9 Z: AIf (fso.FileExists(newFileName)) Then / }' P. W( D; q, ^9 n ?7 Y+ u overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") * j7 N! s- Z, p Z7 ~) H$ Z if overwrite=6 then AsoW.SaveToFile newFileName, 2 . _+ p. {. C3 |+ u* V, r else msgbox "操作被取消",0,"exe2swf脚本" end if else AsoW.SaveToFile newFileName, 1 end if

AsoR.close 6 C p& f" W+ v2 y* F [ Zset AsoR=nothing 7 e( o+ v, V% ~AsoW.close set AsoW=nothing

Function Bin2Str(Bin) ) d3 n1 P$ p# Q" T( X Dim I, Str For I=1 to LenB(Bin) clow=MidB(Bin,I,1) 3 g2 V" k, k% ?8 X if ASCB(clow)<128 then Str = Str & (ASCB(clow)) % C9 I5 Z0 X7 F+ ^5 S! e: R& [( v else I=I+1 / w& a) F7 ?$ G0 Z. x0 F0 T# U4 n if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if Next " @) f, p. K5 R( S1 O Bin2Str = Str End Function

$ ^$ A# `6 a6 L" h* y

, P5 M$ z+ \' d! Q$ N

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli