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