VBS如何實現加密

小編給大家分享一下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

使用方法：直接將需要加密的VBS腳本拖動到這個加密程序文件上，會自動生成加密后腳本的txt文件。

以上是“VBS如何實現加密”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！