快捷導(dǎo)航

簡(jiǎn)單的VBS加密實(shí)現(xiàn)代碼

更新時(shí)間：2011年01月21日 14:38:43 作者：

下面是加密程序，原理很低級(jí)，讀取源文件的所有代碼并計(jì)算Asc值后寫入，Execute用Chr還原后的代碼。

昨天那個(gè)病毒的加密確實(shí)很恐怖，我不是高手，寫不出那么高級(jí)的加密。但是受病毒第一層加密的啟發(fā)，進(jìn)行簡(jiǎn)單的加密還是不難的。當(dāng)然這種低級(jí)的加密只能拿來(lái)騙騙一些垃圾的殺毒軟件。使用了msxml2.xmlhttp和adodb.stream對(duì)象的VBS腳本很容易被殺毒軟件認(rèn)為是病毒，不明真相的同學(xué)一看報(bào)毒自然就不敢運(yùn)行了。簡(jiǎn)單加密以后應(yīng)該可以繞過比較垃圾的殺毒軟件。

下面是加密程序，原理很低級(jí)，讀取源文件的所有代碼并計(jì)算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=newdata&asc(mid(data,j,1)) 
Else 
newdata=newdata&asc(mid(data,j,1))&"," 
End If 
Next 
ASCdata=newdata 
End function 