私钥加密:
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\")
其他的代差不多,这样就不能用了会出错什么缺少项
责任编辑:小草