一段在asp中加密與解密對應的函數

在ASP中加密方法有對應的解密方法好象不多,現在根據前輩資料整理出在asp中加密與解密函數
rsa.asp
<%
rem 在ASP中實現加密與解密,加密方法:根據RSA
rem 聯絡:hnsoso@sina.com
Class clsRSA
　　 Public PrivateKey
　　 Public PublicKey
　　 Public Modulus
　　
　　
　　
　　 Public Function Crypt(pLngMessage, pLngKey)
　　　　 On Error Resume Next
　　　　 Dim lLngMod
　　　　 Dim lLngResult
　　　　 Dim lLngIndex
　　　　 If pLngKey Mod 2 = 0 Then
　　　　　　 lLngResult = 1
　　　　　　 For lLngIndex = 1 To pLngKey / 2
　　　　　　　　 lLngMod = (pLngMessage ^ 2) Mod Modulus
　　　　　　　　 ' Mod may error on key generation
　　　　　　　　 lLngResult = (lLngMod * lLngResult) Mod Modulus
　　　　　　　　 If Err Then Exit Function
　　　　　　 Next
　　　　 Else
　　　　　　 lLngResult = pLngMessage
　　　　　　 For lLngIndex = 1 To pLngKey / 2
　　　　　　　　 lLngMod = (pLngMessage ^ 2) Mod Modulus
　　　　　　　　 On Error Resume Next
　　　　　　　　 ' Mod may error on key generation
　　　　　　　　 lLngResult = (lLngMod * lLngResult) Mod Modulus
　　　　　　　　 If Err Then Exit Function
　　　　　　 Next
　　　　 End If
　　　　 Crypt = lLngResult
　　 End Function
　　 Public Function Encode(ByVal pStrMessage)
　　　　 Dim lLngIndex
　　　　 Dim lLngMaxIndex
　　　　 Dim lBytAscii
　　　　 Dim lLngEncrypted
　　　　 lLngMaxIndex = Len(pStrMessage)
　　　　 If lLngMaxIndex = 0 Then Exit Function
　　　　 For lLngIndex = 1 To lLngMaxIndex
　　　　　　 lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
　　　　　　 lLngEncrypted = Crypt(lBytAscii, PublicKey)
　　　　　　 Encode = Encode & NumberToHex(lLngEncrypted, 4)
　　　　 Next
　　 End Function
　　
　　 Public Function Decode(ByVal pStrMessage)