Encriptando con RSACryptoServiceProvider

[PosProdukcion]

Hola, estoy intentando encriptar con RSA en VB.NET siguiendo esas indicaciones:

http://www.elguille.info/net/dotnet/...descifrar.aspx
http://www.mail-archive.com/mono-lis.../msg04351.html
http://www.eggheadcafe.com/articles/20020630.asp

Ninguna de las tres me funciona pero haciendo un mezcla de ellas he conseguido encriptar y desencriptar dentro de una misma Sub.

Sin embargo al intentar crear una clase que encripte y desencripte una cadena, esta sentencia:

Código vb:

Dim DecryptedStrAsByt() As Byte = RSA3.Decrypt(Encoding.Unicode.GetBytes(cadena), False)
 

Me da la excepción Datos incorrectos, siendo cadena el resultado de

Código vb:

Dim EncryptedStrAsByt() As Byte = RSA2.Encrypt(Encoding.Unicode.GetBytes(cadena), False)
Dim cadena = Encoding.Unicode.GetString(EncryptedStrAsByt)
 

¿Alguna idea de por donde arreglar esto?

Además, según uno de los enlaces anteriores, al desencriptar debería llamar a RSA3.FromXmlString(publicKey), pero esto me da excepcion Calve incorrecta, si pongo RSA3.FromXmlString(privateKey) sí funciona...

¿Sabéis algo de esto?

Gracias