vb的RSA公钥和私钥

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　私钥加密:
　　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/")
　　其他的代差不多，这样就不能用了会出错什么缺少项来源：考试大

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。