Portierung JavaScript

[travis2010]

Ich habe es jetzt hinbekommen
Hier die komplette Funktion, für die es interessiert:

Delphi-Quellcode:

function Decoder(s:String): String;
var
  s1,t: String;
  i: Integer;
begin
  s1 := UTF8ToString(TIdURI.URLDecode(Copy(s,0,Length(s)-1)));
  for i := 0 to Length(s) - 1 do
  begin
    t := t+CHR(Ord(s1[i])-StrToInt(Copy(s,length(s),1)));
  end;
  Result := TIdURI.URLDecode(t);
end;