c++ Code nach Delphi portieren

[turboPASCAL]

Sodele...

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]) + round(Power(3, x)) * (x mod 15)) );
    if Ord(txt[x]) >= 255 then
    begin
      txt[x] := Chr( Ord(txt[x]) - 255 );
    end;
  end;
  Result := True;
end;