詳情看這里 
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="腳本語言">代碼</script>，完成后再刪除。 
5、ASP解密是自己改的。原文是JScript的，改了一天才改成了VBScript，呵呵 
6、如果原文件同時(shí)包含有加密及未加密代碼（情況很少出現(xiàn)~_~）， 
請(qǐng)先運(yùn)行解密，然后再次加密。 
7、coding.txt是系統(tǒng)文件編碼列表，如果發(fā)現(xiàn)你要的編碼沒有可手動(dòng)添加一行 
8、使用本軟件不會(huì)在代碼添加任何個(gè)人信息，保證原味。 
9、謝謝大家的使用，有問題來郵件。 
10、本軟件還可以幫助你把多個(gè)文件夾下面的文件另存到同一目錄哦~_~ 
11、有些系統(tǒng)可能要裝VB6或VB運(yùn)行庫(kù)或Windows Script Encoder 
其它說明： 
1、textbox不支持二進(jìn)制的內(nèi)容？ 
2、本軟件不允許加密兩次，加密兩次會(huì)使解密出錯(cuò)，即使是執(zhí)行兩次解密操作， 
可能是解密代碼的問題（第一次解密后會(huì)出現(xiàn)一些未知字符）， 
也可能是加密多次會(huì)出現(xiàn)一些未知字符，使解密操作失敗。 如果你有興趣完成上面其它說明提到的錯(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)確，特別是沒有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 

最新評(píng)論