String to Hex, Hex to String ohne "böse" Funktionen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    String to Hex, Hex to String ohne "böse" Funktionen

    Hi,

    ich möchte einen String in seine hexadezimale Darstellung umwandlen und dann wieder zurückübersetzen.

    MIr ist klar, dass diese Funktionen "kulturabhängig" sein müssen, da ja die Darstellung des Strings vom Encoding abhängt.

    So hab ich das hinbekommen:

    VB.NET-Quellcode

    1. Public Function S2X(ByRef s As String) As String
    2. Dim Data = s
    3. Dim sVal As String
    4. Dim sHex As String = ""
    5. While Data.Length > 0
    6. sVal = Microsoft.VisualBasic.Conversion.Hex(Microsoft.VisualBasic.Strings.Asc(Data.Substring(0, 1).ToString()))
    7. sHex = sHex & sVal.PadLeft(2, "0"c)
    8. Data = Data.Substring(1, Data.Length - 1)
    9. End While
    10. Return sHex
    11. End Function
    13. Function X2S(ByRef s As String) As String
    14. Dim sb As New System.Text.StringBuilder(s.Length \ 2)
    15. For i As Integer = 0 To s.Length - 2 Step 2
    16. sb.Append(Chr(Convert.ToByte(s.Substring(i, 2), 16)))
    17. Next
    18. Return sb.ToString
    19. End Function


    Ich habe das für alle möglichen Hex Kombinationen erfolgreich getestet.

    Trotzdem habe ich meine Zweifel an der Quallität der Funktionen.

    1. Die Routinen verwenden "alten" VB Code aus dem "Visual Basic" Namespace ...

    2. Jedes Zeichen des Eingabestrings wird in EIN Hex 2er-Tupel übersetzt. Das kann nicht allgemeingültig sein, da ja ein Zeichen in einem String durchaus aus zwei oder mehr Bytes bestehen kann.

    Wie macht man denn sowas richtig ?

    LG
    Peter

    @Peter329 Zur Darstellung einers ganzzahligen Wertes nimmst Du einfach:

    VB.NET-Quellcode

    1. Dim value = 123
    2. MessageBox.Show(value.ToString("X") & EnvironMent.NewLine & value.ToString("X2") & EnvironMent.NewLine & value.ToString("X4") & EnvironMent.NewLine & value.ToString("X8"))
    Probiere ebenfalls mit großem und kleinem "X", "x".
    Die andere Richtung geht so:

    VB.NET-Quellcode

    1. Dim txt = "abc"
    2. Dim value = Convert.ToInt32(txt, 16)
    wobei 16 die Zahlenbasis (hier: Hexadezimal) ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke ... das klingt sehr gut aus ! :)

    Ich hab das jetzt so umgesetzt:

    VB.NET-Quellcode

    1. 'Convert array to hex string
    2. Dim myHexString As String = ""
    3. For i As Integer = 0 To mySourceArray.Count - 1
    4. myHexString &= mySourceArray(i).ToString("x2").ToUpper
    5. Next
    7. 'Convert hex string to array
    8. Dim myTargetArray(CInt(myHexString.Length / 2 - 1)) As Byte
    9. For i As Integer = 0 To myTargetArray.Count - 1
    10. myTargetArray(i) = CByte(Convert.ToInt32(strHex.Substring(i * 2, 2), 16))
    11. Next


    Ist das mit den Schleifen so in Ordnung oder kann man die vermeiden. Ansonsten werde ich den Thread als erledigt markieren.

    Alles in allem läuft das so hervorragend. Ganz herzlichen Dank für deinen Rat !

    @Peter329 Da hast Du wohl nicht alles ausprobiert, was ich Dir geschrieben habe. ;)

    RodFromGermany schrieb:

    Probiere ebenfalls mit großem und kleinem "X", "x".

    Was soll den hinterher in Deinem Target-Array stehen (eine verbale Beschreibung bitte)?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ok, also mit dem großen "X" kann ich den Aufruf der Funktion .ToUpper vermeiden. Ich nehme an, dass es das ist, was du gemeint hast.

    Die beiden Funktionen werden gebraucht, um einen beliebigen Byte Array in einen String unzuwandeln ... und später aus diesem String genau den gleichen Byte Array zu erzeugen. (Insofern ist mein Thread Titel nicht ganz korrekt).

    Die Sache funktioniert ... und so wie ich das sehe, kann man die o.a. Routinen nicht weiter vereinfach. Aber sie sind ja auch so schon schnuckelig genug ! :)

    Danke nochmal und LG
    Peter

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Peter329“ ()

    Hi
    ggf. kämst du auch mit Base64 gut zurecht.
    Wenn es für jedes Encoding funktionieren soll, wäre folgender Ansatz evtl. genau das, was du brauchst. Der wäre auch effizienter:

    VB.NET-Quellcode

    1. Shared Function GetHexFromData(data As Byte()) As String
    2. If data Is Nothing Then Throw New ArgumentNullException(NameOf(data))
    4. 'aus diesen Buchstaben besteht der String
    5. Static chars As Char() = {"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "a"c, "b"c, "c"c, "d"c, "e"c, "f"c}
    7. 'in diesen Puffer werden die Zeichen eingelesen. Die Größe des Puffers ergibt sich aus der Länge der Eingabe: Jedes Eingabezeichen wird in zwei Ausgabezeichen konvertiert
    8. Dim sb As New System.Text.StringBuilder(data.Length * 2)
    10. For Each bt As Byte In data
    11. 'für big endian vertauschen
    12. sb.Append(chars(bt >> 4))
    13. sb.Append(chars(bt And &HF))
    14. Next
    16. Return sb.ToString()
    17. End Function
    19. Shared Function GetDataFromHex(hexString As String) As Byte()
    20. If hexString Is Nothing Then Throw New ArgumentNullException(NameOf(hexString))
    21. 'Wenn der String ungerade Länge hat, kann er nicht interpretiert werden, da immer 2 Buchstaben 1 Byte darstellen
    22. If (hexString.Length And 1) <> 0 Then Throw New ArgumentException("Input length must be a multiple of 2 as each byte must consist of two hexadecimal digits.", NameOf(hexString))
    24. Dim data(hexString.Length \ 2 - 1) As Byte
    26. For i As Integer = 0 To data.Length - 1
    27. 'für big endian (2 * i) mit (2 * i + 1) vertauschen
    28. data(i) = (GetHexCharacterValue(hexString(2 * i)) << 4) Or GetHexCharacterValue(hexString(2 * i + 1))
    29. Next
    31. Return data
    32. End Function
    34. Private Shared Function GetHexCharacterValue(character As Char) As Byte
    35. If character >= "0"c AndAlso character <= "9"c Then
    36. Return CByte(Asc(character) - Asc("0"c))
    37. ElseIf character >= "A"c AndAlso character <= "F"c Then
    38. Return CByte(10 + Asc(character) - Asc("A"c))
    39. ElseIf character >= "a"c AndAlso character <= "f"c Then
    40. Return CByte(10 + Asc(character) - Asc("a"c))
    41. Else
    42. Throw New ArgumentException("Character does not represent a hexadecimal digit.")
    43. End If
    44. End Function


    Beachte übrigens insbesondere die ganzzahlige Divison durch \ statt durch /. \ liefert einen Integer zurück, / einen Double.

    Edit:
    bzgl. Base64:
    Convert.FromBase64String und Convert.ToBase64String sind die jeweiligen Methoden (es gibt sie in Convert auch für Char-Arrays). Wenn es dir nur um die String-Repräsentation geht, ist das wohl die Wahl, die ich treffen würde.

    Viele Grüße
    ~blaze~

    @~blaze~ Jou.
    @Peter329 Zu Base64 hab ich folgendes Snippet:

    VB.NET-Quellcode

    1. Dim bb() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14}
    2. Dim bb64 = Convert.ToBase64String(bb)
    4. Dim bb2 = BitConverter.ToString(bb)
    6. Dim b2() = Convert.FromBase64String(bb64)
    Falls es sich dabei um ein Image handelt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Form mit 2 Button, RichTextBox und PictureBox
    2. Imports System.IO
    3. Imports System.Drawing.Imaging
    5. Public Class Form1
    6. Dim base64 As String
    8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    9. Dim by As Byte()
    10. Dim bmp = New Bitmap("C:\Temp\Base.jpg") ' ein Bild halt
    11. Using ms = New MemoryStream
    12. bmp.Save(ms, ImageFormat.Png)
    13. by = ms.ToArray()
    14. End Using
    16. ' Länge aufgerundet bestimmen:
    17. ' https://de.wikipedia.org/wiki/Base64
    18. Dim len = CInt(by.Length * 1.4)
    19. ' Char-Array für den Base64-String
    20. Dim charArray As Char() = New Char(len) {}
    21. Dim len2 = Convert.ToBase64CharArray(by, 0, by.Length, charArray, 0, Base64FormattingOptions.InsertLineBreaks)
    23. Me.base64 = New String(charArray, 0, len2)
    24. Me.RichTextBox1.Text = base64
    25. End Sub
    27. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    28. ' Deserialisierung:
    29. ' Aus dem Base64-String ein Byte-Array generieren
    30. Dim array As Byte() = Convert.FromBase64CharArray(base64.ToCharArray(), 0, base64.Length)
    32. ' und als Bitmap instanziieren
    33. Using ms As New MemoryStream(array)
    34. Me.PictureBox1.Image = New Bitmap(ms)
    35. End Using
    36. End Sub
    38. End Class

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende