MD5 Verschlüsselung aus einem String

Eine MD5 Verschlüsselung in VB.NET ist nicht so einfach wie in PHP.

Ich selber wollte vor ein paar Tagen eine solche Verschlüsselung erstellen, nachdem ich mich mit den vielen Resultaten von Google abgegeben habe und nach einigem Suchen ein Script gefunden habe welches mir zusagt, habe ich mich entschlossen schnell hier ein Tutorial zu schreiben welches dann anderen Users die Suche vereinfachen sollte.

Imports System.Security.Cryptography
Imports System.Text

Public Function MD5Cryptography(By Val strString as String) as String
    Dim md5 As New MD5CryptoServiceProvider
    Dim Data As Byte()
    Dim Result As Byte()
    Dim Res as String = ""  
    Dim tmp As String = ""  

    Data = Encoding.ASCII.GetBytes(strString)
    Result = MD5.ComputeHash(Data)

    For i as integer = 0 To Result.Length - 1
        tmp = Hex(Result(i))
        if Len(tmp) = 1 Then
            tmp = "0" & tmp  
        End If

        Res += tmp
    Next
    
    Return Res

End Function

Damit ein MD5 Hash erstellt werden kann muss der String in Bytes umgewandelt werden

Data = Encoding.ASCII.GetBytes(strString)

Danach kann aus den Bytes der MD5 Hash erstellt werden

Result = MD5.ComputeHash(Data)

Mit der FOR Schleife wird dann als letztes noch das Resultat wieder in Zahlen und Buchstaben umgewandelt.

Ich hoffe ich konnte einigen Usern mit diesem kleinen Tutorial helfen.

Grüsse

scan