简单的VBS加密实现代码

153 阅读 0 评论 101 点赞

我是靠谱客的博主搞怪美女，最近开发中收集的这篇文章主要介绍简单的VBS加密实现代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加密的启发，进行简单的加密还是不难的。当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件。使用了msxml2.xmlhttp和adodb.stream对象的VBS脚本很容易被杀毒软件认为是病毒，不明真相的同学一看报毒自然就不敢运行了。简单加密以后应该可以绕过比较垃圾的杀毒软件。

下面是加密程序，原理很低级，读取源文件的所有代码并计算Asc值后写入，Execute用Chr还原后的代码。

复制代码代码如下:

 
On Error Resume Next 
Set argv = WScript.Arguments 
If argv.Count = 0 Then WScript.Quit 
Set fso = CreateObject("scripting.filesystemobject") 
With fso.OpenTextFile(argv(0),1) 
data = .ReadAll : .Close 
End With 
With fso.OpenTextFile(argv(0)&".txt",2,True) 
.WriteLine "data="&Chr(34)&ASCdata(data)&Chr(34) 
.WriteLine "Function ChrData(Data)" 
.WriteLine "MyArray = Split(Data, "","", -1, 1)" 
.WriteLine "For each OldData in MyArray" 
.WriteLine "Newdata=NewData"&Chr(38)&"chr(OldData)" 
.WriteLine "Next" 
.WriteLine "ChrData=NewData" 
.WriteLine "End Function" 
.WriteLine "execute Chrdata(data)" 
.Close 
End With 
MsgBox "OK!",,"Encrypt" 
Function ASCdata(Data) 
num=len(data) 
newdata="" 
For j=1 to num 
If j=num then 
newdata=newdata&asc(mid(data,j,1)) 
Else 
newdata=newdata&asc(mid(data,j,1))&"," 
End If 
Next 
ASCdata=newdata 
End function 