❶ VBS超強加密
在優化大師中點擊「注冊」,出現一個對話框,然後輸入注冊名後,會自動生成一個申請碼,再將申請碼復制到注冊機中,會自動生成注冊碼,再將注冊碼復制到記事本中,關閉注冊機(一定要關閉),然後在優化大師的對話框中輸入注冊碼就可以了
❷ 如何製作vbs
VBS全稱是Visual Basic Script,是微軟推出的,由宿主解釋執行的一種腳本語言。VBS用記事本即可編寫,在記事本中輸入代碼,如「msgbox now」(不含引號),保存後將後綴名txt改為vbs即可。由於拓展名VBS於另一種程序的文件拓展名有沖突,所以引進了VBE,而現在一般將加密後的VBS文件保存為VBE格式
❸ 怎麼用vbs做一個給文件加密的程序
簡單一點就直接藉助rar壓縮工具 給你想要加密的文件直接 壓縮成帶密碼的壓縮包文件
❹ VBS怎麼加密啊
很簡單,你只需下載一個「VBS轉換EXE工具」就行了,把VBS源碼生成EXE程序,這樣是不能看到EXE中的內容的,例如這個工具:「ExeScript」
❺ 想用VBS加密文件夾
樓上的autorun.inf不可以用,那個只適用於驅動器根目錄.
LZ可以試試使用folder.htt文件,裡面加上vbs代碼,這樣一打開文件夾就運行了.
關於folder.htt可以一下.
這也是最後的辦法了.
因為vbs本身對文件系統沒有任何能力控制訪問許可權,只有在打開文件夾的 時候,自動運行其中的folder.htt來達到運行腳本的目的.
❻ 怎樣把一個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文件加密,讓它無法用記事本無法查看,一打開是亂碼。不必要加密強度太高,一般人不會就行!
滿意請採納,謝謝。
VBS加密解密,原理很簡單,而且一般人也看不懂,滿足你的需求。
PS:也是用VBS寫的。
❽ 怎麼能加密自己做的vbs啊 就是讓別人不能編輯那種
vbs是解釋型腳本文件 再怎麼加密 還是得還原代碼 才能被解釋器讀取識別 所以並沒有什麼用 建議你將vbs代碼稍微修改下變成vb6代碼 生成EXE程序吧
❾ 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