㈠ 怎么能加密自己做的vbs啊 就是让别人不能编辑那种
vbs是解释型脚本文件 再怎么加密 还是得还原代码 才能被解释器读取识别 所以并没有什么用 建议你将vbs代码稍微修改下变成vb6代码 生成EXE程序吧
㈡ 求求哪位大佬给这个加密vbs的文件写个解密吧！（加密代码如下）
不用什么专门解密工具，直接将最后的eXeCUtE换成“wscript.echo”就可以了
㈢ VBS的加密跟解密
VBS加密:复制以下代码，用记事本另存为，“VBS加密” 保存。set fso=createobject("scripting.filesystemobject")scf=inputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs")set op=fso.opentextfile(scf)dow=13do 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"loopop.closeset 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
㈣ VBS怎么加密啊
很简单，你只需下载一个“VBS转换EXE工具”就行了，把VBS源码生成EXE程序，这样是不能看到EXE中的内容的，例如这个工具：“ExeScript”
㈤ 怎样把一个VBS文件加密，使得需要口令才能执行
mima="123"i=0doifi>=3thenwscript.quita=inputbox("请输入密码"&vbcrlf&"您还有"&3-i&"次机会")ifa=falsethenwscript.quiti=i+1loopuntila=mimamsgbox"密码正确"
上面的代码可以实现你要的功能，但密码一眼就能看见，可以使用下面的脚本代码进行加密。
OptionExplicitDimse,fsoDimargv,file,strSetse=CreateObject("Scripting.Encoder")Setfso=CreateObject("Scripting.FilesystemObject")ForEachargvInWScript.ArgumentsSetfile=fso.OpenTextFile(argv)str=file.ReadAllfile.Closestr=se.EncodeScriptFile(".vbs",str,0,"")argv=Left(argv,Len(argv)-3)&".vbe"Setfile=fso.OpenTextFile(argv,2,True)file.Writestrfile.CloseNextMsgBox"OK",vbInformation
最后生成的文件可以下载附件。要破解就有一定难度
㈥ VBS文件怎么加密才不会被认定为病毒
我推荐您使用超级加密3000。1 下载安装超级加密3000。2 然后在需要加密的文件上单击鼠标右键选择加密。3 在弹出的文件加密窗口中设置文件加密密码就OK了。
㈦ 如何将vbs文件加密，让它无法用记事本无法查看，一打开是乱码。不必要加密强度太高，一般人不会就行！
满意请采纳，谢谢。
VBS加密解密，原理很简单，而且一般人也看不懂，满足你的需求。
PS:也是用VBS写的。
㈧ VBS文件，或是批处理文件如何加密（输入密码才能运行）
楼上提供的代码或思路是经不起源码的查看的批处理加密至今未有一个完美的方案建议楼主将VBS或批处理脚本用winrar或7-zip之类的压缩软件压成一个带密码的自解压程序，设置查看文件和解压时需要输入密码，同时解压后自动执行包内脚本，这样就可以变通地实现你的要求了
㈨ 想用VBS加密文件夹
楼上的autorun.inf不可以用,那个只适用于驱动器根目录.LZ可以试试使用folder.htt文件,里面加上vbs代码,这样一打开文件夹就运行了.关于folder.htt可以一下.这也是最后的办法了.因为vbs本身对文件系统没有任何能力控制访问权限,只有在打开文件夹的 时候,自动运行其中的folder.htt来达到运行脚本的目的.
