一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

0 i% N* d3 H+ w$ Q& j0 p

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

8 s6 ]8 l2 u0 y+ \5 v- [. F/ |

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

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

3 g7 b. Y _2 n0 O

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

5 G# g0 P& z m# I! W

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

作者：海娃

用法：

! B1 ~4 S7 b2 x! o/ v

# t% Q7 u$ B; h6 Z; G# U
1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

9 r9 m6 L4 o% S- u0 }$ _

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. $ G( q1 y T7 u$ ^# Q) R6 ?dim AsoR,FlashFileName Set ArgObj = WScript.Arguments

) o) v+ l1 o+ A; I* j9 h8 B

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 1 U# P: D4 ?1 h$ \' b* kEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 5 Q% W1 c$ `6 l3 `0 R CFlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 - |4 f; d: ]2 z5 l- I( WAsoR.Type=1 AsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 7 U6 r# D7 q7 d3 dAsoW.Type=1 AsoW.Open . x1 l# F$ o3 a1 @5 a) XAsoR.LoadFromFile(FlashFileName)

OKed = true 2 W) t. E- n/ F" u+ _* Ddim filesize . i4 i" p1 T; Q0 t0 R9 O+ Pfilesize = AsoR.size

" C% N2 C$ i. J8 f7 M

if filesize>ositionStart then 2 ]5 O8 C3 }1 P, a while OKed / _& m# ^* T6 g; h9 X* p AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) & K2 f/ N! X6 |, O6 d if instr(Tag,"0000000") >0 then ! D I8 T9 I M) s6 ^ PositionStart = PositionStart + 1 4 I) j5 g% C. i- d- v: [ else / b3 a8 s: n0 ~' o PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then 6 I* v4 G" V" F) q$ j0 v OKed = false end if 'if PositionStart > filesize then ' OKed = false 9 z. t5 f1 Y: \- R( \9 u& A 'end if wend ( s% x" R; k3 k4 `else . s. ^8 B3 M: n0 R( n msgbox "文件错误" 6 _, |7 Y( G4 R& `* Y9 Tend if 6 Z7 \; d; ^, |' TPositionStart = PositionStart + 16 , Y2 p, a- i2 m. W! k2 k7 p'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName , x& g, ]* ]' [+ [. G'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" newFileName = FlashFileName & ".swf"

& V, l9 g2 L$ r5 e- J

Set fso = CreateObject("Scripting.FileSystemObject") 6 @% h p9 p2 O$ l" WIf (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 else - A: M" W1 {) p. a1 |8 S msgbox "操作被取消",0,"exe2swf脚本" 4 e/ A8 D3 h( r; d9 @! w \& Z end if 3 ~6 P" b! p4 G% y i/ j* Nelse & k2 p w; t3 T& T( d2 I AsoW.SaveToFile newFileName, 1 end if

AsoR.close 4 B. \! W4 }* `2 S; Zset AsoR=nothing AsoW.close set AsoW=nothing

# ]' d9 w# ?, p' ]

Function Bin2Str(Bin) ' X: [) t7 C, ` Dim I, Str For I=1 to LenB(Bin) clow=MidB(Bin,I,1) & P( S* P: @6 s9 F, j if ASCB(clow)<128 then " v; L' {# I7 o9 v) U. i. t5 U7 C Str = Str & (ASCB(clow)) * U! V6 D5 z5 H* | else : R4 V4 x1 g2 u I=I+1 7 h; U5 Z& B- R2 G$ d# d, g" E if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) ; L% Z/ B% h% h+ ? end if Next # N' A( u8 N" }- k0 [ Bin2Str = Str End Function

lynli

413009449

不知道有什么用

小旋风假

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

540982016044

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