Generar cadena en MD5 - El Rincón de Cesar

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 😉

2 comentarios en “Generar cadena en MD5”