Delphi XOR

[himitsu]

Spontan würde ich mal sagen du hast password und s verwechselt

Delphi-Quellcode:

if d<length(passwort) then d:=d+1;
if d>length(passwort) then d:=1 ;
s[i]:=char(Ord(s[i]) Xor Ord(passwort[d]));

PS: Dein Memo behandelt mit Sicherheit nicht alle Sonderzeichen so, wie du es willst ... heißt, wenn durch das XOR Zeichen zwischen #0 und #31 entstehen (also kleiner ' ' und vorallem bei #0, #10 und #13), dann wird da bestimmt das Ergebnis im Memo verfällscht und es läßt sich nicht mehr korrekt entschlüsseln.

[Saminem]

Danke für den Tipp mit dem Memo aber wenn ich s und passwort vertausche funktioniert des nicht.
Kommt kein vernünftiger text raus.

[himitsu]

Ups, auch noch vergessen den Index zu tauschen.

Delphi-Quellcode:

if d<length(passwort) then d:=d+1;
if d>length(passwort) then d:=1 ;
s[i]:=char(Ord(s[i]) Xor Ord(passwort[d]));

So wie du d initialisierst, mußt du erst nach den IFs auf dieses zugreifen, da sonst der Index nicht stimmt.

Ich empfehle die darum, in den Projektoptionen mal die Index- und die Bereichsprüfung zu aktivieren.

Stattdessen kannst du auch den Tipp von Aphton nehmen und die IFs weglassen:
s[i] := char(Ord(s[i]) Xor Ord(passwort[(i - 1) mod Length(passwort) + 1])); .


Wie gesagt:
Schau mal im Debuger, was wirklich in S drinsteht.
Das Memo behandelt #10 und #13 anders ... aus #10 (LF) wird #13#10 (CRLF), aus #13 (CR) wird #13#10 (CRLF), aus #10#13 (LF+CR) wird #13#10#13#10 (CRLF+CRLF) und nur #13#10 (CRLF) bleibt #13#10
(CRLF).
Und bei #0 wird abgebrochen ... Stichwort PChar

[DeddyH]

Im ursprünglichen Code wurde der Fall d = Length(Passwort) auch nicht berücksichtigt.