Hi,

Wenn ich in meiner Visual Basic 2008 Express Edition ein Hex-Code zu einem Ascii-Text konvertieren will, muss ich wohl über den Weg der Dezimalkodierung gehen, so wie ich das sehe. (Bin erst 2 Tage dabei)

Da mein Plan noch nicht sehr ausgereift ist und es eher am ersten Punkt scheitert, versuche ich mal mein Vorhaben beispielhaft zu erklären, habe ja noch keinen richtigen Code.

Ich würde die Hex-Blöcke in ihre 2 Zahlen aufteilen. Jede Zahl in den Dezimalcode bringen: Asc(Nr1) und Asc(Nr2), anschließend - je nach dem ob Zahl oder Buchstabe(IsNumeric?), -55 oder -48. (Bsp.: a1 = Asc(Nr1) - 55)
Dann das Ergebniss von der ersten Zahl mit 16 Multiplizieren, das Ergebniss der 2. Zahl mit 1. (b1 = a1 * 16) Anschließend dann beide Werte zusammen rechnen (c1 = b1 + b2) und das Ergebniss dekodieren. (TextBox2.Text = Chr(c1))



Frage: Wie teile ich die 2 Nummern des Hexadezimals eines Buchstabens in 2 Variablen ein, sodass ich damit rechnen kann? Oder überhaupt, wie ordne ich Textstellen verschiedene Variablen zu?

Grüße

Man kann Hexadezimalwerte einfach in Zahlenwerte umwandeln, indem man "&H" voranstellt:

ergibt beispielsweise 74 (=4*16+10).

Mit erhält man dann den Buchstaben J.

Okay. Das reduziert die Länge schon mal und ich kann immerhin Hex einzelln bearbeiten. Wenn ich nun aber eine ganze Datei(ggf. Text) als Hex dargestellt habe und diese wieder als ASCII lesen will, muss ich ja mehr als nur eine Hex-Ziffer bearbeiten. Denke, das löst man irgendwie mit einer Schleife. Haber allerdings keine Idee, wie.

Hilfe gern gesehen.

So würde man es mit VBA machen:



Bei AscText kommt im Beispiel "Visual Basic" heraus.

Ich glaube, in VB 2008 benutzt man statt Len und Mid andere Funktionen. Kannst es ja trotzdem mal ausprobieren.

Ok, die Übersetzung von Text -> Hex -> Text läuft perfekt. Nur hätte ich zur Übersichtlichkeit noch gerne Leerzeichen zwischen den einzellnen Hex-Ziffern (48616C6C6F -> 48 61 6C 6C 6F). Das umzusetzen ist nicht schwer, einfach:

TextBox2.Text = TextBox2.Text & Hex(Asc(wert))

-> TextBox2.Text = TextBox2.Text & " " & Hex(Asc(wert))

Wenn die Leerzeichen drin sind, kann ichs aber nicht mehr von Hex zu Text umwandeln. Nun könnte ich mit Replace() die ganzen Leerzeichen rausmachen und anschließend einfügen - erste Idee. Aber erstens weiß ich nicht wie ich sie dann wieder einfüge und zweitens ist es eine recht unelegante Lösung.

Hilfe! =D

Mach bei der Schleife statt "Step 2" "Step 3", dann müsste es auch mit Leerzeichen klappen.

Mhh... meinte eigentl. das schon probiert zu haben und trotzdem gehts nun.

Naja, vielen Dank.

Nur ums für mich nun nach zu vollziehen. Er geht 3 Schritte weiter, benutzt davon aber nur die ersten 2 Zeichen? (...Step 3...; ...Mid(..., 2))

Bin ja erst am Anfangn des 3. Tages, habt Nachsicht.

Was die Rückumwandlung nach Hex betrifft:

Am Anfang der Folge wird ja gesagt: i = 1
Dann nimmt er bei Mid von der Position i die nächsten 2 Werte aus dem HexText und anschließend entschlüsselt bzw. verschlüsselt die dann wieder (Je nach dem wie rum man es betrachtet?!).
Dann erhöht er i um 3 = 4, dann beginnt das Spiel wieder von vorn.


Richtig so? Bringt mir ja wenig, wenn ich's stumpf abtippe und es nicht verstehe.

Richtig verstanden:

Beim ersten Schleifendurchlauf hat i den Wert 1 (For i = 1), der bei jedem Durchlauf um 3 erhöht wird (Step 3), also 1, 4, 7 usw., solange bis die Länge des Textes erreicht ist (To Len(Text)). Wird "Step ..." weggelassen, ist die Schrittlänge 1. Mid(Text, 7, 2) nimmt 2 Zeichen von Text, beginnend an der Stelle 7.

Habs nur nochmal mit eigenen Worten formuliert.

Bei meinem Code zur Umwandlung nach Hex ist mir noch ein Fehler aufgefallen: Das Leerzeichen nicht vor Hex(...) anhängen, sondern danach. Sonst funktioniert die Umwandlung nach ASCII nicht mehr. Sorry.

Und noch was: Rot dürfen nur Mods benutzen.