一個(gè)批量編碼轉(zhuǎn)換及ASP/JS加解密/簡(jiǎn)繁轉(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加解密/簡(jiǎn)繁轉(zhuǎn)換 1.0
使用注意：
1、使用前請(qǐng)備份，使用本軟件造成的損失自負(fù)；
2、進(jìn)行編碼轉(zhuǎn)換前請(qǐng)確認(rèn)所有文件的源編碼一致并選擇正確，否則可能出現(xiàn)錯(cuò)誤。
3、對(duì)ASP代碼進(jìn)行加密或解密或簡(jiǎn)繁轉(zhuǎn)換前須確認(rèn)文件的編碼為ANSI，否則可能出現(xiàn)亂碼，
完成操作后可再轉(zhuǎn)回原編碼。
4、ASP加密是相當(dāng)于調(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請(qǐng)先在文件加上
<script language="腳本語(yǔ)言">代碼</script>，完成后再刪除。
5、ASP解密是自己改的。原文是JScript的，改了一天才改成了VBScript，呵呵
6、如果原文件同時(shí)包含有加密及未加密代碼（情況很少出現(xiàn)~_~），
請(qǐng)先運(yùn)行解密，然后再次加密。
7、coding.txt是系統(tǒng)文件編碼列表，如果發(fā)現(xiàn)你要的編碼沒(méi)有可手動(dòng)添加一行
8、使用本軟件不會(huì)在代碼添加任何個(gè)人信息，保證原味。
9、謝謝大家的使用，有問(wèn)題來(lái)郵件。
10、本軟件還可以幫助你把多個(gè)文件夾下面的文件另存到同一目錄哦~_~
11、有些系統(tǒng)可能要裝VB6或VB運(yùn)行庫(kù)或Windows Script Encoder
其它說(shuō)明：
1、textbox不支持二進(jìn)制的內(nèi)容？
2、本軟件不允許加密兩次，加密兩次會(huì)使解密出錯(cuò)，即使是執(zhí)行兩次解密操作，
可能是解密代碼的問(wèn)題（第一次解密后會(huì)出現(xiàn)一些未知字符），
也可能是加密多次會(huì)出現(xiàn)一些未知字符，使解密操作失敗。 如果你有興趣完成上面其它說(shuō)明提到的錯(cuò)誤
及編碼轉(zhuǎn)換部分能做成自動(dòng)識(shí)別編碼及自由選擇是否加入/刪除BOM文件頭，
請(qǐng)留下你的郵箱及你的網(wǎng)址，我會(huì)發(fā)源代碼給你。自動(dòng)識(shí)別編碼....
在源代碼里面已經(jīng)有一個(gè)函數(shù)(module1.bas / FileCodingCheck())，
但經(jīng)測(cè)試不太準(zhǔn)確，特別是沒(méi)有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
