加密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