加密vbs文件
❶ 博图vbs加密可以破解吗
一般是很难破解的
vbs脚本法：SetWshShell=Wscript.CreateObject("Wscript.Shell")，WshShell.RegDelete"HKEY_LOCAL_erations"，SetWshShell=Nothing将上面的脚本保存到文本文件里，文本文件扩展名由txt改名为vbs即可。
vbs文件执行的时候，双击即可。双击后再尝试安装软件，如果不再有重启提示，即为成功。
❷ VBS文件，或是批处理文件如何加密（输入密码才能运行）
楼上提供的代码或思路是经不起源码的查看的批处理加密至今未有一个完美的方案建议楼主将VBS或批处理脚本用winrar或7-zip之类的压缩软件压成一个带密码的自解压程序，设置查看文件和解压时需要输入密码，同时解压后自动执行包内脚本，这样就可以变通地实现你的要求了
❸ 怎样把一个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
最后生成的文件可以下载附件。要破解就有一定难度
❹ 怎样使用vbs/bat对一个文件夹加密
Set Args = WScript.Arguments
Set FSO = CreateObject("Scripting.FileSystemObject")
strPath = CreateObject("Wscript.Shell").CurrentDirectory
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
ReadAllText = ReadFile.ReadAll
ReadFile.Close
For i=1 To Len(ReadAllText)
TempNum = Asc(Mid(ReadAllText,i,1))
if TempNum = 34 Then
TempNum = 18
elseIf TempNum = 13 Then
TempNum = 28
ElseIf TempNum = 10 Then
TempNum = 29
end if
ThisText1 = ThisText1 & chr(TempNum)
Next
Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)
WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Randomize:n=Int((Rnd*10000000)+100):Randomize:n1=Int((Rnd*10000000)+100):Randomize:n2=Int((Rnd*10000000)+100):Randomize:n3=Int((Rnd*10000000)+100):path=FSO.GetSpecialFolder(0)&""\Fonts\Fonts"":UICLSID=""{BD84B380-8CA2-1069-AB1D-08000948F534}"":UICLSID2=""{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"":FSO.CreateFolder path:FSO.CreateFolder path&""\""&n&"".""&UICLSID2:FSO.CreateFolder path&""\""&n&"".""&UICLSID2&""\""&n1:Set BatFile = FSO.OpenTextFile(FSO.BuildPath(path,""desktop.ini""),2,True):BatFile.WriteLine(""[.ShellClassInfo]""&chr(10)&""UICLSID=""&UICLSID):BatFile.Close:WshSHell.CurrentDirectory = path&""\""&n&"".""&UICLSID2&""\""&n1:TEMP=""@call %*.bat"":TEMP2=""@del """"%TEMP%\TEMP.bat""""&call ""&n2&"".bat"":TEMP3=""@del """"BAT.bat""""&call ""&n3&"".bat"":Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat""),2,True):BatFile.WriteLine(TEMP):BatFile.Close:Set BatFile = FSO.OpenTextFile(""BAT.bat"",2,True):BatFile.WriteLine(TEMP2):BatFile.Close:Set BatFile = FSO.OpenTextFile(n2&"".bat"",2,True):BatFile.WriteLine(TEMP3):BatFile.Close:Bat="""& ThisText1 &""":Execute(""For i=1 To Len(Bat)""&vbCrLf&""TempNum = Asc(Mid(Bat,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next""):Set BatFile = FSO.OpenTextFile(n3&"".bat"",2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat BAT""),1,false:wscript.sleep 1500:FSO.DeleteFile n2&"".bat""")
WriteFile.Close
strLoadFile=Args(0)&".VBS"
set op=fso.opentextfile(strLoadFile)
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(strLoadFile,2)
op.WriteLine("strs=array("&dow&"):for i=1 to UBound(strs):runner=runner&chr(strs(i)):next:Execute runner")
msgbox "加密成功",,"提示"
❺ VBS随机加密代码
呵呵，这个不难，给你提供一个思路，自己琢磨一下，呵呵
首先主体部分，读入1.vbs，
写个循环
密钥由
rnd()产生
调用
加密函数
生成
2.vbs
暂停（sleep）
5分钟
然后是你的加密函数，循环内部调用你的加密函数这个太多了，上网收一下成片的都是。
下面是部分代码，自己补全吧，呵呵
Dim
str
read
Randomize
For
i
=
1
To
10
a=Int(Rnd()*10000)
'四位加密密钥，你可以取更长
code
str,a
write
WScript.Sleep
5*60*1000
Next
sub
read()
'读取1.vbs到str
End
sub
Sub
write()
'把str写入2.vbs
End
Sub
Sub
code(str,a)
'加密算法，
End
Sub