Moin Hybrid,
erst einmal herzlich willkommen hier in der Delphi-PRAXiS.
Wenn ich mich nicht ganz irre, müsste die Schleife so aussehen:
Delphi-Quellcode:
i := 0;
j := 0;
while text[i] <> #00 do begin
//.....
inc(i);
inc(j);
end;
Wie Du daraus schon ersehen kannst entspricht \0 in C dem #00 in Delphi.
Die fragliche Zeile müsste in Delphi so aussehen:
textneu[i] := char((ord(schluessel[j]) and $0F) xor ord(text[i]));