Desencriptar Texto y variables con .NET VB y C# segunda parte

si en el articulo anterior (primera parte):

http://www.devjoker.com/contenidos/Articulos/276/-Como-encriptar-texto-y-variables-usando-algoritmos-estandard-como-DES-o-TRIPLEDES.aspx

Veiamos como encriptar cadenas con Vb.net y el algoritmo DES en esta ocasión veremos como realizar la acción contraria (desencriptar) usando C# y triple DES


//using System.Security.Cryptography
//Para poder desencriptar necesitamos los mismos parametros con 
//los que encriptamos
//así como el mensaje encriptado
//para este ejemplo los leemos de una variable de sesión
byte[] Key = (byte[])Session["Key"];
byte[] IV = (byte[])Session["IV"];
byte[] cipherMessage = (byte[])Session["Message"];
String mensajeDesencriptado;
 
//La clase TripleDESCryptoServiceProvider crea el mecanismo 
//de encriptación 
//en este caso deberemos sobreescribir los parametros que nos crea 
TripleDES des = new TripleDESCryptoServiceProvider();
 
 
//Creamos un desencriptador en vez de un encriptador.
//como parametros del constructor le pasamos los parametros
ICryptoTransform Crypto = des.CreateDecryptor(Key, IV);
 
//Creamos el buffer en memoria para poder desencriptar
MemoryStream cipherStream = new MemoryStream(cipherMessage);
 
//Ahora creamos un CryptoStream para desencriptar
CryptoStream cStream = 
new CryptoStream(cipherStream, Crypto, CryptoStreamMode.Read);
 
//guardamos el mensaje desencriptado en una variable 
String mensajeDesencriptado =new StreamReader(CryptoStream).ReadToEnd() ;
cStream.Close();

UPDATE:Este sería el mismo ejemplo pero en vb.net (sin comentarios en el codigo)

 
Dim des As New DESCryptoServiceProvider()
Dim desDecrypt As ICryptoTransform = des.CreateDecryptor _
(Session("Key"), Session("IV"))
Dim ms As New MemoryStream(arOutput)
Dim cStream As New CryptoStream(ms, desDecrypt, CryptoStreamMode.Read)
txtDecrypted.Text = New StreamReader & _
(cStream, New UnicodeEncoding()).ReadToEnd()
cStream.Close()