Calcular hash MD5 en Visual Basic 2005

Resulta que he hecho una miniaplicación en Visual Basic que te avisa cuando llega la hora de un evento que anteriormente has guardado en un calendario de una web en PHP.

Al hacer esta aplicación me encontrado con el problema de la validación del usuario. Resulta que cuando creas un evento en la web te validas por medio de un password codificado en MD5 (con la función md5() de PHP).

En visual basic no existe ninguna función (almenos no la conozco) que te haga esa conversión, asi que tube que escribir una que la hiciese. En las pruebas que he hecho, parece que funciona perfectamente, pero sino, se aceptan comentarios .

Function calculaMD5(ByVal cadena As String) As String
CALCULO EL HASH DE LA CLAVE INTRODUCIDA CON MD5
Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim bytValue() As Byte
Dim bytHash() As Byte
Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder(32)
Dim i As Integer
bytValue = System.Text.Encoding.UTF8.GetBytes(cadena)
bytHash = md5.ComputeHash(bytValue)
md5.Clear()
Dim str As String = ""
 
'bytHash SIEMPRE DEVUELVE PAREJAS DE CARACTERES QUE VOY CONCATENANDO
For i = 0 To bytHash.Length - 1
str = bytHash(i).ToString("x2")
sb.Append(str)
Next
 
'DEVUELVO LA CADENA MD5
Return sb.ToString
End Function

Comparte:

2006: 02/02
CATEGORIA: general
Escribir un comentario

La vida digital