中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 20:40

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 用VBS给VBS加密

可打印版本　6,386 / 17

第1楼　zhoushijay	发表于 2007-07-11 14:22
高级用户　发帖 375　积分 845
用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" msgbox "加密成功",,"￥夜七制作￥"

第2楼　wudixin96	发表于 2007-07-11 14:27
银牌会员　发帖 931　积分 1,928
夜七制作？不是zhoushijay兄原创？

第3楼　zhoushijay	发表于 2007-07-11 15:11
高级用户　发帖 375　积分 845
夜七是我的QQ名

第4楼　wudixin96	发表于 2007-07-11 15:22
银牌会员　发帖 931　积分 1,928
抱歉抱歉不该质疑zhoushijay兄的。:-)

第5楼　willsion	发表于 2007-07-11 18:01
高级用户　发帖 312　积分 793
不错，学习一下。

第6楼　zh159	发表于 2007-07-12 01:20
金牌会员　发帖 1,467　积分 3,687
要输入脚本文件名很麻烦，改一个选取脚本文件输入的： 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 "加密成功",,"￥夜七制作 - zh159修改￥" end if

第7楼　gzxinxinxin	发表于 2007-07-12 18:47
新手上路　发帖 2　积分 3
厉害,都是高手.

第8楼　YunEr	发表于 2007-07-12 20:49
新手上路　发帖 4　积分 10
怎么都没有注释的啊？。。。程序应该有必要的注释的....

第9楼　zh159	发表于 2007-07-12 22:37
金牌会员　发帖 1,467　积分 3,687
Originally posted by YunEr at 2007-7-12 20:49: 怎么都没有注释的啊？。。。程序应该有必要的注释的.... 为什么非得有注释？更何况不是每一行都能注释清楚的。

第10楼　hdzc	发表于 2007-10-07 22:35
初级用户　发帖 86　积分 146
高手中的高手

第11楼　uiopuiop	发表于 2007-10-07 22:43
中级用户　发帖 211　积分 400
不错，和微软提供的命令行加密不一样。能不能发个解密的上来？

第12楼　huzixuan	发表于 2007-11-10 10:50
高级用户　发帖 219　积分 537　来自芜湖
哦,知道了 msgbox runner [ Last edited by huzixuan on 2007-11-10 at 11:31 AM ]

第13楼　cooray	发表于 2007-11-10 12:54
初级用户　发帖 34　积分 71
UserAccounts.CommonDialog 不错,又学了一招;)

第14楼　caman20	发表于 2007-11-16 19:19
新手上路　发帖 2　积分 4
晕死，刚才没备份就加密了一个文件。

第15楼　wuxj	发表于 2007-11-18 22:45
初级用户　发帖 25　积分 50
UserAccounts.CommonDialog 这个只能在xp里用，不太通用。

1 2 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023