Function ROTPassword2(Cadena: String; Password: Integer): String;
var
  iArray: array of integer;
  Passlength: Integer;
  sPassword: String;
  lCadena: Integer;
  i, Count, add: Integer;
begin
  Count:= 0;
  sPassword:= IntToStr(Password);
  Passlength:= Length(sPassword);
  lCadena:= Length(Cadena);

  SetLength(Result, Length(Cadena));
  Setlength(iArray, Passlength);

  for i:= 0 to Passlength do
  begin
    iArray[i] := ord(sPassword[i+1])-48;
  end;

  for i:= 1 to lCadena do
  begin
    if (iArray[Passlength-1] < 5) then
    begin
      add := (ord(Cadena[i]) - iArray[Count]) ;
      if add < 0 then add:= (add + 256);
      Result[i]:= char(add);
    end else
    begin
      add := (ord(Cadena[i]) - iArray[Count]) mod 256;
      Result[i]:=  char(add);
    end;
    if Count >= (Passlength-1) then Count:= 0;
  end;
end;