The corresponding decryption method is not much in the ASP, and now there is not much, and now, according to the seniors data, I'm sorting in the ASP encryption and decryption function RSA.ASP <% REM in ASP, encrypting and decrypting, encryption method: According to RSA 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 MOD MODULUS IF Err THEN EXIT FUNT END END IF CRYPT = LLNGRESULT END FUNCTION PUBLIC FUNCODE (BYVAL PSTRMESSAGE) DIM LL ngIndex 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) Dim lBytAscii Dim lLngIndex Dim lLngMaxIndex Dim lLngEncryptedData Decode = "" lLngMaxIndex = Len (pStrMessage) For lLngIndex = 1 To lLngMaxIndex Step 4 lLngEncryptedData =
