Encriptar archivos - El Rincón de Cesar

Generar cadena con encriptación SHA1

7 de abril de 20211 de noviembre de 2021 Cesar Perez

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.

Encriptar cadena en MD5 en SQL Server

5 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola de nuevo,

Otra pequeña aportación, en este caso, para poder generar un MD5 directamente en SQL Server, para ello con esta simple linea podremos tener el resultado, solo tienes que sustituir tu cadena donde pone “elrincondecesar.com”. Como ves es muy sencilla, la funcion de sql fn_varbintohexstr, nos permite obtenerla con esa simple linea.

SELECT SUBSTRING(
            master.dbo.fn_varbintohexstr(HashBytes('MD5','elrincondecesar.com')),3,32)

--Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

SELECT SUBSTRING(

master.dbo.fn_varbintohexstr(HashBytes('MD5','elrincondecesar.com')),3,32)

--Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

Si quieres ver como se hace en .NET, aqui te pongo el ejemplo que pusimos hace unos dias.

Saludos,

Generar cadena en MD5

1 de abril de 20211 de noviembre de 2021 Cesar Perez 2 comentarios

Hola buenas tardes a tod@s,

En esta entrada os traemos un codigo muy sencillo para poder generar una cadena en formato MD5, con esto podemos generar algun hash para controlar alguna contraseña o simplemente para poder realizar algun control de versiones.

La funcion seria la siguiente:

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

Imports System.Text

Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Md5 As New MD5CryptoServiceProvider()

Dim bHash() As Byte = Md5.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 sMd5Generado As String = generarMD5(sCadena)

'Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

Dim sCadena As String = "elrincondecesar.com"

Dim sMd5Generado As String = generarMD5(sCadena)

'Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

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