新一篇: 如何使用Lightbox效果 | 旧一篇: 客户非要接受敏捷吗？

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

发表于 @ 2008年03月18日 10:40:00|评论(loading...)|编辑

新一篇: 如何使用Lightbox效果 | 旧一篇: 客户非要接受敏捷吗？