一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

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

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

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

- a7 }" ]/ [- R0 ]6 f

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

7 d' q9 u( @; r9 [5 q) r6 M, P$ z

作者：海娃

用法：

: ?9 V* f# D0 K* W$ X- I

6 w( d5 o1 ?3 a+ x4 O& A
1. 将下面代码存为 exe2swf.vbs ) ?1 O# B, q! J( `
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

% d8 B# [# s8 n$ Q

6 M" n) [& O( m" i# O- X'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. + y8 D! b. v9 o+ C& j [4 X$ ^dim AsoR,FlashFileName Set ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize ) k8 M/ R ~3 K* @' w- hPositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

( w2 m9 r _1 r$ ^

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 : L1 G% d: Q6 i4 ^( Z7 [AsoR.Open set AsoW=CreateObject("Adodb.Stream") % \7 d9 {$ s1 @. Y0 K6 M8 @6 U: YAsoW.Mode=3 ) I0 M: N7 X P6 M. p. v: |AsoW.Type=1 AsoW.Open 1 W) F4 h( h. g" ?5 Q' A5 p; rAsoR.LoadFromFile(FlashFileName)

4 P: k3 W i9 d( R+ ?; v/ r

OKed = true dim filesize 9 w1 i$ C T- T2 w) {filesize = AsoR.size

; p2 W+ J {3 _$ K7 _/ m

if filesize>ositionStart then while OKed * M6 [9 l3 Y6 ?' C# @ AsoR.Position = PositionStart 8 m4 X4 r! k' D. `& N. T/ n Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then - h# q- W$ h: Q; ?8 V5 ^ PositionStart = PositionStart + 1 ! F# m6 p! B/ i9 R/ s else 0 m: [" [- B; B! T% \ PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then ( }8 B, [2 O0 W6 E# J; b0 o3 V1 A OKed = false 4 l% b$ n# Z# Q r4 q5 i( b end if 'if PositionStart > filesize then 1 y2 p& I) s0 Q' ?% d ' OKed = false 8 V( I. x3 t n4 O3 n" i 'end if wend else 1 K: p5 C! ^- }" h msgbox "文件错误" 2 p2 K* N' m1 L3 X* a, C/ J' O6 send if PositionStart = PositionStart + 16 9 s) O4 ?" X" U k'msgbox PositionStart AsoR.Position = PositionStart ! a# I) n. x W0 { W1 s- PAsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName 4 T8 c' t6 Q6 u'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" ! R) l! T6 Q* v8 a* @; p1 wnewFileName = FlashFileName & ".swf"

' g5 P% E4 ~$ s w) h

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then ( S8 v% |. j% L2 U overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 0 Y; `1 [( L0 @3 g1 e* ^3 Y2 ]3 s else 2 R( d% `) `* A* I" @* F msgbox "操作被取消",0,"exe2swf脚本" $ ^5 u0 z6 W! h1 v end if , f+ }' h. e$ \+ ?' [else AsoW.SaveToFile newFileName, 1 end if

AsoR.close set AsoR=nothing & e8 _& e0 h9 _/ F6 }AsoW.close set AsoW=nothing

Function Bin2Str(Bin) + f' N8 H, U @2 A3 d. K1 t Dim I, Str For I=1 to LenB(Bin) clow=MidB(Bin,I,1) if ASCB(clow)<128 then Str = Str & (ASCB(clow)) 7 X s* { n* w1 H0 `/ v else + T* g+ z1 |# l I=I+1 & ~: n6 h3 L! |5 L3 G, e6 C if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) - ^5 l0 R4 [0 q( L5 d9 b4 h end if Next Bin2Str = Str - {. u0 w; P9 ?/ T% [End Function

1 ]6 l) }1 _, \9 {% O

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli