QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3947|回复: 4
打印 上一主题 下一主题

一个很有趣的小工具:Exe2swf

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-3-20 13:46 |只看该作者 |倒序浏览
|招呼Ta 关注Ta

来源:lam's blog

* b+ v2 R0 X$ o! ?

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

. ~) g5 C2 E4 o! t) u% U& T

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

; O" B; K. Q! E/ Z3 k- h+ m

软件名称:exe2swf + [# K1 g: ?3 k" h适用系统:WIN 9x/ME/2000/NT 3 m; I h7 {/ r# A$ I7 q6 H文件大小:11K # S/ v6 o7 e- i. P/ H8 S% A文件说明:FLASH格式文件转换器为了防止有人在可执行的FLASH格式文件(.exe)中夹插木马,或者用flash图标的木马冒充flash文件,编写了一个简单的工具

6 z$ V t- O7 i8 n

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

7 Q4 x" w* x: F0 ?& T

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

: ?- H5 T; O4 d# h

作者:海娃

; E/ c- V; t! L

用法

' f( C# D7 b# |+ r, ]
    ) j6 n" e" K K# e( J9 F+ F3 U
  1. 将下面代码存为 exe2swf.vbs $ ~; Y2 l* p+ s o4 B
  2. 将exe格式的flash拖放在此文件上,即可生成swf文件,
: W6 j0 C6 g( M Q" P

6 U0 d! w0 t: M) M! }& Y9 E'haiwa@http://www.51windows.Net 6 G/ |3 h) Y3 b; N: ?+ E( e* ~' T'感谢jimbob提供帮助. * o: j: T% F6 Q8 K; L/ ^dim AsoR,FlashFileName / {' i3 C# P. FSet ArgObj = WScript.Arguments

+ }5 K4 f' V2 Q7 s% M1 v1 h+ |

dim PositionStart,OKed,Tag,EndSize , K, i7 Q* b4 S9 o7 r+ qPositionStart = 920000'flash 4的播放器的大致字节数 6 U2 N* f" b' M! SEndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 ' s9 h( }% c* L3 ^FlashFileName = ArgObj(0)'传递路径

. z$ ^5 n# k. }# s: i6 ?. v3 ?

set AsoR=CreateObject("Adodb.Stream")! }* @" w3 o, w) Q6 H6 `0 l AsoR.Mode=3 / F3 m" b/ G' J- IAsoR.Type=1 : \, y8 ~$ n: c- d% R" Q; P3 PAsoR.Open : _( E# K8 I& ]8 Y set AsoW=CreateObject("Adodb.Stream") / A6 {. ^2 o1 z) `AsoW.Mode=3 7 D( F, c# ^; o0 L! C AsoW.Type=1 1 I1 C5 o& X Y, iAsoW.Open6 j: V! Y# q: V5 k4 l( U AsoR.LoadFromFile(FlashFileName)

5 n# q0 f. E: y8 N. H& l

OKed = true ' G k0 F* I0 L3 _; xdim filesize + ?3 x2 L: Q6 Q- lfilesize = AsoR.size

! W# }' H# z' ~- k2 `$ v# a' Z) ?2 D

if filesize>ositionStart then 1 Z: o" r( |$ X4 a. k while OKed, u7 j* z- j* @+ H AsoR.Position = PositionStart# s0 E4 v! l6 O9 D Tag = Bin2Str(AsoR.read(20))6 ]) V4 d, f! v; M/ U6 ] if instr(Tag,"0000000") >0 then ' n# G6 ~/ i' b% C8 H/ k. e2 B PositionStart = PositionStart + 1 . ?7 |3 s% @& K else 6 U L" V5 a5 ]: T' p5 P ^! N PositionStart = PositionStart + 202 W& A+ z% Y9 ^% P0 p& J% k+ H. c end if% Z# Y3 H/ h% H$ P if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then: V% [- ], n0 L2 P8 C- g3 L OKed = false ' O4 a7 c* [: T$ j6 \; D# Z end if5 ] _$ |+ Q4 q7 h0 ? O 'if PositionStart > filesize then * W$ V# T: ~. ^/ c$ B ' OKed = false 1 S z, C! U0 X3 g/ _ 'end if: K4 M- B+ c! x6 I- `' [/ a wend0 j/ Z2 k- D$ d! c+ w0 B else ) X! m9 b( z6 f- V0 \ msgbox "文件错误" # v( ]6 s! f+ Y' {end if ( ]8 Y8 i, \' a/ |/ H" @PositionStart = PositionStart + 16 5 l7 j2 H" b/ R1 ^9 e'msgbox PositionStart; v' n" k0 o3 c- ?2 N! q: Z5 A: w AsoR.Position = PositionStart# x& }# e8 e' ?, P& U! \ AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))

6 L+ H$ Y& Q0 U q

'新文件名/ ^3 b) Z- ]4 `! y+ A% {8 R dim newFileName7 k# O, h; M' Z 'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf"3 I C* x5 | R newFileName = FlashFileName & ".swf"

2 x- v& w# z7 n& e- ]6 x

Set fso = CreateObject("Scripting.FileSystemObject"): C L+ i9 L* y! @, i If (fso.FileExists(newFileName)) Then! o2 y& E9 [. r) z2 l; g3 n overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本") 1 ~& A- J' \& W, W2 ` if overwrite=6 then$ ?+ x5 M) d+ f! ?' g4 Y( G8 l- Y AsoW.SaveToFile newFileName, 2 @: g$ Q6 k+ K, R: r else, x0 B( U1 C) S' g& U) ~ msgbox "操作被取消",0,"exe2swf脚本" # L0 k) D9 z H end if $ f9 O+ l4 |; p9 X7 H: Y( m" L+ `. celse f4 h: K" R* a8 f( [/ ] AsoW.SaveToFile newFileName, 1 & S |' S: N$ l* l; ~" Oend if

) u7 d1 u6 i9 [) d& x- W5 t. `+ I

AsoR.close 1 k" i- u' d; U7 m& z1 a: s4 c, hset AsoR=nothing$ F4 O, C" q6 z# o- {0 {" ?. h AsoW.close5 Y: O, m4 b% [) t, | set AsoW=nothing

) f! ?& S* d6 i9 a3 E+ p! C+ t

Function Bin2Str(Bin) * c% q/ x9 F- W L- i& x! `( p Dim I, Str $ B4 R1 W- y1 C r For I=1 to LenB(Bin) / m, ~; Z- h7 s& s clow=MidB(Bin,I,1)1 D5 V4 U4 K& |/ ]# J( n if ASCB(clow)<128 then ) ^% D& W( F1 n; a( F4 r$ V, ^ Str = Str & (ASCB(clow))- Q8 [% B, {! q* g- W3 C else ) C1 N( p- ^2 F! C# @# ? I=I+1 " S/ [% t8 i9 {/ a8 A5 @# J6 w if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow))3 M* W% L. [7 h# [3 ^ end if $ @* l. f+ I( S2 s% t1 E' U+ g9 t Next . }5 K1 s3 Z& o) E6 G Bin2Str = Str! Y1 ?. }7 t$ J! y- c End Function

/ }5 l; Z/ Y6 v2 A3 E( j# N+ I1 k4 p

% C5 Z4 } q1 P) z" \

zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信

7

主题

5

听众

1162

积分

升级  16.2%

  • TA的每日心情
    开心
    2012-12-10 22:28
  • 签到天数: 6 天

    [LV.2]偶尔看看I

    新人进步奖 最具活力勋章 发帖功臣

    回复

    使用道具 举报

    3

    主题

    5

    听众

    1619

    积分

    升级  61.9%

  • TA的每日心情
    开心
    2016-2-29 15:00
  • 签到天数: 9 天

    [LV.3]偶尔看看II

    新人进步奖 最具活力勋章 发帖功臣

    回复

    使用道具 举报

    413009449        

    0

    主题

    4

    听众

    43

    积分

    升级  40%

    该用户从未签到

    回复

    使用道具 举报

    lynli 实名认证       

    17

    主题

    4

    听众

    266

    积分

    升级  83%

  • TA的每日心情
    郁闷
    2012-2-11 20:32
  • 签到天数: 7 天

    [LV.3]偶尔看看II

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-8-9 03:47 , Processed in 0.434204 second(s), 76 queries .

    回顶部