昨天那個病毒的加密確實很恐怖，我不是高手，寫不出那么高級的加密。但是受病毒第一層加密的啟發(fā)，進(jìn)行簡單的加密還是不難的。當(dāng)然這種低級的加密只能拿來騙騙一些垃圾的殺毒軟件。使用了msxml2.xmlhttp和adodb.stream對象的VBS腳本很容易被殺毒軟件認(rèn)為是病毒，不明真相的同學(xué)一看報毒自然就不敢運行了。簡單加密以后應(yīng)該可以繞過比較垃圾的殺毒軟件。
下面是加密程序，原理很低級，讀取源文件的所有代碼并計算Asc值后寫入，Execute用Chr還原后的代碼。
復(fù)制代碼 代碼如下:
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=newdataasc(mid(data,j,1))
Else
newdata=newdataasc(mid(data,j,1))","
End If
Next
ASCdata=newdata
End function
使用方法：直接將需要加密的VBS腳本拖動到這個加密程序文件上，會自動生成加密后腳本的txt文件。
原文：http://demon.tw/programming/vbs-simple-encrypt.html
您可能感興趣的文章:- VBS加密解密源碼(UserAccounts.CommonDialog) 腳本之家修正版
- VBS加密與VBE解密實現(xiàn)方法
- VBS加密免殺器 下載
- VBS加密14法你會幾種 VBS加密免殺淺談
