詳情看這裡
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
文件編碼轉換/Screnc加解密/簡繁轉換1.0
使用注意：
1、使用前請備份，使用本軟件造成的損失自負；
2、進行編碼轉換前請確認所有文件的源編碼一致並選擇正確，否則可能出現錯誤。
3、對ASP代碼進行加密或解密或簡繁轉換前須確認文件的編碼為ANSI，否則可能出現亂碼，
完成操作後可再轉回原編碼。
4、ASP加密是相當於調用微軟的：
如果包含：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
screnc.exe/s/f/xl/easp*.*
screnc.exe/s/f/xl/ehtm*.*
否則：
screnc.exe/s/f/easp*.*
screnc.exe/s/f/ehtm*.*
加密外部*.JS或*.VBS請先在文件加上
<scriptlanguage="腳本語言">代碼</script>，完成後再刪除。
5、ASP解密是自己改的。原文是JScript的，改了一天才改成了VBScript，呵呵
6、如果原文件同時包含有加密及未加密代碼（情況很少出現~_~），
請先運行解密，然後再次加密。
7、coding.txt是系統文件編碼列表，如果發現你要的編碼沒有可手動添加一行
8、使用本軟件不會在代碼添加任何個人信息，保證原味。
9、謝謝大家的使用，有問題來郵件。
10、本軟件還可以幫助你把多個文件夾下面的文件另存到同一目錄哦~_~
11、有些系統可能要裝VB6或VB運行庫或WindowsScriptEncoder
其它說明：
1、textbox不支持二進制的內容？
2、本軟件不允許加密兩次，加密兩次會使解密出錯，即使是執行兩次解密操作，
可能是解密代碼的問題（第一次解密後會出現一些未知字符），
也可能是加密多次會出現一些未知字符，使解密操作失敗。如果你有興趣完成上面其它說明提到的錯誤
及編碼轉換部分能做成自動識別編碼及自由選擇是否加入/刪除BOM文件頭，
請留下你的郵箱及你的網址，我會發源代碼給你。自動識別編碼....
在源代碼裡面已經有一個函數(module1.bas/FileCodingCheck())，
但經測試不太準確，特別是沒有BOM頭的文件。
PublicFunctionFileCodingCheck(ByValFilePathAsString)
DimSmObjAsNewADODB.Stream
DimSmRead1AsInteger,SmRead2AsInteger,SmRead3AsInteger
SmObj.Type=1
SmObj.Open
SmObj.LoadFromFileFilePath
SmObj.Position=0
IfLenB(SmObj.Read)>=1Then
SmObj.Position=0
SmRead1=AscB(SmObj.Read(1))
EndIf
SmObj.Position=0
IfLenB(SmObj.Read)>=2Then
SmObj.Position=1
SmRead2=AscB(SmObj.Read(1))
EndIf
SmObj.Position=0
IfLenB(SmObj.Read)>=3Then
SmObj.Position=2
SmRead3=AscB(SmObj.Read(1))
EndIf
IfSmRead1=&HFFAndSmRead2=&HFEThen
FileCodingCheck="Unicode"
ElseIfSmRead1=&HFEAndSmRead2=&HFFThen
FileCodingCheck="Unicodebigendian"
ElseIfSmRead1=&HEFAndSmRead2=&HBBAndSmRead3=&HBFThen
FileCodingCheck="UTF-8"
Else
FileCodingCheck="ANSI"
EndIf
SmObj.Close
SetSmObj=Nothing
EndFunction