Convert heximal

[erikkloeze]

How can you convert a heximal string to a "normal string"??? For example, I've got a register file which contains the following: [HKEY_LOCAL_MACHINE\SOFTWARE\ORL\WinVNC3\Default] "Password"=hex:88,bf,a4,48,1a,4b,4d,4d So, I want to know how you can convert the heximal string "88,bf,a4,48,1a,4b,4d,4d" into just normal letters and numers... And I'm using VB 6.0!!!!! (¯`·._.·[eRiK]·._.·´¯)

[jzsmith33]

Friend Function HexToStr(ByVal strHex As String) As String Dim i As Integer Dim sb As New System.Text.StringBuilder(strHex.Length \ 2) For i = 0 To strHex.Length - 2 Step 2 sb.Append(Microsoft.VisualBasic.Chr(Convert.ToByte(strHex.Substring(i, 2), 16))) Next Return sb.ToString End Function

[Matthew Hazlett]

Didn't see and unhex functions built in so you have to build one

Private Function unHex(ByVal hexStr As String) As Integer
    Dim position As Integer = 1
    Dim Result As Integer = 0

    While Not position > hexStr.Length
        Dim thisChar As Char = Mid(hexStr, position, 1)

        Select Case UCase(thisChar)
            Case "A"
                Result += 10 \* (16 ^ (hexStr.Length - position))
            Case "B"
                Result += 11 \* (16 ^ (hexStr.Length - position))
            Case "C"
                Result += 12 \* (16 ^ (hexStr.Length - position))
            Case "D"
                Result += 13 \* (16 ^ (hexStr.Length - position))
            Case "E"
                Result += 14 \* (16 ^ (hexStr.Length - position))
            Case "F"
                Result += 15 \* (16 ^ (hexStr.Length - position))
            Case Else
                Result += Val(thisChar) \* (16 ^ (hexStr.Length - position))
        End Select

        position += 1
    End While

    Return Result
End Function

This will take as input a hexstring of any length and give you a result as an integer. ex. unHex("C17") = 3096 ex. unHex("C17BD") = 792509 Matthew Hazlett Windows 2000/2003 MCSE Never got an MCSD, go figure...

[erikkloeze]

One more thing, I'm using VB 6.0, NOT .NET!!!! And I don't only want them to be converted into numbers, nut just into a string, for example a word!!! eRiK

[Dave Kreskowiak]

If you trying to get that password, you'll be a little disappointed. At a glance, those numbers are way above the normal ascii characters. Your looking at an encrypted password. RageInTheMachine9532