私钥加密:
Private mRsa As New RSACryptoServiceProvider这个是公用的
mRsa.FromXmlString ("<RSAKeyValue><Modulus>qVRMw==</P><Q>wR+w==</Q><DP>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 ("<RSAKeyValue><Modulus>Exponent>AQAB</Exponent></RSAKeyValue>")
de = Encoding.UTF8.GetString(mRsa.DecryptValue(Convert.FromBase64String("mSX3pbuBj0+q=")))
这个能用可是我改成这样的就不能用了
私钥加密:
解密一个实例
Set mRsa = CreateObject("vbcorlib.rsacryptoserviceprovider")
公钥解密:
加密一个实例
Set mRsa = CreateObject("vbcorlib.rsacryptoserviceprovider")
其他的代差不多,这样就不能用了会出错什么缺少项