XOR-Resultat als String

[TomDooley]

Zitat:

Aehm, *so* gilt das nur für binäre Werte

Das ist mir klar, jedoch suche ich eben eine Funktion welche mir die Arbeit (Umwandlung für xor, xor, Umwandlung in String) abnimmt.

Zitat:

Du willst also einzelne Nibbles benutzen. Achtung: In ein Nibble passen nur Werte von Null bis 15. Bist Du sicher, dass Du mit diesem Wertebereich auskommst?

Ja, das bin ich. Für die Eingabe stehen nur die "Hex-Ziffern" 0-F zur Verfügung.

Ich hab's bei mir jetzt mal so gelöst:

Delphi-Quellcode:

  for i := 1 to x do
    Result := Result + IntToHex((StrToInt('$'+ Key1[x]) xor StrToInt('$'+ Key1[x])),1);