vb的RSA公鑰和私鑰

私鑰加密:
    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\")
    其他的代差不多，這樣就不能用了會出錯什么缺少項