Generar cadena con encriptación SHA1

Hola buenas tardes a tod@s,

En esta entrada os traemos un codigo muy sencillo para poder generar una cadena en formato encriptacion SHA1, con esto podemos generar algun hash para controlar alguna contraseña.

La funcion seria la siguiente:

Imports System.Text
Imports System.Security.Cryptography
 
Function generarSHA1(ByVal sCadena As String) As String  
  Dim ueCodigo As New UnicodeEncoding() 
  Dim Sha1 As New SHA1CryptoServiceProvider() 
  Dim bHash() As Byte = Sha1.ComputeHash(ueCodigo.GetBytes(sCadena))
 
  Return Convert.ToBase64String(bHash)
End Function

Imports System.Text

Imports System.Security.Cryptography

Function generarSHA1(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Sha1 As New SHA1CryptoServiceProvider()

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

Return Convert.ToBase64String(bHash)

End Function

Para llamarla simplemente tendriamos que realizar la llamada a dicha funcion y tendriamos el resultado:

Dim sCadena As String = "elrincondecesar.com"
Dim sSha1Generado As String = generarSHA1(sCadena)

'Cadena obtenida: 6Z0ylT5mNNLtSZvBaWJ14Zqb1Og=

Dim sCadena As String = "elrincondecesar.com"

Dim sSha1Generado As String = generarSHA1(sCadena)

'Cadena obtenida: 6Z0ylT5mNNLtSZvBaWJ14Zqb1Og=

Como veis es muy sencillo, espero que os valga para algo 😉

Si necesitais hacer algo en MD5, podeis consultarlo aqui.