vbs實現網址加密

㈢ VBS的加密跟解密

Ans = InPutBox("請輸入要執行的操作：1.加密，2.解密,3.退出。")
Ans = Int(Ans)
If Ans =1 Then
set fso=createobject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
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.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"
msgbox "加密成功",,"提示"
end if
end if
If Ans = 2 Then
Set objfs=CreateObject("scripting.filesystemobject")
Set objDialog=CreateObject("UserAccounts.CommonDialog")
objDialog.Filter="vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
set objf=objfs.opentextfile(strLoadFile)
str=objf.ReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objf.Close
Set objf=objfs.OpenTextFile(strLoadFile,2)
objf.Write runner
MsgBox "解密成功",,"提示"
end if
end if
if Ans = 3 Then
Wscript.Quit
End If

'以上為VBS加解密代碼，使用方法：保存後直接運行~~
'ps:此代碼為本人以前收藏的，忘記作者是誰，在VBS吧里。

㈣ 急求，用VBS腳本進行一種靠譜一點的加密解密演算法

用VBS的話不要有過多指望，只要人家能看到你的VBS代碼，就可以知道你的加密方法。

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

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

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

這是VBS幫助里的原例子。

㈤ VBS怎麼加密啊

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

㈥ VBS有沒有加密代碼

dim pwd
pwd = inputbox("請輸入密碼","請輸入密碼") 括枯漏號內槐陸兩個引號鉛敗頃內容分別為彈出輸入對話框的lable和caption,可自行修改.
if pwd = "*****" then '"*****"為密碼
msgbox "right" '自行修改
else
msgbox "wrong" '自行修改
end if

此腳本利用IF判斷,密碼必須在腳本中設。
對話可根據需求增加msgbox的數量

㈦ 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