|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『楼 主』:
用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 "加密成功",,"￥夜七制作￥"
|
你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a> |
|
 2007-7-11 14:22 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
『第
2 楼』:
夜七制作？
不是zhoushijay兄原创？
|
|
|
2007-7-11 14:27 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
3 楼』:
夜七是我的QQ名
|
你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a> |
|
|
2007-7-11 15:11 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
『第
4 楼』:
抱歉抱歉不该质疑zhoushijay兄的。:-)
|
|
|
2007-7-11 15:22 |
|
|
willsion
高级用户
积分 789
发帖 310
注册 2004-9-2
状态 离线
|
|
|
2007-7-11 18:01 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
6 楼』:
要输入脚本文件名很麻烦，改一个选取脚本文件输入的：
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
|
 |
|
|
2007-7-12 01:20 |
|
|
gzxinxinxin
新手上路
积分 3
发帖 2
注册 2007-7-12
状态 离线
|
|
|
2007-7-12 18:47 |
|
|
YunEr
新手上路
积分 10
发帖 4
注册 2007-7-10
状态 离线
|
『第
8 楼』:
怎么都没有注释的啊？。。。
程序应该有必要的注释的....
|
|
|
2007-7-12 20:49 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
9 楼』:
| Quote: | Originally posted by YunEr at 2007-7-12 20:49:
怎么都没有注释的啊？。。。
程序应该有必要的注释的.... |
|
为什么非得有注释？更何况不是每一行都能注释清楚的。
|
|
|
|
2007-7-12 22:37 |
|
|
hdzc
初级用户
积分 146
发帖 86
注册 2007-10-1
状态 离线
|
|
|
2007-10-7 22:35 |
|
|
uiopuiop
中级用户
积分 400
发帖 211
注册 2007-9-30
状态 离线
|
『第
11 楼』:
不错，和微软提供的命令行加密不一样。
能不能发个解密的上来？
|
|
|
2007-10-7 22:43 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
12 楼』:
哦,知道了 msgbox runner
[ Last edited by huzixuan on 2007-11-10 at 11:31 AM ]
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-11-10 10:50 |
|
|
cooray
初级用户
积分 71
发帖 34
注册 2007-9-7
状态 离线
|
『第
13 楼』:
UserAccounts.CommonDialog
不错,又学了一招;)
|
|
|
2007-11-10 12:54 |
|
|
caman20
新手上路
积分 4
发帖 2
注册 2005-9-20
状态 离线
|
『第
14 楼』:
晕死，刚才没备份就加密了一个文件。
|
|
|
2007-11-16 19:19 |
|
|
wuxj
初级用户
积分 50
发帖 25
注册 2007-3-29
状态 离线
|
『第
15 楼』:
UserAccounts.CommonDialog
这个只能在xp里用，不太通用。
|
|
|
2007-11-18 22:45 |
|
