Código de cifrado y descifrado VB MD5

Dim nombre de usuario como Byte() = (New ASCIIEncoding).GetBytes(TextBox1.Text)

'Convertir a byte de matriz hash

Dim mdByte As Byte() = md5.ComputeHash(nombre de usuario)

'Dim mdString As String = System.BitConverter.ToString(mdByte)

Dim mdString As String = (Nueva codificación ASCII) .GetString(TextBox1.Text)