Wie konvertiert einen Hexadezimalwert in ASCII?

Ich versuche, mit fstream sind schreiben einer ausführbaren Datei:

Dim buffer As String
Dim c As Char = Chr(9)
Dim fs As System.IO.FileStream = New System.IO.FileStream("test.exe", IO.FileMode.OpenOrCreate)
Dim w As System.IO.BinaryWriter = New System.IO.BinaryWriter(fs)

w.Seek(0, System.IO.SeekOrigin.Begin)
w.Write(HEX VALUES HERE)

w.Close()
fs.Close()

Konvertieren des hex-ASCII, die ich versucht habe, Dinge wie:

  MessageBox.Show(ChrW(Convert.ToInt32("48", 16)))
  MessageBox.Show(Chr(CInt("&H" & "48")))
  MessageBox.Show(Chr(CInt("&H48")))

Jedoch jede dieser Funktionen funktionieren nur mit einem einzigen Charakter. Wie mache ich diese Funktionen die Arbeit für ganze strings?

InformationsquelleAutor 43.52.4D. | 2012-12-24

Ich bin Entsendung eine andere Antwort. Sie können den folgenden code zur Implementierung der Funktionalität.

Dim st As String = "49204c6f76652050726f6772616d6d696e672e"
    Dim com As String
    For x = 0 To st.Length - 1 Step 2
        Dim k As String = st.Substring(x, 2)
        com &= System.Convert.ToChar(System.Convert.ToUInt32(k, 16)).ToString()
    Next

Können Sie auch mithilfe des folgenden code-Funktion:

Dim st As String = "49204c6f76652050726f6772616d6d696e672e"
Dim com As String
For x = 0 To st.Length - 1 Step 2
    com &= ChrW(CInt("&H" & st.Substring(x, 2)))
Next

InformationsquelleAutor krunal

4

Können Sie diese verwenden, um zu konvertieren eine hexadezimale Zeichenfolge in ASCII:
```
Dim hexValue = "48"
Dim ASCII_value = System.Convert.ToChar(System.Convert.ToUInt32(hexValue, 16))
```
- Vielleicht ist Sie völlig verfehlt den Punkt meiner Frage... Wie Mach ich das mit MEHREREN Charakteren? Wenn ich sage "Dim hexValue = "48&49" es funktioniert nicht... Wenn ich ein Leerzeichen zwischen die zwei es immer noch nicht funktioniert...Wie kann ich es machen das arbeiten für eine ganze Reihe? (Oder nur zwei hex-bytes zB "48 49")
- Erstellen Sie Ihre eigene Methode, und parse den string zum erstellen der ascii-Ergebnis Sie erwarten
- Ich weiß, was Sie tun möchten. Es ist sehr einfach mit diesem Beispielcode zum umwandeln von HEX zu ASCII. Ich gebe Euch den Tipp zu arbeiten. Sollte man Für die Schleife zum erzeugen der ASCII-HEX. Hier oben meine Antwort richtig ist & es kann Arbeit und geben Sie die ASCII-Werte.
- Hey Mann, vielen Dank, aber ich schrieb schon-code, wie deine Vorherige, um Ihre Antwort... Es funktioniert gut, außer wenn Sie geben Sie einen hex-Wert von "80"... Das schreiben Sie als "3F" was ist "?" Wie bekomme ich dieses?
- Hast du konvertieren in ASCII, mit "80" & "3F"?
InformationsquelleAutor krunal

Umwandlung von H hexadezimal:

debug.Print hex(asc("H"))
>48

Rücken H wieder:

debug.Print chr(val("&H" & "48"))
>H

Lassen Sie mich senden Sie mehr details, geben ein einfaches Beispiel. denken Sie Daran, Ihre Antwort ist, wie konvertieren von hex zu ascii. Für Sie, die Sie gerade brauchen, um Funktion hex_to_ascii wie unten beschrieben.

Sub test()
Dim str_word As Variant
str_word = "Hello Word"
Debug.Print "We've set=" & str_word

Dim hex_word As Variant
hex_word = str_to_hex(str_word)
Debug.Print "Just for convert to Hex format=" & hex_word
'48656C6C6F20576F7264

Dim ascii_word As Variant
ascii_word = hex_to_ascii(hex_word)
Debug.Print "Getting ASCII format from Hex=" & ascii_word
'072101108108111032087111114100

Dim hex_word_from_ascii As Variant
hex_word_from_ascii = ascii_to_hex(ascii_word)
Debug.Print "Finally converting Hex value to ascii=" & hex_word_from_ascii
'48656C6C6F20576F7264

Dim str_from_hex As Variant
str_from_hex = hex_to_str(hex_word_from_ascii)
Debug.Print "Remember=" & str_from_hex
'Hello Word
End Sub

Function str_to_hex(p_str As Variant) As Variant
Dim x As Long
Dim resp As Variant
Dim tmp As String
For x = 1 To Len(p_str)
  tmp = Mid$(p_str, x, 1)
  resp = resp & Hex(Asc(tmp))
Next
str_to_hex = resp
End Function

Function hex_to_str(p_hex As Variant) As Variant
Dim x As Long
Dim resp As Variant
Dim tmp As String
For x = 1 To Len(p_hex) Step 2
  tmp = Mid$(p_hex, x, 2)
  resp = resp & Chr(Val("&H" & tmp))
Next
hex_to_str = resp
End Function

Function hex_to_ascii(p_hex As Variant) As Variant
Dim x As Long
Dim resp As Variant
Dim tmp As String
For x = 1 To Len(p_hex) Step 2
  tmp = Mid$(p_hex, x, 2)
  resp = resp & Format(Val("&H" & tmp), "000")
Next
hex_to_ascii = resp
End Function

Function ascii_to_hex(p_ascii As Variant) As Variant
Dim x As Long
Dim resp As Variant
Dim tmp As String
For x = 1 To Len(p_ascii) Step 3
  tmp = Mid$(p_ascii, x, 3)
  resp = resp & Hex(tmp)
Next
ascii_to_hex = resp
End Function

Bitte erläutern Sie Ihre Antwort im detail, so dass andere verstehen können.

InformationsquelleAutor Marcus Poli

0

Die ich gesammelt habe verschiedene Hex-Funktionen und veränderte Sie, bis Sie funktionierte.
Hier sind Sie:

http://pastebin.com/ewQh5iRa

InformationsquelleAutor Benedikt M.

Ausprobiert und getestet code

Erstellen Sie eine Funktion durch kopieren und einfügen dieser

Function HexToString(ByVal hex As String) As String
    Dim text As New System.Text.StringBuilder(hex.Length \ 2)
    For i As Integer = 0 To hex.Length - 2 Step 2
        text.Append(Chr(Convert.ToByte(hex.Substring(i, 2), 16)))
    Next
    Return text.ToString
End Function

Verwenden Sie es wie diese

Debug.WriteLine(HexToString("73696D306E"))

Quelle

InformationsquelleAutor Cary Bondoc

0

Irgendwie überflüssig, aber ich werde hinzufügen, das finde ich einfacher. Diese wird verwendet, wenn Sie ein byte-array.
```
Dim str As String = String.Empty
For Each c In byteArray
    str &= ChrW(c)
Next
```
InformationsquelleAutor Jaberwocky

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.