簡單的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檔案。
原文：http://demon.tw/programming/vbs-simple-encrypt.html