also schaut :
Delphi-Quellcode:
var x:Integer;
PW :string;
begin
PW:='king007';
for x:=1 to length(pw) do
PW[x] := Chr(Ord(PW[x]) + (3 xor X) * (X mod 15));
edit3.text:=PW;
end;
habe das nun so
edit :
die inko..... entstehen bei Power(3,x)
nochma edit: xD
also in dem c code im ersten post
ist der string dann verschlüselt so : kkpgLNU
in dem delphi code : mknƒNNS