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帮助里的原例子。