[SNIPPET] MD5 mit Visual Basic.NET generieren

    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

Dim MyString as String = "https://www.developer-heaven.de"
MyString = ConvertToMD5(MyString)