一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

+ u. `8 m0 O/ s5 S+ g) a& M

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

1 O# ^6 D9 r5 {+ x1 l

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

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

' @9 J; P$ X0 f

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

S* j. ^( j" F* M

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

8 h# F1 J" u' P0 @; G4 {9 c6 x3 U

作者：海娃

* _ c; F: d# M2 ]# `

用法：

% n1 l6 }# F6 `, w# H9 {

) ~! \- h6 l4 }& O8 F1 {% l% i
1. 将下面代码存为 exe2swf.vbs % N! ?9 ~" q" ]5 U( ~, b `
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. / t# u% l0 H- B% r* jdim AsoR,FlashFileName % @5 x E# h' W2 ]" x8 h2 T' vSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 + B- f& Q7 V( B) z$ V& l$ _EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 A4 L7 x! P9 Y8 ^AsoR.Type=1 " h6 \0 p/ O- m0 rAsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 ~2 m& c" c# ~AsoW.Type=1 & \7 g0 `: M# @AsoW.Open / j* J" p/ j7 u' }* ]AsoR.LoadFromFile(FlashFileName)

3 x2 b# h% s6 F; _" l$ u

OKed = true $ _; m* `, I, L- N+ s' M: k# t0 }dim filesize filesize = AsoR.size

8 W4 Z1 k! N! o1 s2 ^

if filesize>ositionStart then while OKed AsoR.Position = PositionStart * N3 }4 O3 ~/ W# g/ U3 O0 C; }, w( O Tag = Bin2Str(AsoR.read(20)) % n5 |# W8 a/ y* M6 U if instr(Tag,"0000000") >0 then , n5 x' W T! E# P0 J* e PositionStart = PositionStart + 1 else % L9 W! R7 | U; K* q PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then & `! x9 ~0 r, G3 Z1 c/ L% ^ OKed = false ; z) @) l' z9 a$ A6 s end if . s# V7 K7 W8 W* H% h9 i 'if PositionStart > filesize then ' OKed = false 'end if wend 7 E: E; N z6 Q$ b: H/ f7 Q2 Celse * ^: M' [2 `3 U1 o( Y+ x: L7 Y' c msgbox "文件错误" 3 |$ C( u' I8 jend if : O3 J( \ Y7 O) ]2 n: MPositionStart = PositionStart + 16 'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 - u: n) ?, _. u& r( D2 @dim newFileName 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" % Y3 Q; T+ \* X0 fnewFileName = FlashFileName & ".swf"

k% w* @* U' @3 A

Set fso = CreateObject("Scripting.FileSystemObject") ( g5 g: W* s' C/ S3 oIf (fso.FileExists(newFileName)) Then ; E! f7 a t' O overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 , I. d3 K6 a7 L2 j% ~ else : L3 z) ?8 @# ~* {9 Q msgbox "操作被取消",0,"exe2swf脚本" end if else AsoW.SaveToFile newFileName, 1 end if

6 a' M2 L5 t9 X; K

AsoR.close ' |" u, Y% j" x, p `, ~2 Gset AsoR=nothing AsoW.close set AsoW=nothing

4 J! V- v6 ~9 W8 h, r8 ^

Function Bin2Str(Bin) 5 v* d& F$ X$ Q& y; h. F7 ? Dim I, Str For I=1 to LenB(Bin) ' ] {2 B l0 p. Z% O r+ @ clow=MidB(Bin,I,1) " ^# ^/ D/ E: z% Z) C' [* X' R if ASCB(clow)<128 then ( i9 D) T$ T. U3 e8 O Str = Str & (ASCB(clow)) ' t% T: i% |/ d# ~4 T# { else , V! I7 J/ {$ Z5 @ I=I+1 6 N3 o: }8 A6 B: L9 u" y. _4 e if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if Next Bin2Str = Str , Y* r* e+ r- A/ }/ w( iEnd Function

N2 N1 ]# x0 S. J+ W6 a& v, i

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli