VBS加密解密源码(UserAccounts.CommonDialog) 脚本之家修正版

作者佚名来源 ASP编程浏览发布时间 2013-07-09

用法：

1.copy下面代码至文本文档
2.将文件后缀名改为.vbs
3.双击运行

复制代码代码如下:

 
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 

注意上面的代码只有在winxp下使用，原因可以参考http://www.jb51.net/article/26390.htm因为那个选择文件功能不能使用而已，下面我们修改下，让他支持win2000,win2003系统，我们可以通过拖动文件到这个vbs上即可。
脚本之家修改的加强版本

复制代码代码如下:

If WScript.Arguments.Count=0 Then WScript.Quit 
strLoadFile=WScript.Arguments(0) 
Ans = InPutBox("请输入要执行的操作：1.加密，2.解密,3.退出。") 
Ans = Int(Ans) 
If Ans =1 Then 
set fso=createobject("scripting.filesystemobject") 
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") 
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 

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 用VBS实现监视进程创建与删除的代码下一篇: 字符ANSI代码查询工具vbs版

关于VBS加密解密源码(UserAccounts.CommonDialog) 脚本之家修正版的所有评论

随机推荐