Función Hash con Visual Basic NET

En este artículo se explica la creación de una función que recibe un String y devuelve una cadena con el resumen hash SHA-1 correspondiente.

La validación usando resúmenes hash es una buena alternativa para la seguridad de cualquier aplicación.
 

Veamos el código de la función:

Function CreateHash(ByVal inCadena As String) As String

    Dim UE As New UnicodeEncoding
    Dim bHash As Byte()

    'Almacena la cadena ingresada en una matriz de bytes
    Dim bCadena() As Byte = UE.GetBytes(inCadena)
    Dim s1Service As New SHA1CryptoServiceProvider

    'Crea el hash
    bHash = s1Service.ComputeHash(bCadena)

    'Retorna como una cadena codificada en base64
    Dim Resumen As String
    Resumen = Convert.ToBase64String(bHash)

    Return Resumen

End Function

Los resumenes hash son cifrados unidireccionales porque es imposible obtener la cadena original a través del hash.

Por favor no olviden votar este artículo en PanoramaBox.

Gracias.

---

Espacios de nombres usados en el código de este artículo:

System.Security.Criptography
System.Text

Fichero con el código de ejemplo: inherits002_hash.zip - 1 KB