Hallo,
ich hab folgendes:
Delphi-Quellcode:
const cschluessel = 'asdfghjkl';
function DoCrypt(AText : string):string;
var
i : integer;
begin
for i:= 1 to Length(AText) do
AText[i]:= Chr(Ord(cschluessel[Succ(i mod Length(cschluessel))]) xor Ord(AText[i]));
Result:=AText;
end;
irgendwoe hat sich da ein Fehler eingeschlichen, es wird zwar verschlüsselt, aber nichtmehr korrekt entschlüsselt. Hab ich da einen Denkfehler?
Der String der übergeben wird ist der Inhalt einer INi-Datei den ich in eine Stringlist lade. Also Stringlist.Text
