Encriptar texto en vb.net con SHA512

SHA512 en un encriptador de cifrado irreversible que se encuentra en la libreria System.Security.Cryptography del .net.

Al ser de cifrado irreversible ya no se puede desencriptar. puede tener diferentes usos por ejemplo si queremos validar la contraseña de un usuario poder comparar la contraseña encriptada en la base de datos y la cadena encriptada de una caja de texto.

para usar SHA512 debemos importar las siguientes librerias

Imports System.Security.Cryptography
Imports System.Text

la siguiente funcion recibe la cabena y devuelve la cadena encriptada

 Public Function EncriptarPwd(ByVal pwd As String) As String
        Dim cifrador As New SHA512Managed
        Dim contraseñaOriginal As Byte() = Encoding.ASCII.GetBytes(pwd)
        Dim contraseñaCifrada As Byte() = cifrador.ComputeHash(contraseñaOriginal)
        Dim textoContraseñaCifrada As String = Convert.ToBase64String(contraseñaCifrada)
        Return textoContraseñaCifrada
    End Function