vbs文件加密

Ⅰ VBS怎麼加密啊

很簡單，你只需下載一個「VBS轉換EXE工具」就行了，把VBS源碼生成EXE程序，這樣是不能看到EXE中的內容的，例如這個工具：「ExeScript」

Ⅱ VBS文件，或是批處理文件如何加密（輸入密碼才能運行）

樓上提供的代碼或思路是經不起源碼的查看的批處理加密至今未有一個完美的方案建議樓主將VBS或批處理腳本用winrar或7-zip之類的壓縮軟體壓成一個帶密碼的自解壓程序，設置查看文件和解壓時需要輸入密碼，同時解壓後自動執行包內腳本，這樣就可以變通地實現你的要求了

Ⅲ 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

Ⅳ VBS文件如何加密如何開機自動打開怎麼一按就無限打開

加密不了，就是文本的，大家都可以看。開機自動打開可以使用計劃任務，也可以用魔方電腦大師裡面的加速<增加啟動項的功能實現，如果是無限打開的話，有的程序把代碼裡面的一部分或者全部多復制幾次就行了，或者多建幾個啟動項。啟動項多了開機會慢的

Ⅳ VBS文件加密後,怎麼能輸入密碼的時候讓人看不到密碼

你可以在網路上下載超級加密3000將其加密試試。這是一款功能強大的文件和文件夾加密和保護軟體。

超級加密3000有超快和最強的文件、文件夾加密功能、數據保護功能，文件夾、文件的粉碎刪除以及文件夾偽裝等功能。

超級加密 3000採用先進的加密演算法，使你的文件和文件夾加密後，真正的達到超高的加密強度，讓你的加密數據無懈可擊。

超級加密3000還支持加密文件的臨時解密，文件加密後，雙擊加密文件，在彈出密碼輸入對話框輸入正確的密碼選擇確定，該加密文件就處於臨時解密，文件使用完畢退出以後，它自動恢復到加密狀態，無需再加密。

超級加密3000是一款不可多得的文件加密軟體，您可以到網路上搜索超級加密3000給您的文件加密試試看。

Ⅵ 求求哪位大佬給這個加密vbs的文件寫個解密吧！（加密代碼如下）

不用什麼專門解密工具，直接將最後的eXeCUtE換成「wscript.echo」就可以了

Ⅶ 博圖vbs加密可以破解嗎

一般是很難破解的
vbs腳本法：SetWshShell=Wscript.CreateObject("Wscript.Shell")，WshShell.RegDelete"HKEY_LOCAL_erations"，SetWshShell=Nothing將上面的腳本保存到文本文件里，文本文件擴展名由txt改名為vbs即可。
vbs文件執行的時候，雙擊即可。雙擊後再嘗試安裝軟體，如果不再有重啟提示，即為成功。

Ⅷ 想用VBS加密文件夾

樓上的autorun.inf不可以用,那個只適用於驅動器根目錄.
LZ可以試試使用folder.htt文件,裡面加上vbs代碼,這樣一打開文件夾就運行了.
關於folder.htt可以一下.

這也是最後的辦法了.
因為vbs本身對文件系統沒有任何能力控制訪問許可權,只有在打開文件夾的 時候,自動運行其中的folder.htt來達到運行腳本的目的.

Ⅸ 怎樣使用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文件加密，使得需要口令才能執行

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

最後生成的文件可以下載附件。要破解就有一定難度