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

        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 = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 
            lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 
            Decode = Decode & Chr(lBytAscii) 
        Next 
    End Function 

    Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 
        NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 
    End Function 

    Private Function HexToNumber(ByRef pStrHex) 
        HexToNumber = CLng("&h" & pStrHex) 
    End Function 

End Class 
%> 
演示地址:http://www.cnaspol.com/myrsa/test.asp

您可能感兴趣的文章:

c# rsa注册实现加密文字java加密算法分享(rsa解密、对称加密、md5加密)使用openssl实现rsa非对称加密算法示例python使用rsa加密算法模块模拟新浪微博登录rsa加密算法使用示例分享在ASP.Net中实现RSA加密的方法android md5加密与rsa加解密实现代码PHP+JS+rsa数据加密传输实现代码关于firefox的ElementTraversal 接口 使用说明安全技术—RSA公钥密码体制安全性分析基于私钥加密公钥解密的RSA算法C#实现方法