[VB.Net] Hex->Binary Converter [Question]

[d3rrial]

Hey Guys: Wanted to ask you a simple question: I need a slice of code wich converts a Hex Value (a MD5 Hash) into a Binary Value. I cant get it to work >_<

Dim StringText As String = Hex(CInt(MD5StringHash(TextBox3.Text)))

This is something I found on the Interwebz, but it doesnt work tho.

[ReidE96]

I'm assuming you have a function for MD5StringHash, yeah?

The Hex function is used to change a normal int to a hex value. What you want there would be this:

Dim BinMD5 As String = Convert.ToString(Convert.ToInt32(MD5StringHash(TextBox3.Text),16),2)

Breaking it down: You already have your MD5 string of Hex. The inner convert changes this to an int32 (from base 16). The outer changes this to binary (base 2). Convert = god when it comes to moving between arbitrary bases. ToInt32, you put what you're converting from. ToString, what you're converting to.

[d3rrial]

Idea sounded good, but the outcome was just another error.

So I found a Solution by myself.

    Public Function HexToBin(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