|
vb的RSA公钥和私钥 |
|
|
|
www.nanhushi.com 佚名 不详 |
|
私钥加密:
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在建立对象时的新写法
下一篇文章： VB通过正则表达式定位字符串 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
| |
|
