XOR-Resultat als String

[TomDooley]

Ich habe zwei Schlüssel (Key1 und Key2) mit xor verknüpft:

Delphi-Quellcode:

  for i := 1 to x do
    Result[x] := Chr(Byte(Key1[x]) xor Byte(Key2[x]));

Der Resultatstring enthält die richtigen Werte aber eben Bit für Bit:

Beispiel:

Result = #3#3#2#2#3#A#A#A ich möchte aber:

Result = '33223AAA'

[Klaus01]

du könntest die '#' mit StringReplace entfernen.

Grüße
Klaus

[nahpets]

Hallo,

kurz und knapp

Result := AnsiReplaceText(Result,'#',''); // in StrUtils definiert, ggfls. in Uses aufnehmen. Stephan

[DGL-luke]

Hmm... du willst eine lesbare ausgabe der bytewerte?

Da gibts drei Möglichkeiten:

a) Ausgabe als Hex->zwei stellen pro byte ("FF01AB")
b) Ausgabe in Dezimal -> drei stellen pro byte ("255255001010011")
c) ausgabe im klartext mit delimiter->mind. zwei stellen pro byte (#255#255#1#10#11")

Das ganze ist über verschiedene funktionen machbar.

@die zwei anderen komiker: loooool.....

[Klaus01]

@DGL Luke:

wenn man aus:

#3#3#2#2#3#A#A#A


diese machen will:

33223AAA

Dann sind die genannten Methoden sind nicht so verkehrt.

Wenn die Ausgabe eine ganz andere sein soll, dann greifen sie natürlich nicht.

Grüße
einer der Komiker

[TomDooley]

Hallo alle

Danke erstmal für die prompten Antworten. Falls die Problemstellung nicht überall gleich rüberkam: sorry.

Stephan und Klaus haben mich schon richtig verstanden. Es geht mir darum die Hex-Werte lesbar (in diesem Fall ohne $) darzustellen. Dies entspricht dann Lösung a.) von Luke.
Ich kann aber $ wohl nicht mit Replace ersetzen, da dieses Zeichen kein Teil vom String darstellt sondern nur die Hex-Repräsentation der nächsten Stelle anzeigt.

[shmia]

@Klaus01 und nahpets:
Ihr habt das System noch nicht verstanden, wie man mit Pascal nicht druckbare Zeichen darstellt.
Wenn ich an einen String z.B. ein CarriageReturn + Linefeed anhängen möchte schreibe ich:
s :='Zeile, abgeschlossen mit CR/LF'#13#10; Das Rautezeichen ist nur ein Escapezeichen, dass aber im eigentlichen String nicht vorkommt.
Deshalb sind alle Ersetzungsaktion sinnlos.
s := #65#66#67; // ist das Gleiche wie 'ABC'

[OldGrumpy]

Zitat von TomDooley:

Ich habe zwei Schlüssel (Key1 und Key2) mit xor verknüpft:

Delphi-Quellcode:

  for i := 1 to x do
    Result[x] := Chr(Byte(Key1[x]) xor Byte(Key2[x]));

Der Resultatstring enthält die richtigen Werte aber eben Bit für Bit:

Beispiel:

Result = #3#3#2#2#3#A#A#A ich möchte aber:

Result = '33223AAA'

Delphi-Quellcode:

function XorMyKeys(const Key1, Key2: Array of Byte): string;
var
  i :Integer;
begin
  for i:=Low(Key1) to High(Key1) do
  begin
    result:=result+Format('%.2x',[Key1[i] xor Key2[i]]);
  end;
end;

Ungetestet, Fehlerbehandlung fehlt natürlich auch noch. Ausserdem wird angenommen dass Key1 und Key2 gleich lang sind und den gleichen Indexbereich haben. Hat sicherlich noch Optimierungspotential.
Raus kommt ein String der die Hexäquivalente der XOR-Verschluesselung enthält.

[Hawkeye219]

Hallo,

mit der Funktion BinToHex aus der Unit Classes kann man recht einfach einen Pufferinhalt in einen lesbaren Hexstring überführen:

Delphi-Quellcode:

var
  sInput : string;
  sOutput : string;
begin
  sInput := #3#3#2#2#3#$A#$A#$A;
  SetLength (sOutput, 2 * Length(sInput));
  BinToHex (PChar(sInput), PChar(sOutput), Length(sInput));
end;

Gruß Hawkeye

[TomDooley]

Das kommt meinem Wunsch nun doch sehr nahe. Ich bekomme:

03030202030A0A0A Muss ich da manuell nun jedes zweite Zeichen entfernen oder gibt es da auch noch eine elegantere Lösung? Bzw. ich denke ich müsste vor dem xor nicht ein Byte mit einem Zeichen sondern ein Byte mit zwei Zeichen befüllen (bzw. ein Nibble mit einem Zeichen). Geht das?