簡單的VBS加密實(shí)現(xiàn)代碼
更新時(shí)間：2011年01月21日 14:38:43 作者：
下面是加密程序，原理很低級(jí)，讀取源文件的所有代碼并計(jì)算Asc值后寫入，Execute用Chr還原后的代碼。
昨天那個(gè)病毒的加密確實(shí)很恐怖，我不是高手，寫不出那么高級(jí)的加密。但是受病毒第一層加密的啟發(fā)，進(jìn)行簡單的加密還是不難的。當(dāng)然這種低級(jí)的加密只能拿來騙騙一些垃圾的殺毒軟件。使用了msxml2.xmlhttp和adodb.stream對(duì)象的VBS腳本很容易被殺毒軟件認(rèn)為是病毒，不明真相的同學(xué)一看報(bào)毒自然就不敢運(yùn)行了。簡單加密以后應(yīng)該可以繞過比較垃圾的殺毒軟件。
下面是加密程序，原理很低級(jí)，讀取源文件的所有代碼并計(jì)算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腳本拖動(dòng)到這個(gè)加密程序文件上，會(huì)自動(dòng)生成加密后腳本的txt文件。
原文：http://demon.tw/programming/vbs-simple-encrypt.html
下面是加密程序，原理很低級(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
使用方法：直接將需要加密的VBS腳本拖動(dòng)到這個(gè)加密程序文件上，會(huì)自動(dòng)生成加密后腳本的txt文件。
原文：http://demon.tw/programming/vbs-simple-encrypt.html
相關(guān)文章
vbscript 三個(gè)數(shù)比較大小的實(shí)現(xiàn)代碼
由于樓主只是三個(gè)數(shù),所以不用復(fù)雜的冒泡排序法來排序,直接三個(gè)數(shù)比較就行了2009-06-06
ass2srt.vbs(ass/ssa批量轉(zhuǎn)換srt的腳本)
這篇文章主要介紹了ass2srt.vbs一個(gè)ass/ssa批量轉(zhuǎn)換srt的腳本,需要的朋友可以參考下2014-09-09
vbscript獲取文件的創(chuàng)建時(shí)間、最后修改時(shí)間和最后訪問時(shí)間的方法
這篇文章主要介紹了vbscript獲取文件的創(chuàng)建時(shí)間、最后修改時(shí)間和最后訪問時(shí)間的方法,本文通過FileSystemObject對(duì)象實(shí)現(xiàn),需要的朋友可以參考下2014-08-08
把任意文件轉(zhuǎn)成vbs文件的file2vbs的vbs代碼
文章作者：xiaolu [BST] 信息來源：邪惡八進(jìn)制信息安全團(tuán)隊(duì)（www.eviloctal.com） 這個(gè)不是exe2vbs 所有類型的文件都可以轉(zhuǎn)化的 不過限于string的大小 文件不能太大 我測試過3m的文件是可以的2008-05-05
記錄客戶機(jī)操作的VBS腳本2008-05-05
貌似網(wǎng)上很多人問怎么用VBS檢測U盤插入和彈出，其實(shí)這很容易實(shí)現(xiàn)，WMI賦予了VBS十分強(qiáng)大的功能。2011-01-01
先說說我都用VBScript做什么吧：ASP環(huán)境開發(fā)網(wǎng)頁時(shí)，用VBScript腳本，有些自定義函數(shù)可以直接在桌面上建個(gè).vbs然后直接運(yùn)行2008-12-12
Adsutil.vbs 是一個(gè) IIS 管理實(shí)用程序，它通過結(jié)合使用 Microsoft Visual Basic Scripting Edition (VBScript) 與 Active Directory 服務(wù)界面 (ADSI) 來處理 IIS 配置。該腳本應(yīng)通過隨 Windows 腳本主機(jī)一同安裝的 CScript 運(yùn)行2014-07-07
vbscript include的辦法實(shí)現(xiàn)代碼
vbscript本身沒有include這樣包含其他vbs文件的支持，在asp或html頁面里可以用<script ...這樣來包含一個(gè)vbs文件，如果是直接運(yùn)行的vbs腳本，就只有用其他辦法來代替這個(gè)功能了。2009-02-02
unpack.vbs...2006-06-06