asp中文加密函數

① asp加密的加密方式

它的基本原理是，需要有一個需要加密的明文和一個隨機生成的解密鑰匙文件。然後使用這兩個文件組合起來生成密文。
我們首先從密鑰文件中得到密鑰值，然後從這段密鑰中截取和我們需要加密的明文同樣長度的密鑰。然後使用一個簡單的異或操作將明文和密鑰進行運算，那麼得到的結果就是加密後的密文了。過程很簡單的。由於是使用了異或操作，所以解密將非常簡單，只要使用同樣的密鑰對密文再次進行異或操作就能夠解密了。在上面介紹的基礎上，你可以少加改動，就可以使用同樣的方法加密一個文件。唯一需要注意的是，對於一個二進制文件，你需要做一些完整性檢查以保證轉換回來的字元不要越界。現在你需要做的就是把密鑰保存在伺服器上的一個安全的地方。
Vernam密碼是由Gilbert Vernam (他是AT&T的工程師)在1918年發明的。這是一種使用異或方法進行加密解密的方法。 主要功能
徹底加密源代碼，可達到徹底保護知識產權的目的，加密效果優於非編譯型的腳本加密工具。非編譯型的加密工具要在運行時在內存中還原腳本執行，編譯型代碼不可還原，直接二進制的執行方式。
產品特點
1．支持各種ASP伺服器腳本默認語言。
2．能夠完全正確識別後綴名為ASP的偽ASP文件。
3．不論多麼復雜的語法結構，都能正確加密並解析。
4．完美處理多種特殊ASP語法在DLL中異常情況...
系統要求
WindowsNT4.0 + IIS
WindowsXP + IIS
Windows 7 + IIS
Windows2000 + IIS
Windows2003 + IIS
Windows2008 + IIS Script Encoder的特點是：
它只加密頁面中嵌入的腳本代碼，其他部分，如HTML的TAG仍然保持原樣不變。處理後的文件中被加密過的部分為只讀內容，對加密部分的任何修改都將導致整個加密後的文件不能使用。Script Encoder加密過的ASP文件還將使Script Debugger之類的腳本調試工具失效。
Script Encoder是可以對Client Side Script加密，也可以對Server Side Script加密。
二、使用簡介
Script Encoder是個命令行工具，執行文件為SCRENC.EXE。它的操作非常簡單：
SCRENC [/s] [/f] [/xl] [/l defLanguage ] [/e defExtension] inputfile outputfile
/s 可選。讓Script Encoder「安靜」的工作，即執行過程沒有屏幕輸出。
/f 可選。指定輸出文件是否覆蓋同名輸入文件。忽略，將不執行覆蓋。
/e defExtension 可選。指定待加密文件的文件擴展名。 ASP加密解密軟體(Asp EnCoder)：國人自己編寫的軟體，持MicroSoft Script Encoder加密解密，移位、逆位加密解密演算法，可保護我們辛辛苦苦編寫的ASP代碼，也可以躲避殺毒軟體的查殺。
AspToDll風火輪：能夠將ASP代碼封裝成DLL，利用DLL無法還原的特性確保ASP代碼加密之後不可解，保護ASP開發者的知識產權不受侵害。
ASP加密鎖(AspApp)：將IIS + ASP(Active Server Page)實現的網站進行打包、加密、壓縮，打包後的應用仍然可以在IIS下使用，但是他人已經無法直接閱讀ASP腳本內容，徹底保護您的辛苦勞動成果和知識產權，您可以用來製作WEB系統的試用版本、功能限製版本和發行版本等。

② asp怎麼加密解密中文和數字

這個其實很簡單，就看你要求加密的安全機制高與不高。
如果高，你可以網路一下md5加密方法。

如果要求不是很高，你自己可以寫一個演算法。
例如：你要對 a 進行加密，現在我舉一個a為數字的例子
那麼你只需要這樣做。
dim a,b
b=a+1-2*3/4
其中的運算符號可以自己寫，當中的數字，也可以自己擬定。
得出來的b 就是a加密後的結果。再把b存起來。
解密，你只需要反推回去就行。
不過，這樣的加密只適用於簡單。場合，很容易被破解
所以建議還是用md5加密。

去下載一個md5加密演算法的源代碼，然後用include調用他你下載的源代碼頁面。
b=md5(a)

一般情況下，直接按以上寫法即可。

③ ASP簡單文字加密

<%
Function AscDecrypt(AscDecode)
For iDe=1 To Len(AscDecode)
DeTexts = DeTexts & Asc(Mid(AscDecode,iDe,2)) & "a"
Next
DeTexts = Replace(DeTexts,"-","u")
AscDecrypt = Left(DeTexts,Len(DeTexts)-1)
End Function
Function AscEncrypt(AscEncode)
AscEncode = Replace(AscEncode,"u","-")
EncodeArr = Split(AscEncode,"a")
For iEn=0 To UBound(EncodeArr)
ChrAscNum = EncodeArr(iEn)
If IsNumeric(ChrAscNum) Then
EnTexts = EnTexts & Chr(ChrAscNum)
End If
Next
AscEncrypt = EnTexts
End Function
%>
<%=AscDecrypt("測試")%>

<%=AscEncrypt("u20236au18732au20271au23617")%>
原理：ASP下的Asc函數讀取字元的Ascii值