Delphi XOR

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Saminem · begonnen am 25. Aug 2010 · letzter Beitrag vom 1. Sep 2010

Vorheriger Beitrag

Nächster Beitrag

himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.340 Beiträge

Delphi 12 Athens

AW: Delphi XOR

25. Aug 2010, 08:40

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

markieren

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.

Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (25. Aug 2010 um 08:50 Uhr)