利用VBS加密VBS脚本文件

平时我喜欢用VB、VBS脚本、批处理及DELPHI做些小东西，感觉很有意思。比如有键盘模拟鼠标、屏锁、文件及文件夹加密解密、U盘拦截、电脑资料外泄破坏等等。可我每次用VBS做的程序总是被别人用记事本打开了，哎郁闷。没法，之后做的只好全部加密，并在此把加密脚本分享给大家！

On Error Resume Next
set arg=wscript.arguments
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
do
if arg(0)="" then
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
Else
strLoadFile=arg(0)
end if
if strLoadFile="" then
k=msgbox("您没有选择任何文件，重新选择吗？",vbYesNo,"vbs代码加密工具")
if k=vbno Then wscript.quit
Else
Exit Do
end if
loop
set f=fso.getfile(strLoadFile)
path=f.parentfolder
name=f.name
set fr=fso.opentextfile(strLoadFile)
dow=13
do while fr.atendofstream=false
line=fr.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
fr.close
set fw=fso.createtextfile(strLoadFile,2)
fw.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"