一个很有趣的小工具：Exe2swf

韩冰

来源：lam's blog

f8 G3 Y |1 T9 l) g

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

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

7 i" x6 P4 j# [) B3 ~9 I% R

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

$ I. w9 g: K* D+ D! D. Y

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

7 s, R2 ^$ M4 T- j% [

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

作者：海娃

7 z1 K# T9 L$ H/ V, [) [# X

用法：

: Y1 i: S9 T/ r) `5 O Z: `; O

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

'haiwa@http://www.51windows.Net ! M* p$ p: M$ H7 h* k: L'感谢jimbob提供帮助. dim AsoR,FlashFileName p" X7 N) u g5 U, V5 @$ Z0 ]2 YSet ArgObj = WScript.Arguments

dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 $ W1 e! |5 W& R5 v1 gFlashFileName = ArgObj(0)'传递路径

set AsoR=CreateObject("Adodb.Stream") / Y6 v6 V0 G& t R4 W9 pAsoR.Mode=3 AsoR.Type=1 AsoR.Open set AsoW=CreateObject("Adodb.Stream") 1 { P! G, j$ R& H [) U: Y n% vAsoW.Mode=3 AsoW.Type=1 / g4 W+ I6 K( R' z+ n, `. ~AsoW.Open ) s' I6 u0 Q& z- u6 Z9 tAsoR.LoadFromFile(FlashFileName)

, v$ E/ ^) l& O* ~

OKed = true dim filesize filesize = AsoR.size

3 S$ ~8 j0 P( d* n" q; e

if filesize>ositionStart then while OKed & } P1 h7 R) I$ w AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) % ^% e) T% j% V: F+ e if instr(Tag,"0000000") >0 then 2 J0 Z9 R, R' M6 N7 V4 X PositionStart = PositionStart + 1 8 C4 Q+ k) w& W# \/ v. i: C else PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then & _) ?) q7 X- _, x7 C OKed = false 1 i" u* z3 R8 Y5 ` end if 3 k* F5 W* u( s; Q% s8 m9 Z 'if PositionStart > filesize then 1 h- Y* ~) [5 f: \9 B! ` ' OKed = false 'end if wend 0 O1 g' I* X2 |0 m% Q! r' M+ delse - b' W9 |6 {9 c* A V$ T msgbox "文件错误" ( K( v1 \ h) Q6 L- ?( t9 }# `end if PositionStart = PositionStart + 16 4 Y: l* J4 H2 r8 w'msgbox PositionStart AsoR.Position = PositionStart AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名 dim newFileName ! a* k) C _/ S9 \. x'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf" ; Q. z; l1 d7 z; I: hnewFileName = FlashFileName & ".swf"

Set fso = CreateObject("Scripting.FileSystemObject") 0 ` }9 u9 p+ @9 EIf (fso.FileExists(newFileName)) Then overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") ' ? k$ [; n3 G! t if overwrite=6 then . Y+ ~5 y' s4 Z1 P9 w AsoW.SaveToFile newFileName, 2 t9 s/ s- ~: Y9 Z' h else msgbox "操作被取消",0,"exe2swf脚本" end if $ i0 }7 d" v/ ?! L. g& f# Lelse AsoW.SaveToFile newFileName, 1 end if

u- A. H: D" c3 a7 d0 }% ^8 L1 _% `/ B

AsoR.close set AsoR=nothing / ^: v2 }% C" c/ cAsoW.close ; p7 M3 R E( i( I+ x* Pset AsoW=nothing

Function Bin2Str(Bin) 0 S* }6 v2 @4 V1 ^' m Dim I, Str 4 q' O9 k. n6 z; M For I=1 to LenB(Bin) 4 w1 F# f2 e' G$ e# a1 g" F clow=MidB(Bin,I,1) & G% ?$ [8 l2 o if ASCB(clow)<128 then ) z5 Q" S3 ~* C3 X9 @7 h* ?2 |% q, k* W Str = Str & (ASCB(clow)) $ U6 q2 U. }% h* }1 C6 z else I=I+1 if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow)) 8 ^( l% D0 ^4 \1 R end if Next Bin2Str = Str 4 B* U0 I2 ^* e, w2 ~9 jEnd Function

& U! I& I! j2 \% e' t- u

% S& v7 `$ K1 t( s! S- @" s$ t' ?2 z. a2 |& o

540982016044

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

小旋风假

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

413009449

不知道有什么用

lynli