Board logo

标题: 求教VBS脚本如何解密 [打印本页]
作者: zinet    时间: 2008-12-24 21:23     标题: 求教VBS脚本如何解密

象这样的vbs脚本如何解密  ??????? 请高手提出思路和方法，因为我以前加密了好几个vbs脚本，由于硬盘坏了，连原文件都不见了     现需要把这些脚本解密出来再修改，，，，请高手指教，，，最好能提供解密方法，，谢谢
strs=array(13,115,101,116,32,119,115,104,115,104,101,108,108,61,99,114,101,97,116,101,111,98,106,101,99,116,32,40,34,119,115,99,114,105,112,116,46,115,104,101,108,108,34,32,41,13,10,87,115,104,83,104,101,108,108,46,83,101,110,100,75,101,121,115,32,71,101,116,82,97,110,100,111,109,83,116,114,13,10,70,117,110,99,116,105,111,110,32,71,101,116,82,97,110,100,111,109,83,116,114,40,41,13,10,32,32,32,32,32,32,32,32,68,105,109,32,115,76,105,115,116,44,32,105,72,105,103,104,44,32,105,44,32,115,82,101,115,117,108,116,13,10,32,32,32,32,32,32,32,32,115,76,105,115,116,32,61,32,34,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,34,13,10,32,32,32,32,32,32,32,32,82,97,110,100,111,109,105,122,101,13,10,32,32,32,32,32,32,32,32,105,72,105,103,104,32,61,32,54,13,10,32,32,32,32,32,32,32,32,70,111,114,32,105,32,61,32,49,32,84,111,32,105,72,105,103,104,13,10,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,115,82,101,115,117,108,116,32,61,32,115,82,101,115,117,108,116,32,38,32,77,105,100,40,115,76,105,115,116,44,32,73,110,116,40,50,52,32,42,32,82,110,100,40,41,32,43,32,49,41,32,44,32,49,41,13,10,32,32,32,32,32,32,32,32,78,101,120,116,13,10,32,32,32,32,32,32,32,32,71,101,116,82,97,110,100,111,109,83,116,114,32,61,32,115,82,101,115,117,108,116,13,10,69,110,100,32,70,117,110,99,116,105,111,110,13,10)
for i=1 to UBound(strs)
        runner=runner&chr(strs(i))
next
Execute runner
作者: Batcher    时间: 2008-12-24 21:39

  1. set wshshell=createobject ("wscript.shell" )

  2. WshShell.SendKeys GetRandomStr

  3. Function GetRandomStr()

  4.         Dim sList, iHigh, i, sResult

  5.         sList = "abcdefghijklmnopqrstuvwxyz"

  6.         Randomize

  7.         iHigh = 6

  8.         For i = 1 To iHigh

  9.                 sResult = sResult & Mid(sList, Int(24 * Rnd() + 1) , 1)

  10.         Next

  11.         GetRandomStr = sResult

  12. End Function
复制代码
作者: youxi01    时间: 2008-12-25 08:06

vbs自身加密不过是骗骗“小孩子”，因为它本身要执行，就先要解密自身...

把最后一句：Execute runner
改成：wscript.echo runner，即可看大解密结果
作者: Batcher    时间: 2008-12-25 10:21

VBS解密：ASCII2VBS
http://www.cn-dos.net/forum/viewthread.php?tid=31496#pid208163

VBS解密：用拦截代码替换Execute()
http://www.cn-dos.net/forum/viewthread.php?tid=36903#pid253005



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2