Diviertete encriptando tus passwords con .NET

Imports System
Imports System.Security.Cryptography
Imports System.Text
 
' Clase que engloba metodos de criptografia para guardar tus passwords :P
 
' Puedes implementar tus metodos de criptografia y extender tu clase a gusto :)
Public Class Cryptografia
 
	' Encripta una cadena de texto usando el algoritmo de encriptacion de hash MD5.
	' el "Message Digest" es una encriptacion de 128-bit y es usado comunmente para
	' verificar datos chequeando el "Checksum MD5", mas informacion se puede
	' encontrar en: http://www.faqs.org/rfcs/rfc1321.html
	'
 
	' cadena conteniendo el string a hashear a MD5.
	' Una cadena de texto conteniendo en forma encriptada la cadena ingresada.
	Public Shared Function MD5Hash(ByVal Data As String) As String
		Dim md5 As MD5 = New MD5CryptoServiceProvider()
		Dim hash As Byte() = md5.ComputeHash(Encoding.UTF8.GetBytes(Data))
 
		Dim stringBuilder As New StringBuilder()
 
		For Each b As Byte In hash
			stringBuilder.AppendFormat("{0:x2}", b)
		Next
		Return stringBuilder.ToString()
	End Function
 
	' Encripta una cadena utilizando el algoritmo SHA256 (Secure Hash Algorithm)
	' Detalles: http://www.itl.nist.gov/fipspubs/fip180-1.htm
	' Esto trabaja de misma manera que el MD5, solo que utilizando una
	' encriptacion en 256 bits.
 
	' Un string conteniendo los datos a encriptar.
	' Un string conteniendo al string de entrada, encriptado con el algoritmo SHA256.
	Public Shared Function SHA256Hash(ByVal Data As String) As String
		Dim sha As SHA256 = New SHA256Managed()
		Dim hash As Byte() = sha.ComputeHash(Encoding.UTF8.GetBytes(Data))
 
		Dim stringBuilder As New StringBuilder()
		For Each b As Byte In hash
			stringBuilder.AppendFormat("{0:x2}", b)
		Next
		Return stringBuilder.ToString()
	End Function
 
	' Encripta una cadena utilizando el algoritmo SHA256 (Secure Hash Algorithm)
	' Detalles: http://www.itl.nist.gov/fipspubs/fip180-1.htm
	' Esto trabaja de misma manera que el MD5, solo que utilizando una
	' encriptacion en 256bits.
 
	' Un string conteniendo los datos a encriptar.
	' Un string conteniendo al string de entrada, encriptado con el algoritmo SHA384.
	Public Shared Function SHA384Hash(ByVal Data As String) As String
		Dim sha As SHA384 = New SHA384Managed()
		Dim hash As Byte() = sha.ComputeHash(Encoding.UTF8.GetBytes(Data))
 
		Dim stringBuilder As New StringBuilder()
		For Each b As Byte In hash
			stringBuilder.AppendFormat("{0:x2}", b)
		Next
		Return stringBuilder.ToString()
	End Function
 
	' Encripta una cadena utilizando el algoritmo SHA256 (Secure Hash Algorithm)
	' Detalles: http://www.itl.nist.gov/fipspubs/fip180-1.htm
	' Esto trabaja de misma manera que el MD5, solo que utilizando una
	' encriptacion en 512 bits.
 
	' Un string conteniendo los datos a encriptar.
	' Un string conteniendo al string de entrada, encriptado con el algoritmo SHA512.
	Public Shared Function SHA512Hash(ByVal Data As String) As String
		Dim sha As SHA512 = New SHA512Managed()
		Dim hash As Byte() = sha.ComputeHash(Encoding.UTF8.GetBytes(Data))
 
		Dim stringBuilder As New StringBuilder()
		For Each b As Byte In hash
			stringBuilder.AppendFormat("{0:x2}", b)
		Next
		Return stringBuilder.ToString()
	End Function
End Class