一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

% }# N, o6 A% l; _) B

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

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

9 T. U7 {5 h8 e& c8 P

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

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

w+ O3 M+ ^+ T! ~, {9 I# M

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

. D, z. h2 @" ]( P4 k" k8 D

作者：海娃

用法：

5 s4 a/ \ d0 i- L, u0 J X
1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

% H: n2 M: U# @

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. dim AsoR,FlashFileName / n) [6 Z6 ~2 i( H( {Set ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize 4 I# \8 b8 Y7 h4 |: t9 \9 J; B- fPositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 7 ?9 F/ L: W# d% u; H5 o4 U; @FlashFileName = ArgObj(0)'传递路径

1 r& D+ e8 ^& C7 K% S

set AsoR=CreateObject("Adodb.Stream") + ~; M8 ]: Z+ E- r! YAsoR.Mode=3 AsoR.Type=1 7 g/ n2 S5 R: K! MAsoR.Open # m$ |/ C: p! N) Wset AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open + h/ O- A# x: }AsoR.LoadFromFile(FlashFileName)

OKed = true dim filesize ( H$ I$ ]( v( a7 gfilesize = AsoR.size

& G2 }; o. a. Q. T" L

if filesize>ositionStart then while OKed + m' _# w; y( p$ F6 M4 A AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then ) L8 ~2 \: g- y PositionStart = PositionStart + 1 else 6 F2 ?8 x4 H+ u; I PositionStart = PositionStart + 20 end if : d6 n8 D6 K/ |( [, o" P if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if 'if PositionStart > filesize then ' OKed = false + I$ Q" w4 ^7 t0 h. A! a. {( s; y 'end if wend * f# c; o9 W. D! `# relse 7 |8 O1 O$ k% ]6 y8 T msgbox "文件错误" end if PositionStart = PositionStart + 16 ( M( v7 c0 a" P& A! Q: T'msgbox PositionStart $ U7 F5 {5 I" i: j* b" L- L+ L: a& sAsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName k$ _3 o' u9 |& a% K3 f i" s! O' J- c& e'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" 3 n/ {% Y z9 B& bnewFileName = FlashFileName & ".swf"

% x6 S8 N" M2 W6 D/ z

Set fso = CreateObject("Scripting.FileSystemObject") % v5 j- R2 p( }. B% T5 d1 uIf (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 . g" ?+ x; w5 A! b- S5 L0 p6 ] else msgbox "操作被取消",0,"exe2swf脚本" : n; F# b2 T& ?; F3 f, _' {/ M2 u% Q end if / z9 q- \% a& f( B: d6 R2 r+ selse AsoW.SaveToFile newFileName, 1 end if

AsoR.close ! e* g+ S* b. C& ^, r! L4 kset AsoR=nothing AsoW.close / ~0 w1 o9 e U9 U, Qset AsoW=nothing

8 ~- s0 [: k p- s4 R8 ~

Function Bin2Str(Bin) 9 s2 [. N0 ~' K) G1 a# g- K Dim I, Str 2 Z- e- z7 Q" d For I=1 to LenB(Bin) clow=MidB(Bin,I,1) if ASCB(clow)<128 then Str = Str & (ASCB(clow)) 8 f7 E- ^, w* s else I=I+1 if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if ; b! c: [* J4 N! O Next Bin2Str = Str : f- Q$ x2 h- F- u% y0 h4 I- V4 kEnd Function

7 d9 h" G7 [( [! }

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli