在asp中通过vbs类实现rsa加密与解密

nbsp;  Dim lLngR(3)
        Dim lLngP(3)
        Dim lLngQ(3)

        Dim lLngCounter
        Dim lLngResult
        
        Euler = 0

        lLngR(1) = pLngPHI: lLngR(0) = pLngKey
        lLngP(1) = 0: lLngP(0) = 1
        lLngQ(1) = 2: lLngQ(0) = 0

        lLngCounter = -1

        Do Until lLngR(0) = 0

            lLngR(2) = lLngR(1): lLngR(1) = lLngR(0)
            lLngP(2) = lLngP(1): lLngP(1) = lLngP(0)
            lLngQ(2) = lLngQ(1): lLngQ(1) = lLngQ(0)
            
            lLngCounter = lLngCounter + 1

            lLngR(0) = lLngR(2) Mod lLngR(1)
            lLngP(0) = ((lLngR(2)\lLngR(1)) * lLngP(1)) + lLngP(2)
            lLngQ(0) = ((lLngR(2)\lLngR(1)) * lLngQ(1)) + lLngQ(2)

        Loop

        lLngResult = (pLngKey * lLngP(1)) - (pLngPHI * lLngQ(1))

        If lLngResult > 0 Then
            Euler = lLngP(1)
        Else
            Euler = Abs(lLngP(1)) + pLngPHI
        End If

    End Function
    
    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
              &nbs