[Release] VB.Net / C# Hex-MD5 Hash to Binary!

**d3rrial** · 04-24-2010

I've been looking for this code in the Interwebz a long time and didnt find anything

So I wrote this myself:

Code:

static class ModuleMD5ToBinary
{
    public static string MD5ToBinary(object Übergabewert)
    {
        long abcdefg = 0;
        string ausgabe = "";
        for (abcdefg = 0; abcdefg <= 32; abcdefg += 1) {
            if (ausgabe.Length == 128) {
                return ausgabe;
                break; // TODO: might not be correct. Was : Exit For
            }
            else {
                switch (Übergabewert.Chars(abcdefg)) {
                    case "0":
                        ausgabe = ausgabe + Strings.Format("0000", "0000");
                        break;
                    case "1":
                        ausgabe = ausgabe + Strings.Format("0000", "0001");
                        break;
                    case "2":
                        ausgabe = ausgabe + Strings.Format("0000", "0010");
                        break;
                    case "3":
                        ausgabe = ausgabe + Strings.Format("0000", "0011");
                        break;
                    case "4":
                        ausgabe = ausgabe + Strings.Format("0000", "0100");
                        break;
                    case "5":
                        ausgabe = ausgabe + Strings.Format("0000", "0101");
                        break;
                    case "6":
                        ausgabe = ausgabe + Strings.Format("0000", "0110");
                        break;
                    case "7":
                        ausgabe = ausgabe + Strings.Format("0000", "0111");
                        break;
                    case "8":
                        ausgabe = ausgabe + Strings.Format("0000", "1000");
                        break;
                    case "9":
                        ausgabe = ausgabe + Strings.Format("0000", "1001");
                        break;
                    case "A":
                        ausgabe = ausgabe + Strings.Format("0000", "1010");
                        break;
                    case "B":
                        ausgabe = ausgabe + Strings.Format("0000", "1011");
                        break;
                    case "C":
                        ausgabe = ausgabe + Strings.Format("0000", "1100");
                        break;
                    case "D":
                        ausgabe = ausgabe + Strings.Format("0000", "1101");
                        break;
                    case "E":
                        ausgabe = ausgabe + Strings.Format("0000", "1110");
                        break;
                    case "F":
                        ausgabe = ausgabe + Strings.Format("0000", "1111");
                        break;
                }
            }
        }
        return ausgabe;
    }
}

^^
C#

Code:

Module ModuleMD5ToBinary
    Public Function MD5ToBinary(ByVal Übergabewert As Object) As String
        Dim abcdefg As Long
        Dim ausgabe As String = ""
        For abcdefg = 0 To 32 Step 1
            If ausgabe.Length = 128 Then
                Return ausgabe
                Exit For
            Else
                Select Case Übergabewert.Chars(abcdefg)
                    Case "0"
                        ausgabe = ausgabe & Format("0000", "0000")
                    Case "1"
                        ausgabe = ausgabe & Format("0000", "0001")
                    Case "2"
                        ausgabe = ausgabe & Format("0000", "0010")
                    Case "3"
                        ausgabe = ausgabe & Format("0000", "0011")
                    Case "4"
                        ausgabe = ausgabe & Format("0000", "0100")
                    Case "5"
                        ausgabe = ausgabe & Format("0000", "0101")
                    Case "6"
                        ausgabe = ausgabe & Format("0000", "0110")
                    Case "7"
                        ausgabe = ausgabe & Format("0000", "0111")
                    Case "8"
                        ausgabe = ausgabe & Format("0000", "1000")
                    Case "9"
                        ausgabe = ausgabe & Format("0000", "1001")
                    Case "A"
                        ausgabe = ausgabe & Format("0000", "1010")
                    Case "B"
                        ausgabe = ausgabe & Format("0000", "1011")
                    Case "C"
                        ausgabe = ausgabe & Format("0000", "1100")
                    Case "D"
                        ausgabe = ausgabe & Format("0000", "1101")
                    Case "E"
                        ausgabe = ausgabe & Format("0000", "1110")
                    Case "F"
                        ausgabe = ausgabe & Format("0000", "1111")
                End Select
            End If
        Next
        Return ausgabe
    End Function
End Module

^^
VB.Net

Have fun with it!