gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS加密解密源码(UserAccounts.CommonDialog) 脚本之家修正版由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

用法: 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.zzvips.com/article/91394.html因为那个选择文件功能不能使用而已,下面我们修改下,让他支持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 。

最后此篇关于VBS加密解密源码(UserAccounts.CommonDialog) 脚本之家修正版的文章就讲到这里了,如果你想了解更多关于VBS加密解密源码(UserAccounts.CommonDialog) 脚本之家修正版的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com