标题: 用VBS给VBS加密 [打印本页]
作者: zhoushijay 时间: 2007-7-11 14:22 标题: 用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 "加密成功",,"￥夜七制作￥"
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 "加密成功",,"￥夜七制作￥"
作者: wudixin96 时间: 2007-7-11 14:27
夜七制作？
不是zhoushijay兄原创？
作者: zhoushijay 时间: 2007-7-11 15:11
夜七是我的QQ名
作者: wudixin96 时间: 2007-7-11 15:22
抱歉抱歉不该质疑zhoushijay兄的。:-)
作者: willsion 时间: 2007-7-11 18:01
不错，学习一下。
作者: zh159 时间: 2007-7-12 01:20
要输入脚本文件名很麻烦，改一个选取脚本文件输入的：
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
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
作者: gzxinxinxin 时间: 2007-7-12 18:47
厉害,都是高手.
作者: YunEr 时间: 2007-7-12 20:49
怎么都没有注释的啊？。。。
程序应该有必要的注释的....
作者: zh159 时间: 2007-7-12 22:37
| Quote: | |
|
为什么非得有注释？更何况不是每一行都能注释清楚的。
作者: hdzc 时间: 2007-10-7 22:35
高手中的高手
作者: uiopuiop 时间: 2007-10-7 22:43
不错，和微软提供的命令行加密不一样。
能不能发个解密的上来？
作者: huzixuan 时间: 2007-11-10 10:50
哦,知道了 msgbox runner
[ Last edited by huzixuan on 2007-11-10 at 11:31 AM ]
作者: cooray 时间: 2007-11-10 12:54
UserAccounts.CommonDialog
不错,又学了一招;)
作者: caman20 时间: 2007-11-16 19:19
晕死，刚才没备份就加密了一个文件。
作者: wuxj 时间: 2007-11-18 22:45
UserAccounts.CommonDialog
这个只能在xp里用，不太通用。
作者: kich 时间: 2007-11-19 09:36
最好再在加密后代码的首行加个标志符,这样免于二次加密
否则会出现CPU100%
作者: gzfranky 时间: 2007-11-20 11:15
学习一下。
作者: nothinglms 时间: 2010-2-10 10:00
加密以后怎么不见了呀？