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