用vbs寫簡單的編碼與解碼程式

表一　編碼程式
01. 02. 03. 04. 05. 06. 07.	original = Inputbox("請輸入明文")  For i = 1 to Len(original)  character = Mid(original, i ,1)  encoded = encoded & Chr(Asc(character) + 2)  Next  MsgBox("加密後的密文是：" & encoded)  none=Inputbox("你可以複製下面的祕文" , , encoded)

表二　解碼程式
01. 02. 03. 04. 05. 06. 07.	encoded = Inputbox("請輸入密文")  For i = 1 to Len(encoded)  character = Mid(encoded, i ,1)  original = original & Chr(Asc(character) - 2)  Next  Msgbox("解密後的明文是：" & original)  none=Inputbox("你可以複製下面的明文" , , original)

表三　編碼結果寫進檔案程式
01. 02. 03. 04. 05. 06. 07. 08. 09. 10. 11. 12. 13.	original = Inputbox("請輸入明文")  encoded = ""  For i = 1 to Len(original)  character = Mid(original, i ,1)  encoded = encoded & Chr(Asc(character) + 2)  Next     Set fs = CreateObject("Scripting.FileSystemObject")  Set a = fs.CreateTextFile("c:\testfile.txt", True)  a.WriteLine(encoded)  a.Close     MsgBox("加密後的密文是：" & encoded)

表四　讀取檔案並解碼

01. 02. 03. 04. 05. 06. 07. 08. 09. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20.

Const ForReading = 1  Set obj1 = CreateObject("Scripting.FileSystemObject")  Set obj2 = obj1.OpenTextFile("putty.exe", ForReading)  all = obj2.ReadAll  obj2.Close  msgbox(all)     encoded = ""     For i = 1 to Len(all)  character = Mid(all, i ,1)  encoded = encoded & Chr(Asc(character) + 2)  next     MsgBox("加密後的密文是：" & encoded)     Set fs = CreateObject("Scripting.FileSystemObject")  Set a = fs.CreateTextFile("testfile-encode.txt", True)  a.WriteLine(encoded)  a.Close

表五　判別性別做回應
01. 02. 03. 04. 05. 06. 07.	name = Inputbox("請輸入姓名") gender = Inputbox("請輸入性別") if gender = "女" then msgbox("你好，" & name&"小姐") else msgbox("你好，" & name&"先生") end if

參考資料：

　ASCII與10進位,16進位對照表。

　VBScript 教學