一段在asp中加密与解密对应的函数

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数
rsa.asp
<%
rem 在ASP中实现加密与解密,加密方法:根据RSA
rem 联系:[email protected]
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)