一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

( a! @; f5 Z; K1 w4 H3 a& B

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

& o8 L& e0 a+ G. o8 a

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

5 r$ i% n9 j" j% |4 t: e

软件名称：exe2swf : ^3 P% `, a' K- @适用系统：WIN 9x/ME/2000/NT : d/ ?. K7 O- ~; j' V$ |0 Y文件大小：11K : p7 q! q8 ~% z文件说明：FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马，或者用flash图标的木马冒充flash文件，编写了一个简单的工具。

) [( e# W5 p$ P; k8 `

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

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

; @/ g) H) M7 u, K

作者：海娃

用法：

5 \' l2 j, M- ^( E6 D* e# `

1. 将下面代码存为 exe2swf.vbs
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

5 b \/ N3 t3 ^: I* e: J4 S

'haiwa@http://www.51windows.Net '感谢jimbob提供帮助. 3 U9 q# C* {$ I; t! Qdim AsoR,FlashFileName 9 W8 X1 q1 _' ?( wSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 ; l& n( K V4 i6 u9 r4 n% K0 `FlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") 1 c; h) M) P5 a3 ZAsoR.Mode=3 AsoR.Type=1 AsoR.Open ' F0 f6 E% o" sset AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 . @! Z: h( e5 K5 k/ vAsoW.Type=1 - R4 x! @3 d, Y o5 o0 v( b+ sAsoW.Open AsoR.LoadFromFile(FlashFileName)

OKed = true / K3 W6 M F7 a3 S2 B3 M1 {dim filesize : s% Q/ [8 J1 Y) P0 d/ x% a$ Y- afilesize = AsoR.size

if filesize>ositionStart then 8 W. B1 s* C: q1 h m while OKed AsoR.Position = PositionStart ) D* d3 t; @: v- o3 E- z Tag = Bin2Str(AsoR.read(20)) 4 d( |; {9 p! A0 v* L if instr(Tag,"0000000") >0 then : [' {* c# |' R! ]; m PositionStart = PositionStart + 1 # H. [6 E, y- r$ C else PositionStart = PositionStart + 20 , S$ p) s% z0 q4 I2 Z0 H/ F end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then / A0 r0 z7 }6 D5 R OKed = false % q9 H: F+ i J- V/ y o end if 'if PositionStart > filesize then ' OKed = false 9 L9 I2 l6 e$ G. W3 ~, j l- R0 u 'end if " s, Y& e! I: V7 ]/ _; r wend . T. ?* D. k& G6 X, m. ielse 6 r+ R% O' S, @1 m msgbox "文件错误" ( x# x# C6 f6 m8 p; `end if PositionStart = PositionStart + 16 'msgbox PositionStart - c5 ?2 F! N; M9 r- @AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 9 B5 x/ q* S$ r- w: _* M1 Y5 Edim newFileName 6 q% a+ A2 g" c) }: \: R, A% }'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" / @. P t1 p. ~1 h+ D# @, Y, U3 EnewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then 3 {& t, E$ e7 { overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 else 4 q: q- A+ s* H8 e {% G msgbox "操作被取消",0,"exe2swf脚本" end if 0 Y( I* G# m! R! d! Xelse 7 n& x: v! p# E, |- `+ V, v AsoW.SaveToFile newFileName, 1 ; ]0 X. s6 ?6 t% n8 K9 q2 _end if

- s* w+ D8 `6 H7 x& m4 l& Y

AsoR.close $ I1 U+ n9 K. w6 q- n& `set AsoR=nothing AsoW.close ; ~6 e7 s! i0 ~/ i' j) e; a/ z2 ]6 C/ Q; ^set AsoW=nothing

$ [. b" o7 a0 {

Function Bin2Str(Bin) & Y+ L4 F- I9 F( |% V& l Dim I, Str " v& E" o: Z5 J For I=1 to LenB(Bin) / R3 _7 ]+ T: {" F5 _6 F. L clow=MidB(Bin,I,1) + a/ @" {2 _. z$ ^2 O if ASCB(clow)<128 then Str = Str & (ASCB(clow)) else I=I+1 $ h0 a! J$ d7 q( I; h: E: ] if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if 1 ], _' s0 |8 e0 A3 I; U Next , l7 l2 j+ [; r. S* r/ j; O0 I8 i Bin2Str = Str End Function

4 n" `( ~) L3 q

lynli

413009449

不知道有什么用

小旋风假

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

540982016044

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