佳木斯湛栽影视文化发展公司

主頁 > 知識庫 > 一個批量編碼轉(zhuǎn)換及ASP/JS加解密/簡繁轉(zhuǎn)換的工具

一個批量編碼轉(zhuǎn)換及ASP/JS加解密/簡繁轉(zhuǎn)換的工具

熱門標簽:服務器配置 網(wǎng)站文章發(fā)布 鐵路電話系統(tǒng) 檢查注冊表項 美圖手機 智能手機 呼叫中心市場需求 銀行業(yè)務
詳情看這里 
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 
您可能感興趣的文章:
  • javascript運算符——位運算符全面介紹
  • JavaScript使用位運算符判斷奇數(shù)和偶數(shù)的方法
  • JavaScript按位運算符的應用簡析
  • 兩種JavaScript的AES加密方式(可與Java相互加解密)
  • Javascript C#真正可以交互的DES加解密代碼
  • js異或加解密效果代碼
  • js加解密 腳本解密
  • 我見過最全的個人js加解密功能頁面
  • JS通過位運算實現(xiàn)權(quán)限加解密

標簽:河南 新疆 上海 沈陽 滄州 紅河 長治 樂山

巨人網(wǎng)絡通訊聲明:本文標題《一個批量編碼轉(zhuǎn)換及ASP/JS加解密/簡繁轉(zhuǎn)換的工具》,本文關(guān)鍵詞  ;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼
    • 電話咨詢

    • 400-1100-266
    湛江市| 满洲里市| 阿合奇县| 工布江达县| 江华| 鞍山市| 庄河市| 苍南县| 调兵山市| 手机| 榆中县| 吉隆县| 延边| 河东区| 姚安县| 当阳市| 海原县| 莱阳市| 韩城市| 徐水县| 中西区| 方正县| 大竹县| 宁河县| 兴和县| 潍坊市| 芜湖县| 自治县| 翁牛特旗| 商都县| 怀远县| 黄浦区| 溧水县| 界首市| 杭锦后旗| 黄陵县| 乌鲁木齐市| 珠海市| 淳安县| 余干县| 雅安市|