GENERAR SHA512 - Soulsmakers

Generar SHA512

Hola aqui te dejo la funcion para generar el codificado en SHA512 en vb.net

Function generarSHA512(ByVal sCadena As String) As String
  ' Objeto de codificación
  Dim ueCodigo As New UnicodeEncoding()
  ' Objeto para instanciar las codificación
  Dim SHA As New SHA512Managed&lt;/code>

  ' Calcula el valor hash de la cadena recibida
  Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena))

  ' Convierte el valor anterior en cadena y lo devuelve
  Return Convert.ToBase64String(bHash)
End Function

Function generarSHA512(ByVal sCadena As String) As String

' Objeto de codificación

Dim ueCodigo As New UnicodeEncoding()

' Objeto para instanciar las codificación

Dim SHA As New SHA512Managed</code>

' Calcula el valor hash de la cadena recibida

Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena))

' Convierte el valor anterior en cadena y lo devuelve

Return Convert.ToBase64String(bHash)

End Function

Espero que te sirva un Saludo

Deja un comentario Cancelar respuesta