vbs加密文本字元

⑶ 怎麼能加密自己做的vbs啊 就是讓別人不能編輯那種

vbs是解釋型腳本文件 再怎麼加密 還是得還原代碼 才能被解釋器讀取識別 所以並沒有什麼用 建議你將vbs代碼稍微修改下變成vb6代碼 生成EXE程序吧

⑷ 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的話不要有過多指望，只要人家能看到你的VBS代碼，就可以知道你的加密方法。

不過你可以將VBS編譯為exe。

如果可能，建議用AutoIt吧（幫助中自帶示例）。

SetobjArgs=WScript.Arguments
ForI=0toobjArgs.Count-1
WScript.EchoobjArgs(I)
Next

這是VBS幫助里的原例子。

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

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

⑺ VBS怎麼加密啊

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

⑻ VBS加密解密問題

加密函數也就是ASCdata的作用就是將每個字元用asc函數轉換為相應的ASCII碼，並在後面加上逗號
我認為解密就是將這些ASCII碼用chr函數轉換為字元
Function Chrdata(Data)
Data = Split(Data, ",")
newdata=""
for x=0 to UBound(Data)
newdata = newdata & Chr(CInt(Data(x)))
next
Chrdata=newdata
End Function
如果是在網頁中，可用下面的方式調用
document.write Chrdata("32,32,32,32,-24156,-24156,-24156,32,-24156,-24156,-23635,32,-24156,-23635,-23635,-23635,-23635,32,-24156,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-23635,-23635,-23635,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-24156,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-24156,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-23635,-24156,-24156,-24156,-24156,32")
在網頁中顯示的結果是
··· ··－ ·－－－－ · －－－－· ····· ···－－ －··· ····－ －－－－－ －－－－· ····· －－··· ·－－－－ ···－－ －·· －－··· ····－ －···· －···· ·－－－－ －·· －·· ··－－－ －···· －·· －－··· ··－· ··－－－ ··－· ···－－ ·－ －－－－· －····

ASCII為32的字元是空格，最前面四個空格和最後一個空格沒有顯示出來