打印本文 打印本文  关闭窗口 关闭窗口  
vb的RSA公钥和私钥
作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:38:54  文章录入：杜斌  责任编辑：杜斌
　　私钥加密:
　　Private mRsa As New RSACryptoServiceProvider这个是公用的
　　mRsa.FromXmlString (\" qVRMw==

wR+w== RSAKeyValue> \")
　　Dim Bytes() As Byte
　　Dim ss As String
　　Bytes = mRsa.EncryptValue(Encoding.UTF8.GetBytes(\"1234\"))
　　\’mRSA.DecryptValue
　　mRsa.Clear
　　ss = Convert.ToBase64String(Bytes)
　　公钥解密:
　　mRsa.FromXmlString (\" Exponent> AQAB \")
　　de = Encoding.UTF8.GetString(mRsa.DecryptValue(Convert.FromBase64String(\"mSX3pbuBj0+q=\")))
　　这个能用可是我改成这样的就不能用了
　　私钥加密:
　　解密一个实例
　　Set mRsa = CreateObject(\"vbcorlib.rsacryptoserviceprovider\")
　　公钥解密:
　　加密一个实例
　　Set mRsa = CreateObject(\"vbcorlib.rsacryptoserviceprovider\")
　　其他的代差不多，这样就不能用了会出错什么缺少项 来源：考试大
打印本文 打印本文  关闭窗口 关闭窗口