Hallo Zusammen,
ich muss das Thema noch einmal aufgreifen.
Delphi-Quellcode:
function XORCrypt(Text,Passwort:string):string;
var
x,y,lg : integer;
begin
if length(Text)>0 then begin
y:=1;
lg:=length(Passwort);
for x:=1 to length(Text) do begin
Text[x]:=chr(ord(Text[x]) xor ord(Passwort[y]));
if y=lg then begin
y:=1
end
else begin
inc(y);
end;
end;
end;
Result:=Text;
end;
Das ist die XOR-Verschlüsslungsfunktion.
Aber bei manchen Werten baut sie Mist. Z.B. wenn ich eine
IP-Adresse mit 172. klappt das Entschlüsseln nicht mehr.
"17"=1
"1756789456"=1
"2756789456"=2
aber
"22756789456"=22756789456
Die 7 an der zweiten Stelle macht Schwierigkeiten. Ich weiß, aber sicherlich gibt es noch weitere Problemfälle.
Ist das bekannt und wie kann ich damit umgehen?
Vielen Dank
Patrick