一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

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

% O) x$ X1 r, C# s+ j. M7 Q

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

9 o! J6 o/ q& d- b& a

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

' ]$ F2 u8 b/ W

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

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

作者：海娃

' V- m6 T% r1 H5 F$ Z

用法：

, O8 K3 ]' q" q. A+ k

+ u/ U+ C* O K( s' ?/ q& L
1. 将下面代码存为 exe2swf.vbs 2 i3 X7 c$ E; O( K) W
2. 将exe格式的flash拖放在此文件上，即可生成swf文件，

'haiwa@http://www.51windows.Net , v# g4 }" e7 Q" p8 S6 {+ |'感谢jimbob提供帮助. 1 M6 V* D: X0 {dim AsoR,FlashFileName / W, |0 X6 r# _; ]9 @Set ArgObj = WScript.Arguments

' c* Y' C* O) c& F* Z: f( D

dim PositionStart,OKed,Tag,EndSize 0 T" b6 t7 S; |& W. Y* {) c. T4 {PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径

% c2 z7 L+ s7 j$ P. B9 M; q

set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 & X7 ]4 h* e7 S+ V$ E2 f7 h7 dAsoR.Type=1 * E9 [4 e, \2 b' s0 |AsoR.Open set AsoW=CreateObject("Adodb.Stream") 2 b% z5 ?, r$ W8 w, o' WAsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName)

OKed = true 4 }+ |; K) q, m: Rdim filesize $ f6 H- ~/ Q. _; T* J& N- @filesize = AsoR.size

/ W6 H, n, [- f2 I$ Q

if filesize>ositionStart then while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) - O2 x) f9 J2 G. x3 G8 D if instr(Tag,"0000000") >0 then v4 K: B* p8 [4 j$ L/ q PositionStart = PositionStart + 1 ! m0 ^8 @! j& y9 ` else PositionStart = PositionStart + 20 ) m1 m. Y: L8 l end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then 1 D7 b# v# M3 g% G; w* a OKed = false end if 'if PositionStart > filesize then ; {' k' X1 R0 K9 Y ' OKed = false 'end if wend else msgbox "文件错误" 3 L. p8 x+ v; u0 V+ z( _: Oend if PositionStart = PositionStart + 16 'msgbox PositionStart AsoR.Position = PositionStart ( o$ N, K2 ~0 Q+ w. u n7 HAsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName " P \4 U9 r! w; v' L'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" newFileName = FlashFileName & ".swf"

9 s7 r4 c: ^1 ~2 a

Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(newFileName)) Then ! l& F0 L( d0 C) f5 a overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") if overwrite=6 then AsoW.SaveToFile newFileName, 2 7 g8 m4 I; y1 f0 W else msgbox "操作被取消",0,"exe2swf脚本" end if else * h& D+ a. N0 j7 o" v3 h AsoW.SaveToFile newFileName, 1 " }& Q& ~9 A! h2 |1 Y4 vend if

; T0 ^+ t/ l) F @+ q, s

AsoR.close set AsoR=nothing AsoW.close set AsoW=nothing

Function Bin2Str(Bin) # q, g6 U/ T, x y7 c Dim I, Str : w6 ?+ d' H. {9 X For I=1 to LenB(Bin) ! t! Z9 k4 ]3 K clow=MidB(Bin,I,1) ! l. ]: z& y: Y1 w) f4 j: V if ASCB(clow)<128 then Str = Str & (ASCB(clow)) " `: q) `' n8 {2 g9 G else # p3 k2 y' \4 X. @ I=I+1 ( G3 j5 ^7 o/ K$ b' R if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) end if Next Bin2Str = Str End Function

8 t F) w+ ?! i5 G4 {& x6 s/ |

4 q3 V( H3 T, l7 R" s4 T

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli