由于要對網站的cookie進行加密，所以自已寫了個簡單的加密類，雖然簡單但是挺好用的，使用前請保留作者信息，謝謝

?

'======================== '=創作日期：2013-3-26 '=作者blog：blog.csdn.net/asp89007342 '= '======================== Class SEncryptPublic needArr(3)Public passKeyPrivate Sub Class_Initialize() needArr(0) = ""needArr(1) = "g"needArr(2) = "h"needArr(3) = "i"if passKey = "" thenpassKey = "23456789"end if End Sub Public function chrcode(str)chrcode = chrw(str)end functionPublic function asccode(str)asccode = ascw(str)end functionPublic function addPrevZero(str, minLen)if len(str<minLen) thenrevCode = ""revCode = needArr(minLen-len(str))str = revCode&strend ifaddPrevZero = strend functionPublic function Encode(codeString)dim secI: secI=1result = ""for i=1 to len(codeString) c = asccode(mid(codeString,i, 1))+2if secI>len(passkey) then secI=1 c = c + asccode(mid(passkey, secI, 1))result = result&lcase(addPrevZero(hex(c),4))secI = secI+1 nextEncode = resultend functionPublic function JoinCode(codeString, needItem)newcodeArr = split(codeString, needArr(needItem))newStr = ""prvZero = ""select case needItemcase 1prvZero = "000"case 2prvZero = "00"case 3prvZero = "0"end selectnewStr = replace(codeString, needArr(needItem), prvZero)JoinCode = newStrend functionPublic function Decode(codeString) dim retr retr = JoinCode(codeString, 1)retr = JoinCode(retr, 2)retr = JoinCode(retr, 3)dim secI: secI=1oldCode = ""for newi=1 to len(retr) step 4 rcode = mid(retr, newi, 4)codeN = CLng(cstr("&H"&rcode))if secI>len(passkey) then secI=1c = codeN - asccode(mid(passkey, secI, 1))oldCode = oldCode&chrcode(c-2)secI = secI+1nextDecode = oldCodeend functionEnd ClassSet se = New SEncryptse.passKey = "%^&$&HJKGFabdcdefg"//此處請自行設置密鑰 a = se.Encode("ASP--FileSystemObject 對象_十字路口的樹_新浪博客 ASP--FileSystemObject 對象_十字路口的樹_新浪博客,十字路口的樹, ASP--FileSystemObject 對象_十字路口的樹_新浪博客,十字路口的樹,雜談 十字路口的樹的BLOG [...") response.Write a&"<br />" response.Write se.Decode(a)

?

總結

以上是生活随笔為你收集整理的可逆的asp加密的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。