用VBS给VBS加密

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 "加密成功",,"DOS资源站制作 - "
end if