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[i mod Length(cschluessel)]) xor Ord(AText[i]));
Result:=AText;
end;
so gehts
muss ich cschluessel nicht von 1 bis Length(csschluessel) ansprechen?
ist doch ein string oder?
wenn ich von 0 bis Pred(Length(cschluessel)) gehts
