一個批量編碼轉(zhuǎn)換及ASP/JS加解密/簡繁轉(zhuǎn)換的工具
2024-07-21 01:22:43
供稿：網(wǎng)友
詳情看這里
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
文件編碼轉(zhuǎn)換/Screnc加解密/簡繁轉(zhuǎn)換 1.0
使用注意：
1、使用前請備份，使用本軟件造成的損失自負；
2、進行編碼轉(zhuǎn)換前請確認所有文件的源編碼一致并選擇正確，否則可能出現(xiàn)錯誤。
3、對ASP代碼進行加密或解密或簡繁轉(zhuǎn)換前須確認文件的編碼為ANSI，否則可能出現(xiàn)亂碼，
完成操作后可再轉(zhuǎn)回原編碼。
4、ASP加密是相當于調(diào)用微軟的：
如果包含：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
screnc.exe /s /f /xl /e asp *.*
screnc.exe /s /f /xl /e htm *.*
否則：
screnc.exe /s /f /e asp *.*
screnc.exe /s /f /e htm *.*
加密外部*.JS或*.VBS請先在文件加上
<script language="腳本語言">代碼</script>，完成后再刪除。
5、ASP解密是自己改的。原文是JScript的，改了一天才改成了VBScript，呵呵
6、如果原文件同時包含有加密及未加密代碼（情況很少出現(xiàn)~_~），
請先運行解密，然后再次加密。
7、coding.txt是系統(tǒng)文件編碼列表，如果發(fā)現(xiàn)你要的編碼沒有可手動添加一行
8、使用本軟件不會在代碼添加任何個人信息，保證原味。
9、謝謝大家的使用，有問題來郵件。
10、本軟件還可以幫助你把多個文件夾下面的文件另存到同一目錄哦~_~
11、有些系統(tǒng)可能要裝VB6或VB運行庫或Windows Script Encoder
其它說明：
1、textbox不支持二進制的內(nèi)容？
2、本軟件不允許加密兩次，加密兩次會使解密出錯，即使是執(zhí)行兩次解密操作，
可能是解密代碼的問題（第一次解密后會出現(xiàn)一些未知字符），
也可能是加密多次會出現(xiàn)一些未知字符，使解密操作失敗。 如果你有興趣完成上面其它說明提到的錯誤
及編碼轉(zhuǎn)換部分能做成自動識別編碼及自由選擇是否加入/刪除BOM文件頭，
請留下你的郵箱及你的網(wǎng)址，我會發(fā)源代碼給你。自動識別編碼....
在源代碼里面已經(jīng)有一個函數(shù)(module1.bas / FileCodingCheck())，
但經(jīng)測試不太準確，特別是沒有BOM頭的文件。
Public Function FileCodingCheck(ByVal FilePath As String)
Dim SmObj As New ADODB.Stream
Dim SmRead1 As Integer, SmRead2 As Integer, SmRead3 As Integer
SmObj.Type = 1
SmObj.Open
SmObj.LoadFromFile FilePath
SmObj.Position = 0
If LenB(SmObj.Read) >= 1 Then
SmObj.Position = 0
SmRead1 = AscB(SmObj.Read(1))
End If
SmObj.Position = 0
If LenB(SmObj.Read) >= 2 Then
SmObj.Position = 1
SmRead2 = AscB(SmObj.Read(1))
End If
SmObj.Position = 0
If LenB(SmObj.Read) >= 3 Then
SmObj.Position = 2
SmRead3 = AscB(SmObj.Read(1))
End If
If SmRead1 = &HFF And SmRead2 = &HFE Then
FileCodingCheck = "Unicode"
ElseIf SmRead1 = &HFE And SmRead2 = &HFF Then
FileCodingCheck = "Unicode big endian"
ElseIf SmRead1 = &HEF And SmRead2 = &HBB And SmRead3 = &HBF Then
FileCodingCheck = "UTF-8"
Else
FileCodingCheck = "ANSI"
End If
SmObj.Close
Set SmObj = Nothing
End Function
