解密用“变形”加密法加密的vbs

BowAngel

在网上流传着这样一种对VBS加密的脚本，比如：

1. 
   
2. for i=1 to 100
   
3.   n=n+i
   
4. next
   
5. msgbox n
   

复制代码

加密后变成：

1. 
   
2. strs=array(13,102,111,114,32,105,61,49,32,116,111,32,49,48,48,13,10,9,110,61,110,43,105,13,10,110,101,120,116,13,10,109,115,103,98,111,120,32,110,13,10)
   
3. for i=1 to UBound(strs)
   
4.         runner=runner&chr(strs(i))
   
5. next
   
6. Execute runner
   

复制代码

其实，这种方法确切的说不能叫“加密”，只能叫“变形”：
它的原理就是把原来的VBS代码中的每个字符的ASC码都读入到一个叫strs的数组中，然后把这个数组中所有元素通过chr函数，还原为原来的字符，再全部赋给一个字符串变量runner，最后用execute语句来执行字符串runner，也就是执行原来的VBS中的代码。

这样“变形”之后，如果只看“变形”后的代码，我想没有人能知道源代码到底是什么，除非它把标准ASC码表能倒背如流！这种方法，迷惑外行是可以的，不过毕竟不是“加密”，只要是对VBS稍微熟练一些的人，就有可能还原出源代码！请看以下代码：

1. 
   
2. set fso=createobject("scripting.filesystemobject")
   
3. '------------------
   
4. '插入Array数组
   
5. '------------------
   
6. for i=1 to UBound(strs)
   
7.   code=code&chr(strs(i))
   
8. next
   
9. set wfile=fso.opentextfile("code.txt",2,true)
   
10. wfile.write code
    
11. wfile.close
    

复制代码

这个就是破解的代码！很简单，只要把变形后的数组复制到这个代码的注释之间，运行后就能够还原出原来的代码！

1. 
   
2. set fso=createobject("scripting.filesystemobject")
   
3. '------------------
   
4. strs=array(13,102,111,114,32,105,61,49,32,116,111,32,49,48,48,13,10,9,110,61,110,43,105,13,10,110,101,120,116,13,10,109,115,103,98,111,120,32,110,13,10)
   
5. '------------------
   
6. for i=1 to UBound(strs)
   
7. code=code&chr(strs(i))
   
8. next
   
9. set wfile=fso.opentextfile("code.txt",2,true)
   
10. wfile.write code
    
11. wfile.close
    

复制代码

运行之后，打开code.txt，看到了什么？对，就是原来的代码！

Batcher

批处理解密破解已经加密的VBS
http://bbs.bathome.net/thread-3637-1-1.html