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
