RSA шифрование в разных сессиях

    Sub cryptor()
        Dim myRSAProvide As New RSACryptoServiceProvider()
 
        Dim strCrypt As String = "Строка для шифрования"
        Dim strResult As String = Nothing
        Dim bteCrypt() As Byte = {}
        Dim bteResult() As Byte = {}
        Try
            bteCrypt = Encoding.ASCII.GetBytes(strCrypt)
            bteResult = myRSAProvide.Encrypt(bteCrypt, False)
            Console.WriteLine(Convert.ToBase64String(bteResult))
        Catch ex As CryptographicException
            Console.WriteLine(ex.Message)
        End Try
        Dim strResault As String
        Dim bteDecrypt() As Byte
        Try
            bteDecrypt = myRSAProvide.Decrypt(bteResult, False)
            strResault = Encoding.ASCII.GetString(bteDecrypt)
            Console.WriteLine(strResault)
        Catch ex As CryptographicException
            Console.WriteLine(ex.Message)
        End Try
        myRSAProvide.Clear()
    End Sub