XOR-Resultat als String

[OldGrumpy]

Das kommt ganz auf Deinen Wertebereich an. Jede Hexziffer kann einen von 16 Zuständen anzeigen. Wenn Du nicht mehr als 16 unterschiedliche Zeichen in Deinen Keys hast (oder Werte, oder was auch immer), dann kannst Du das zusammenfassen. Einfach jedes zweite Zeichen "wegmachen" hat mehrere gravierende Nachteile, zum einen musst Du dann annehmen dass der Wertebereich auf jeden Fall maximal von 0 bis 15 geht. Wenn das XOR den Wert 16 ergibt (Hex: $10), würdest du die 1 "wegmachen" und es bleibt nur eine Null übrig.

Auch wenn ich jetzt schon weiss, was Du antworten wirst: Ohne mehr Infos kanns keine richtige Antwort geben.

[Klaus01]

Das würde auch gehen:

Delphi-Quellcode:

result:='';
for i := 1 to x do
  result := result+IntToHex( ( (ord(Key1[x]) xor ord(Key2[x]) ),2);

Grüße
Klaus

[TomDooley]

Hier nochmal ein Beispiel:

Delphi-Quellcode:

0000 //String1
1111 //String2
xor
1111 //erwartetes Resultat

Da ich jetzt aber einzelne Zeichen in jeweils ein Byte konvertiere (Byte(String1[x]), sehen die String binär dargestellt wie folgt aus:

Delphi-Quellcode:

00000001 00000001 00000001 00000001 //String1 binär
00000000 00000000 00000000 00000000 //String2 binär
xor
00000001 00000001 00000001 00000001 //Resultat binär
01010101                            //Resultat als String

richtig wäre aber:

Delphi-Quellcode:

00010001 00010001 //String1 binär
00000000 00000000 //String2 binär
xor
00010001 00010001 //Resultat binär
1111              //Resultat als String --> korrekt

[xaromz]

Hallo,

Du kannst bei IntToHex angeben, wie viele Stellen mindestens verwendet werden. Wenn Du zwei angibst, wird eben mit 0 aufgefüllt.

Gruß
xaromz

[OldGrumpy]

Zitat:

Zitat von TomDooley

Hier nochmal ein Beispiel:

Delphi-Quellcode:

0000 //String1
1111 //String2
xor
1111 //erwartetes Resultat

Aehm, *so* gilt das nur für binäre Werte, wenn Du da einen String "1111" hast, dann steht im Speicher hexadezimal 31 31 31 31. Oder meinst Du einen String "#1#1#1#1"?

Zitat:

Zitat von TomDooley

Da ich jetzt aber einzelne Zeichen in jeweils ein Byte konvertiere (Byte(String1[x]), sehen die String binär dargestellt wie folgt aus:

Delphi-Quellcode:

00000001 00000001 00000001 00000001 //String1 binär
00000000 00000000 00000000 00000000 //String2 binär
xor
00000001 00000001 00000001 00000001 //Resultat binär
01010101                            //Resultat als String

Nein, dann steht im Speicher immer noch b00110001 b00110001 b00110001 b00110001 :)

Zitat:

Zitat von TomDooley

richtig wäre aber:

Delphi-Quellcode:

00010001 00010001 //String1 binär
00000000 00000000 //String2 binär
xor
00010001 00010001 //Resultat binär
1111              //Resultat als String --> korrekt

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?
Was Du vermutlich willst, ist HexToInt. Für jedes resultierende Byte gibst Du ihm zwei Zeichen aus dem String zu fressen.
Damit kannst Du dann Deinen String in Schüben von acht Zeichen in DWORDs wandeln und jeweils passend XORen.

[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);