Portierung JavaScript

[travis2010]

Hallo
ich versuche zur Zeit den folgenden JavaScript Code nach Delphi zu portieren. Doch leider sind da noch ein paar Dingem die ich nicht hinbekomme.

Code:

<script language="javascript">
function Decoder(s){
var s1=unescape(s.substr(0,s.length-1)); var t='';
for(i=0;i<s1.length;i++)t+=String.fromCharCode(s1.charCodeAt(i)-s.substr(s.length-1,1));
return unescape(t);
}
</script>

Folgenden Code habe ich bereits:

Delphi-Quellcode:

function Decoder(s:String): String;
var
  s1,t: String;
  i: Integer;
begin
  s1 := Copy(s,0,Length(s)-1);
  for i := 0 to Length(s1) - 1 do
  begin
    t := t+'';
  end;
  Result := t;
end;

Wie kann ich jetzt die Funktion "unescape" nachbilden?
Wie portiere ich folgende Zeile "t+=String.fromCharCode(s1.charCodeAt(i)-s.substr(s.length-1,1));"

Vielen Dank für eure Hilfe :)

[Satty67]

Ich dachte erst an C-Escape Sequenzen (dafür wäre eine StringReplace Orgie gegangen), aber scheint bei JavaScript eine Umkehrung von Urlencode zu sein. Also mal nach Urldecode suchen.

Ob das alles ist oder doch was anderes... muss ich leider passen. ;)

[Sir Rufo]

Weißt du denn was die Funktion

Code:

unescape

in JavaScript macht?

[Satty67]

Ach ja, Substring ist Zero-Based, also das

Code:

var s1 = unescape( >>> s.substr(0,s.length-1) <<< );

gibt den kompletten String zurück (weis nicht, warum das gemacht wird)

aber das

Delphi-Quellcode:

s1 := Copy(s,0,Length(s)-1);

.
den String abzüglich des letzten Zeichens(weil ich denke, das Copy aus der 0 automatisch eine 1 macht), vergleichbar wäre wohl

Delphi-Quellcode:

s1 := Copy(s,1, Length(s));

.

Hab' aber noch nicht zu Mittag gegessen, also kann auch gerade falsch liegen.

[travis2010]

Erstmal vielen Dank für die Antworten :)

Also das unescape habe ich jetzt über IdURI und URLDecode gelöst.

Zum substr:

Code:

var s='1234567890';
document.write(s.substr(0,s.length-1));

ergibt
123456789
also wird das letzte Zeichen weggelassen.

Jetzt fehlt mir also nur noch
String.fromCharCode
und
charCodeAt

[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;

[Satty67]

Zitat:

Zitat von travis2010 (Beitrag 1053978)

also wird das letzte Zeichen weggelassen.

Ja, war wohl ein Denkfehler. Parameter sind ja nicht von/bis sondern von/anzahl