一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

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

7 K8 g8 G( J& C- O

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

" d1 Y. [( ]+ \: v) {/ e" x' m$ ~4 T

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

) E, b O, F8 [* L, _! \

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

7 O9 Y" j# P) j: ^5 {$ J. ]

作者：海娃

用法：

8 z( T. m6 U. I/ X7 a3 O8 v2 c

; _) W8 Y! A) @
1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

) X) S) C' s) o, W

5 ]# p- _7 Q+ M8 {'haiwa@http://www.51windows.Net * F* K, p$ a' w+ U4 }. M. |7 D'感谢jimbob提供帮助. dim AsoR,FlashFileName 7 r' d) B- F) ^: T* ASet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize ( P: ]# P" w$ ^! G# ~7 ZPositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

' A2 J! L2 {* ], f+ y- W

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 - B8 ?; a3 P m( ?* R4 [1 n _AsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 d: Y6 z9 m& I- j k- YAsoW.Open AsoR.LoadFromFile(FlashFileName)

# O2 \( S4 {& a

OKed = true dim filesize / w$ _9 S% r' {filesize = AsoR.size

if filesize>ositionStart then while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then 3 D% S u$ g' J3 y PositionStart = PositionStart + 1 9 A% r0 t: {+ {1 C7 V" A else . F& K+ Z" E. `$ m PositionStart = PositionStart + 20 6 p8 \) n+ l" V end if 9 Y( y8 J. Y# P1 Z. E- c if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if * F' A7 @4 q1 h9 v, V 'if PositionStart > filesize then ' OKed = false - Q/ u% l% X$ p+ u, U6 G 'end if wend else msgbox "文件错误" : _ Z6 I6 X- w4 r. [0 s* d/ _end if 0 z1 M( J% N1 }' |# p2 [# {* P& X# YPositionStart = PositionStart + 16 'msgbox PositionStart AsoR.Position = PositionStart ( d# D' v- x" {4 \7 p: uAsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

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

! X4 y G0 c. n$ o

Set fso = CreateObject("Scripting.FileSystemObject") 5 e3 |5 w) M" j1 ]' }( ?. i! g. EIf (fso.FileExists(newFileName)) Then + Z2 V: k) q( y' {* d8 V: y1 f overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") ' b* C7 {# d | W if overwrite=6 then AsoW.SaveToFile newFileName, 2 7 H, Y, a/ F2 m else msgbox "操作被取消",0,"exe2swf脚本" end if n7 u( ?5 ^. x) ?1 h4 [else y5 M9 M% B. j. x0 `4 i AsoW.SaveToFile newFileName, 1 , B! c" ~# {9 r; eend if

AsoR.close set AsoR=nothing 8 I6 {* z! C% ^. r1 xAsoW.close set AsoW=nothing

Function Bin2Str(Bin) ! s& C* R/ Q z8 l; c Dim I, Str * T e+ M" b- s. Z# r- M+ }; n( \: e For I=1 to LenB(Bin) % c# y, v h" C* R$ t clow=MidB(Bin,I,1) ( L6 ~) u0 W: `) }3 z- C' ] if ASCB(clow)<128 then ! I7 y" j+ Y8 u" t/ c: j Str = Str & (ASCB(clow)) else 4 {* z3 w% U! Y! I7 k: `4 C I=I+1 if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if Next Bin2Str = Str End Function

! s8 k4 s# F. ~- b$ ]

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli