Hex to Base64

[Sir Rufo]

Zusammenfassend kann man also sagen, das so eine HEX-Zeichenfolge eine Folge von Bytes darstellt, was im Übrigen auch so eine Base64-Zeichenfolge macht.

BTW Diese HEX-Zeichenfolge kann man auch als Base16-Zeichenfolge bezeichnen.

Somit ist auch der Weg klar: HEX-Zeichenfolge => Byte-Folge => Base64-Zeichenfolge

[himitsu]

EncdDecd
BinToHex / HexToBin

Aber das Indyzeugs hab ich auch schon paar mal genutzt.

Zitat:

gefunden habe ich diese aber nicht

Strg+Shift+F > Delphi-Installverzeichnis + "base64"

[Cubysoft]

Also ersteinmal vielen vielen Dank für eure Antwort. Ich stecke in der "binären" Materie leider einfach noch nicht wirklich drin und bin von den ganzen Dingen derzeit überwältigt. Ich kann euch mal erklären, wie sich der HEX-Wert zusammensetzt, vielleicht gibt es dann eine bessere Lösung:

02 01 AA B6 00 00

1.Byte: 02 (immer)
2.Byte: eine Zahl von 1-250 (im Hex-Format)
3-xByte: eine Zahl von 1-X im Format little endian (das macht mir gerade auch zu schaffen) auch HEX
x+1Byte: ein 0-Byte

Ich habe gerade schon damit scheusslich Probleme, weil ich das mit dem little endian nicht gebacken bekomme. Derzeit ist meine Lösung einfach nur hässlich. Ich konvertiere die Zahl (1-X) in einen Hex-String und schiebe dann jeweils in Zweierpäckchen die Bytes in die andere Reihenfolge. Auf diesem Weg schaffe ich es zwar, den HEX-Code als String darzustellen, aber am Rest scheitere ich kläglich. Am Besten wäre es natürlich, wenn ich einfach direkt alles in ein Byte Array gepackt bekomme, aber dafür reicht mein Wissen leider nicht aus. Es wäre genial, wenn ihr hierbei nochmal helfen könntet


Vielen vielen Dank schonmal für die Zahlreichen Antworten!

[p80286]

Zitat von Cubysoft:

Am Besten wäre es natürlich, wenn ich einfach direkt alles in ein Byte Array gepackt bekomme, aber dafür reicht mein Wissen leider nicht aus. Es wäre genial, wenn ihr hierbei nochmal helfen könntet

dann Schau Dir mal #2 an!
Das könnte hilfreich sein.

Gruß
K-H

P.S.
Hex ist übriges das gleiche wie Base16

[Cubysoft]

Achsoooooo jetzt weiß ich endlich was base 64 ist DD danke Ich schau mir deinen Post nochmal genauer an

EDIT: Ja hier ist auch schon das Problem:

Der Wert für das 2. Byte liegt als String vor (dezimal, 1-250). Der Wert für die Bytes danach liegt ebenfalls als String vor (aber nicht little endian sondern eben normal). Ich weiß weder, wie ich den Wert für Byte 2 als Byte konvertiere, noch wie ich einen Integer beliebiger länge (Byte 3-x) in ein little endian byte array konvertiere. Vor allem deswegen, weil die größe eines Integers - soweit ich weiß - unter 32 und 64bit unterschiedlich ist..

[Sir Rufo]

Zitat von Cubysoft:

Ja hier ist auch schon das Problem:

Der Wert für das 2. Byte liegt als String vor (dezimal, 1-250). Der Wert für die Bytes danach liegt ebenfalls als String vor (aber nicht little endian sondern eben normal). Ich weiß weder, wie ich den Wert für Byte 2 als Byte konvertiere, noch wie ich einen Integer beliebiger länge (Byte 3-x) in ein little endian byte array konvertiere. Vor allem deswegen, weil die größe eines Integers - soweit ich weiß - unter 32 und 64bit unterschiedlich ist..

Ob es wohl möglich wäre, dass du anstatt einer abstrakten Beschreibung einmal konkrete Werte zeigen könntest, so z.B.

Delphi-Quellcode:

function Foo( Arg1 : Byte; Arg2 : string; Arg3 : Int64 ) : string;
begin
  // da weiss ich nicht wie
end;

procedure Test;
begin
  Assert(
    // Eingangswerte 
    Foo(42, '42', 42) 
    // erwartetes Ergebnis
    = 'Magic' );
end;

Darunter können wir uns dann konkret etwas vorstellen

[Cubysoft]

Ich weiß nicht genau was du meinst, aber ich versuche gerade aus Werten einer Datenbank einen Base64 kodierten String zu erstellen, mit dem ein anderes Programm arbeiten kann. Dazu habe ich den genannten Aufbau:

1.Byte: Header (immer 02)
2.Byte: Anzahl (liegt als String vor: Beispiele: 1;15;123;250;... -> der Wert schwankt zwischen 1 und 250)
3-xByte: ID (liegt als String vor: Beispiele: 1;2345;65234;... -> der Wert ist immer positiv und ungleich 0 ansonsten theoretisch beliebige größe, derzeit aber nich größer als 3Bytes)
x+1Byte: 0Byte

Mein Ansatz zum Erstellen des Byte Arrays:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BArray: TByteDynArray;
  s2: string;
  t: Byte;
begin
  SetLength(BArray, ?); //Ich weiß vorher noch nicht wie groß es wird, weil die ID ja beliebig groß ist
  BArray[0] := $02;
  t := StrToInt(ed_anzahl.Text);
  BArray[1] := t;
  //hier müsste ich dann die ID als little endian, also verkehrt herum hinzufügen
  BArray[?] := $00;
end;

Ich hoffe das Problem ist jetzt klar. Wenn ich das Byte Array erstmal richtig aufgebaut habe, versuche ich mal #2

[himitsu]

Sind da wirklich Leerzeichen zwischen den Hex-Werten?

• Leerzeichen entfernen (Replace im String)
• Hex nach Bin konvertieren (String -> ByteArray oder Stream)
• Bin nach Base64 konvertieren (ByteArray oder Stream -> String)

[p80286]

Zitat von Cubysoft:

02 01 AA B6 00 00

1.Byte: 02 (immer)
2.Byte: eine Zahl von 1-250 (im Hex-Format)
3-xByte: eine Zahl von 1-X im Format little endian (das macht mir gerade auch zu schaffen) auch HEX
x+1Byte: ein 0-Byte

a) Die Werte die Du hast, bestehen aus 6 Byte (immer!) dann ist #2 für Dich erst einmal in Ordung, wenn Du Die Werte so übernimmst wie sie zur Verfügung stehen.

b) Du hast eine Struktur

1. feld=x02
2. feld=x01..xFA
3. feld=zahl (16,24,32,64Bit integer?)
4. Feld=x00

In Deinem Beispiel wäre das ein 24Bit Integer.
D.H. Du benötigst mehrere Byte-Arrays mit unterschiedlichen Längen oder ein Byte-Array [0..10] und eine Längenangabe wieviele Bytes übersetzt werden sollen.

Und zu Little Endian:
dez:511 = x01FF [little Endian] = xFF01 [BigEndian]

Gruß
K-H

Nachtrag:
was spricht dagegen 17 als x11 oder x0011 oder x000011 oder x00000011 ... zu betrachten?

[Sir Rufo]

Ok, ich versuche jetzt mal das

Zitat:

1.Byte: Header (immer 02)
2.Byte: Anzahl (liegt als String vor: Beispiele: 1;15;123;250;... -> der Wert schwankt zwischen 1 und 250)
3-xByte: ID (liegt als String vor: Beispiele: 1;2345;65234;... -> der Wert ist immer positiv und ungleich 0 ansonsten theoretisch beliebige größe, derzeit aber nich größer als 3Bytes)
x+1Byte: 0Byte

zu übersetzen

1. Header byte $02
2. Anzahl byte $01 .. $FA
3. ID byte /word /?? (3 Bytes) $000000 .. $FFFFFF
4. Ende byte $00

Woher du diese Zahlen bekommst oder wie diese Zahlen dort wo immer du diese herbekommst vorliegen ist absolut unerheblich. Es kommt nur darauf an, was diese bedeuten.

Ist das jetzt soweit korrekt?

PS:

Bitte zeige uns auch noch den Wert der ID, die dann zu deinem Eingangs-Beispiel 02 01 AA B6 00 00 führt.