Thema: Delphi Codieren mit Passwort

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#5

AW: Codieren mit Passwort

  Alt 25. Aug 2010, 14:52
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.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat