China DOS Union

```
set fso=createobject("scripting.filesystemobject")

scf=inputbox("Please enter the script file name to encrypt","VBS Encryption Program","*.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 "Encryption successful",,"￥Ye Qi Production￥"
```

Produced by Ye Qi?

Isn't it originally created by Brother zhoushijay?

Ye Qi is my QQ name

Sorry, I shouldn't have doubted Brother zhoushijay. :-)

Not bad, learn something.

It's cumbersome to input the script file name. Here's a modified one for selecting and inputting the script file:

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

Amazing, all are experts.

Why are there no comments at all?......The program should have necessary comments....

Why must there be comments? Moreover, it's not that every line can be clearly commented.

That's good. It's different from the command-line encryption provided by Microsoft. Can you post the decryption one?

Oh, got it. msgbox runner

[ Last edited by huzixuan on 2007-11-10 at 11:31 AM ]

UserAccounts.CommonDialog
Not bad, learned another trick ;)

Oh, what a bummer! I encrypted a file without backing it up just now.

UserAccounts.CommonDialog
This can only be used in XP, not very universal.