一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

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

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

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

1 J8 y- d! Q0 |' |/ I" ]. M$ M* w

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

作者：海娃

用法：

# `3 t' m% d& {5 y! Q
1. 将下面代码存为 exe2swf.vbs ; B# H9 l5 r7 `. G
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

'haiwa@http://www.51windows.Net ; o1 H/ W& C2 W# p8 S'感谢jimbob提供帮助. dim AsoR,FlashFileName Set ArgObj = WScript.Arguments

, [) b. E5 ?- F: W

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 % i: Z5 \( j, d; Z+ SEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

6 g9 ]7 ?3 _' H

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 . {9 r. C# i9 G- v0 G6 GAsoR.Type=1 . q) l9 K6 m( w; }9 cAsoR.Open ; \1 `, W. R( r' kset AsoW=CreateObject("Adodb.Stream") 1 {3 }" J& x: |# ]AsoW.Mode=3 * f* w* q) e/ U: D: ^6 Q kAsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)

$ a" @ i9 ?; W$ P$ O- ^* y- ?

OKed = true ! v9 M6 u" w& q# O- \dim filesize filesize = AsoR.size

8 u$ @2 v, A. R6 F3 z1 {

if filesize>ositionStart then * o* m, H, I0 r5 K" C while OKed $ u+ [$ t y- `2 P) T AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) 2 C8 p) l3 I; H' W7 } if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 ! a5 @# _. X+ |0 M: P7 W3 ]5 F5 n4 q else " ~, t) z5 R4 i PositionStart = PositionStart + 20 . y& J# V) |! ] end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then , f( K. ~! o1 k3 O5 D OKed = false end if 3 d# J9 ^+ s1 q; J, R& ` 'if PositionStart > filesize then ' OKed = false 'end if wend - ?( l) {0 y+ [3 _( o3 L# gelse 8 y; Q6 k" U/ J$ V W msgbox "文件错误" end if 7 t2 k" l1 ]/ x' ?; y. GPositionStart = PositionStart + 16 'msgbox PositionStart 2 ~" J. h$ g0 w9 J% t; Q" ], RAsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

* q4 ?* H. s+ J6 c

'新文件名 h( x' C3 u- w2 K; [, A3 q% Pdim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" 2 x& p9 K4 a' m) vnewFileName = FlashFileName & ".swf"

4 A; O$ L0 G" R

Set fso = CreateObject("Scripting.FileSystemObject") 5 |+ I, Z. T9 x p( p8 j, UIf (fso.FileExists(newFileName)) Then 9 \5 H4 ?6 X: b. {- o overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 4 e! |1 R3 _! ^ else , ?% V8 @& m3 D$ w8 m5 \$ |% K6 b msgbox "操作被取消",0,"exe2swf脚本" 8 k( e: U( N8 M5 f" x) g end if else AsoW.SaveToFile newFileName, 1 9 ?2 B' y/ K% `4 @end if

AsoR.close set AsoR=nothing 9 H, E8 ], G/ [- x& w7 QAsoW.close set AsoW=nothing

: X; _0 `/ K% k( |. ~0 H: m

Function Bin2Str(Bin) Dim I, Str 7 R0 L, p: E8 ?% l For I=1 to LenB(Bin) clow=MidB(Bin,I,1) if ASCB(clow)<128 then # i4 B7 ~+ P6 E' f9 |* E Str = Str & (ASCB(clow)) + g% c) }: a1 f" I! H0 b+ |" g& n else : ?% d9 \/ J2 ` I=I+1 1 Y% x+ u' A4 h* ? if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) & K, q) l; ?: }) c end if Next ( x" c4 {# Z1 x8 R" J' Y9 ^1 D Bin2Str = Str End Function

9 q6 A# x; V1 M; Y" |4 r$ ^6 \

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli