c++ Code nach Delphi portieren

[Mithrandir]

Jepp, so isses, und diese Funktion produziert denselben Output wie die Variante in C:

Delphi-Quellcode:

function Encrypt(var txt: string): bool;
var x: byte;
begin
  for x := 1 to length(txt) do
  begin
    txt[x] := Chr( BYTE(Ord(txt[x]) + (3 xor (X-1)) * ((X-1) mod 15)) );
    if Ord(txt[x]) >= 255 then
    begin
      txt[x] := Chr( Ord(txt[x]) - 255 );
    end;
  end;
  Result := True;
end;