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\")
其他的代差不多，这样就不能用了会出错什么缺少项
【vb的RSA公钥和私钥】相关文章：
2025年外省高中学业水平合格性考试成绩转入江苏认定的通告公布05-07
Vb中控件的自动排列05-07
写未来的作文300字05-07
Our Mother Is the Same 我们的妈妈是一样的05-07
中国大地保险公司实习报告05-07
小学父爱的作文600字05-07
云南师范大学2025年硕士研究生报名公告05-07
汪涵讲述小时候成长经历：鸡毛掸子的故事05-07
关于清明节的英语作文：清明节05-07