Hey, ich habe eine Funktion geschrieben mit der ihr ganz einfach aus einem String ein MD5-Hash erstellen könnt.
Snippet
Function ConvertToMD5(ByVal inputString As String) Dim enc As System.Text.Encoding = System.Text.Encoding.Default Dim MD5Crypto As New Security.Cryptography.MD5CryptoServiceProvider Dim MD5String As String = "" ' ' Da Nullen vor einer Zahl bei Integers automatisch entfernt werden, ' müssen wir diese wieder einfügen da ansonsten der Hash nicht Stimmt ' For Each b As String In MD5Crypto.ComputeHash(enc.GetBytes(inputString)) If Hex(b).Length < 2 Then MD5String = MD5String & "0" & Hex(b) Else MD5String = MD5String & Hex(b) End If Next Return MD5String End Function |
Rückgabetyp
String
Beispiel
Dim MyString as String = "https://www.developer-heaven.de" MyString = ConvertToMD5(MyString) |
Rückgabewert vom Beispiel
92ECE35729209BDF691883A7BE6C0595
Lizenz
Ihr könnt das Snippet bei all euren Projekten benutzen,
Credits sind nicht nötig, wären aber schön.
Viel Spaß dabei.
Und, wie immer: Kommentare gerne gesehen 😉
637x gelesen
Ihr eintrag ist gut geschrieben und aufschlussreich. Herzlichen Grüßen!
— Lavonne
Klasse Snippet. Und vor allem: sehr übersichtlich! Weiter so 🙂