又一个VBS病毒源码的解密

在解密暴风一号病毒的时候，曾经搜索到看雪的一个帖子，楼主说的也是暴风一号的解密。但是下面有人回了一个

对于病毒来说这个代码写得很啰嗦，没什么功能，连后台都没有，发布出去就是个死马
该让别人看不懂的地方一点也没有处理 鉴定完毕
你兴趣把这个解出来http://www.cn-dos.net/forum/viewthread.php?tid=39994&fpage=1&highlight=vbs
带后台的，支持远程后台控制VBS更新  支持后台命令让VBS操作你所实现的命令 比如：根据判断进程来下载木马。
这个VBS加了好几层密，全是手动加密 最后一层有点小难度，解完后的原码，你根本看不懂，不花点时间做点笔记根本不知道是什么意思

当时点进去看了一下，尝试着解密了一下，发现没有想象中的简单，就不管了。最近闲得慌，又拿出来看了一下，这次终于解密出来了。这个VBS病毒十分的强大，嵌套了好几层的Execute语句，即使最后解密出来的明文都很难看得懂，暴风一号和它比起来真的是小巫见大巫了。写病毒的人绝对是VBS高手中的高手，解密完这个病毒，我再也不敢说我会VBS了。

下面是解密过程，源代码和中间代码下载地址在文章末尾给出，请先下载再往下看。解密的主要思路是把Execute语句用下列代码替换

Dim fso, file
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.OpenTextFile("filename.vbs",2,True)
file.Write code
file.Close

其中filename为文件名，code为要Execute的代码。

1、病毒的源代码是src.vbs，是将数组中的数值用Chr函数转化成代码后Execute，所以我们将Execute用下面代码替换，保存为a.vbs并运行，得到b.vbs

Dim fso, file
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.OpenTextFile("b.vbs",2,True)
file.Write sts
file.Close

2、打开b.vbs，找到关键代码execute(uc(lO+qO))，将其用下面代码替换，然后运行，得到c.vbs

Dim fso, file
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.OpenTextFile("c.vbs",2,True)
file.Write uc(lO+qO)
file.Close

3、打开c.vbs，像上面一样将关键的execute代码替换后运行，得到d.vbs

4、打开d.vbs，终于发现看得懂的正常代码了，但是发现代码出奇的少。仔细一看，发现这段代码又调用了前面得到的代码（注：因为实际上只存在src.vbs中的一句execute，虽然我们人为将每一步得到的代码分开了，但是实际运行时前面的代码和后面的代码是在一起的），所以我们要把前面的代码加上去，注意不要忘记了function er(sco)函数。加上去后的文件保存为e.vbs

5、革命尚未成功，同志还需努力。仍然是替换掉关键的execute语句，需要注意的是function gt()等等一堆函数的格式部分（即function……end function）也是最后代码的一部分，也要将它们写到文件中。那么多函数要改，一个个手动改会累死的，好在EditPlus支持正则表达式查找替换，修改好的文件另存为f.vbs

6、下面最后一步了，运行f.vbs，得到final.vbs，就得到明文代码了，好好享受成功的快感吧

不要高兴的太早了，其实就算得到明文代码你也不一定看得懂。如果看得懂应该就算得上VBS高手了。

[download id=28]

随机文章:

1. 用正则表达式匹配浮点数
2. 使用Rundll32运行DLL中的函数
3. 用VBS下载国家地理每日一图
4. Chrome用 –proxy-server 设置代理服务器
5. VBS统计网络流量

这篇文章发布于 2010年07月23日，星期五，23:01，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。