Codieren mit Passwort

[himitsu]

Wie schon beim Anderen gesagt:
Schau mal im Debugger, was wirklich in deinem V_Text drinsteht und nicht was im Memo angezeigt wird.

Bei eurer XOR-Operation können Zeichen entstehen, mit welchen das Memo nunmal nicht korrekt (so wie ihr es wollt) umgehen kann und daran läßt nichts ändern.

Ihr müßtest eure Verschlüsselung so ändern, daß solche Zeichen nicht entstehen können, aber dann ist es auch keine "direkte" XOR-Verschlüsselung mehr.

Zum Testen kannst du ja einfach mal dieses machen;
Memo1.Text := AllesAnzeigen(V_Text); und dazu noch dieses

Delphi-Quellcode:

function AllesAnzeigen(S: String): String;
var 
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(S) do
    if S[i] >= ' ' then Result := Result + S[i]
    else Result := Result + Format('{%d}', [Ord(S[i])]);
end;

Jetzt werden die "bösen" Steuerzeichen in einen Text "{nummer}" umgewandelt.