The Will Will Web

微軟在以前 ASP 的時代就有提供一個 Script Encoder 工具，可以將你的 ASP 中的 VBScript 或 JScript 編碼，讓整個 ASP 程式看起來像是亂碼一樣。

例如說以下的範例，其 script  標籤的 language 屬性是設定為 VBScript.Encode 而非原本的 VBScript ：

<script language="VBScript.Encode">
#@~^KQAAAA==@#@&j1D
bwYc214W,J3x1W[roPbdP1WW^ZZJ@#@&PQsAAA==^#~@</script>

事實上，有很多的駭客(cracker)就是透過 Script Encoder 工具將「惡意程式」編碼，以跳過防毒軟體的檢查，所以原本一個用意良好的工具也可以拿來做壞事，這感覺就像是常聽到人家講的一句話：「法律是用來保護懂法律的人，不懂法律的人在法律的保護傘下還是一樣居於劣勢」，有了 Script Encoder 工具本應該保護的是開發者的著作財產，卻變成保護駭客隱匿他們的惡意程式碼！

幸好要解碼也很容易，只要用 JavaScript 就可以解碼了，所以其實也算是沒什麼保護的效果，所以只能防止不知道的人來看你的原始碼而已。

線上 VBScript 解碼器 ( 只能解 Script Encoder 編碼過的程式 )

相關連結

• Script Encoder Overview
  http://msdn2.microsoft.com/en-us/library/d14c8zsc(VS.85).aspx
  
  
• Script Encoder 下載
  http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=e7877f67-c447-4873-b1b0-21f0626a6329
  
  
• 加密你的ASP页面—Script Encoder初探
  http://www.itzhe.cn/html/web/ASP/20071222/34900.html
  
  
• MS Script Encoder Decoded
  http://www.aspheute.com/english/20011123.asp

如果你在寫 ASP 或 VB 且一定要將文字儲存成 UTF-8 編碼，這個 Function 應該可以幫你的忙：

Function SaveTextAsUTF8(filePath, Text)
        Const adTypeText = 2
        Const adSaveCreateOverWrite = 2

        'Create Stream object
        Dim TextStream
        Set TextStream = CreateObject("ADODB.Stream")
        With TextStream
                .Open
                .CharSet = "UTF-8"
                .Position = TextStream.Size
                .WriteText Text
                .SaveToFile filePath, adSaveCreateOverWrite
                .Close
        End With
        Set TextStream = Nothing
       
End Function