A. 怎樣把一個VBS文件加密，使得需要口令才能執行
mima="123"
i=0
do
ifi>=3thenwscript.quit
a=inputbox("請輸入密碼"&vbcrlf&"您還有"&3-i&"次機會")
ifa=falsethenwscript.quit
i=i+1
loopuntila=mima
msgbox"密碼正確"
上面的代碼可以實現你要的功能，但密碼一眼就能看見，可以使用下面的腳本代碼進行加密。
OptionExplicit
Dimse,fso
Dimargv,file,str
Setse=CreateObject("Scripting.Encoder")
Setfso=CreateObject("Scripting.FilesystemObject")
ForEachargvInWScript.Arguments
Setfile=fso.OpenTextFile(argv)
str=file.ReadAll
file.Close
str=se.EncodeScriptFile(".vbs",str,0,"")
argv=Left(argv,Len(argv)-3)&".vbe"
Setfile=fso.OpenTextFile(argv,2,True)
file.Writestr
file.Close
Next
MsgBox"OK",vbInformation
最後生成的文件可以下載附件。要破解就有一定難度
B. VBS的加密跟解密
VBS加密:
復制以下代碼，用記事本另存為，「VBS加密」 保存。
set fso=createobject("scripting.filesystemobject")
scf=inputbox("請輸入要加密的腳本文件名","VBS加密程序","*.vbs")
set op=fso.opentextfile(scf)
dow=13
do while op.atendofstream=false
line=op.readline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)
next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
op.close
set op=fso.opentextfile(scf,2)
op.write "strs=array("&dow&")"&chr(13)&chr(10)&_
"for i=1 to UBound(strs)"&chr(13)&chr(10)&_
" runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
"next"&chr(13)&chr(10)&_
"Execute runner"
VBS解密
復制以下代碼，用記事本另存為，「VBSVBS解密」 保存。
on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
set file=fso.opentextfile(strLoadFile,1)
all=file.readall
file.close
s=instr(1,all,"next")
alls=mid(all,1, s+3 )
set file=fso.createtextfile(strLoadFile,8,true)
file.write alls
file.writeline empty
file.writeline"set fso=createobject("&""""&"scripting.filesystemobject"&""""&")"
file.writeline"set file=fso.createtextfile(wscript.scriptfullname,8,true)"
file.writeline"file.write runner"
file.writeline"file.close"
file.close
ws.run""""&strLoadFile&"""",0,true
msgbox"解密成功!",4096+64
end if
C. VBS加密解密問題
加密函數也就是ASCdata的作用就是將每個字元用asc函數轉換為相應的ASCII碼，並在後面加上逗號
我認為解密就是將這些ASCII碼用chr函數轉換為字元
Function Chrdata(Data)
Data = Split(Data, ",")
newdata=""
for x=0 to UBound(Data)
newdata = newdata & Chr(CInt(Data(x)))
next
Chrdata=newdata
End Function
如果是在網頁中，可用下面的方式調用
document.write Chrdata("32,32,32,32,-24156,-24156,-24156,32,-24156,-24156,-23635,32,-24156,-23635,-23635,-23635,-23635,32,-24156,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-23635,-23635,-23635,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-24156,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-24156,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-23635,-24156,-24156,-24156,-24156,32")
在網頁中顯示的結果是
··· ··－ ·－－－－ · －－－－· ····· ···－－ －··· ····－ －－－－－ －－－－· ····· －－··· ·－－－－ ···－－ －·· －－··· ····－ －···· －···· ·－－－－ －·· －·· ··－－－ －···· －·· －－··· ··－· ··－－－ ··－· ···－－ ·－ －－－－· －····
ASCII為32的字元是空格，最前面四個空格和最後一個空格沒有顯示出來
D. VBS實現解密功能
E. 求求哪位大佬給這個加密vbs的文件寫個解密吧！（加密代碼如下）
不用什麼專門解密工具，直接將最後的eXeCUtE換成「wscript.echo」就可以了
F. vbs寫的加密程序，誰能告訴我如何解密！謝謝！
給文件加密有3種方法： 1 用系統自帶的EFS加密，但要注意備份加密證書，另外在加密帳號下是看不到加密效果的。 2 用winrar的壓縮加密，但速度慢，操作麻煩。 3 用超級加密3000加密文件，超級加密3000採用先進的加密演算法，使你的文件加密後，真正的達到超高的加密強度，讓你的加密文件無懈可擊，沒有密碼無法解密。您可以根據自己的實際需求選擇一款屬於自己的文件加密方法。
G. 有可以加密解密vbs文件的東東嗎最好也是vbs的
vbs加密是徒勞的 一葉蔽目而已~你再怎麼加密你也得還原成編譯器可識別 自己加密 然後自己解密 你不覺得有點浪費時間么~真不想開源 就做成exe 用vb6編譯下你的代碼
H. 急求，用VBS腳本進行一種靠譜一點的加密解密演算法
用VBS的話不要有過多指望，只要人家能看到你的VBS代碼，就可以知道你的加密方法。
不過你可以將VBS編譯為exe。
如果可能，建議用AutoIt吧（幫助中自帶示例）。
SetobjArgs=WScript.Arguments
ForI=0toobjArgs.Count-1
WScript.EchoobjArgs(I)
Next
這是VBS幫助里的原例子。