一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

* q7 o) o) s% ]/ w" d

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

# d. r! h# ?- O7 P3 ^% ]" P% p n

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

软件名称：exe2swf 8 h% I$ K8 e/ x% Y适用系统：WIN 9x/ME/2000/NT * f; x2 L3 l( n" { Y1 z$ V+ y文件大小：11K 6 l7 l6 g6 q. ?0 L文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

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

/ B% V2 z; U3 v0 u+ P- X" R( |) ]

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

作者：海娃

用法：

3 r" u7 _; d! M" T
1. 将下面代码存为 exe2swf.vbs 5 b8 \# m/ @2 n( U# G6 \
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. dim AsoR,FlashFileName 5 \! p7 |; v1 I6 P9 R/ m5 CSet ArgObj = WScript.Arguments

3 n3 _4 r4 B4 d7 {9 `; e

dim PositionStart,OKed,Tag,EndSize ) K4 \( X, D- D" v) x# y( U0 EPositionStart = 920000'flash 4的播放器的大致字节数 8 M/ p3 c; A3 }# \' OEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

" O4 t6 ^6 ]( t, Y- f/ O* c: X

set AsoR=CreateObject("Adodb.Stream") / k5 u0 \/ \' a$ T$ KAsoR.Mode=3 AsoR.Type=1 ) C& s3 Z1 b1 X! XAsoR.Open % j% T9 R+ U/ i) U* ~# ~5 Hset AsoW=CreateObject("Adodb.Stream") ( S/ s6 i1 P6 I8 S! j( iAsoW.Mode=3 / f5 l8 i2 J, S5 S2 w/ R: _AsoW.Type=1 AsoW.Open 7 u: N: A/ T3 d' VAsoR.LoadFromFile(FlashFileName)

3 L' ]: q: `, W. Y3 e g

OKed = true dim filesize filesize = AsoR.size

" `/ z- p S0 \9 ?

if filesize>ositionStart then : J3 z- l* V: i& g8 O9 l8 N; f+ D while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) " Y8 \& E- w- k2 G c% u4 z$ Q if instr(Tag,"0000000") >0 then 5 a, a. [6 |5 @2 I8 T9 V PositionStart = PositionStart + 1 else & K; K. y4 X" c& i PositionStart = PositionStart + 20 end if / `9 d2 \3 V3 [3 ~0 k if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if 4 f7 |, M' B& j 'if PositionStart > filesize then ' OKed = false 'end if wend 2 w: k- h. n% x# V, z+ nelse 2 W) E" G: [0 K0 Z" I# A- k1 I; i msgbox "文件错误" - |) T. s" n1 c0 \) T* x, Y) yend if PositionStart = PositionStart + 16 # v7 c7 T. [9 ?/ }" T* g: _'msgbox PositionStart 6 g. N( T" |5 A4 H& @' K# Z- p% S j0 jAsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 8 h3 q. {; M2 t, |" Y( t2 O! tdim newFileName 4 a: l1 G& d; ?6 i" x3 M'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" - w! U) v' D% H' g' k, i6 K! P1 SnewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then ( e7 F0 G2 O% A7 }9 {/ {5 u overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 else & c5 W6 O: H8 U o5 d. K' U3 q msgbox "操作被取消",0,"exe2swf脚本" ) L H Y( V5 O; S end if else ; K* {; g' ~; \ AsoW.SaveToFile newFileName, 1 end if

$ n# Y9 ?" w: W2 B" c: D4 F( z" }, e

AsoR.close ) a0 k `8 @( o1 s7 ]! Dset AsoR=nothing , o, N' B& _% ~. D- _# w' sAsoW.close / k3 Q9 d1 t' j! Uset AsoW=nothing

Function Bin2Str(Bin) 5 S+ g: n! E- U Dim I, Str + N# y+ r/ H; l r2 I2 F For I=1 to LenB(Bin) 7 b( c8 E! C) O' y- X+ q4 f# ~ clow=MidB(Bin,I,1) if ASCB(clow)<128 then Str = Str & (ASCB(clow)) else I=I+1 9 J2 A7 \ m) T if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) / Z8 s8 g/ Q/ o3 i5 U# } end if Next Bin2Str = Str End Function

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli