oh vielen dank, ich hab hier noch eine andere funktion
die ich übersetzen muß, könntest du mir dabei bitte auch noch helfen?
Delphi-Quellcode:
function decrypt(originalString)
{
var _lc2 = "";
var _lc1;
var _lc4;
for (var _lc1 = originalString.length; _lc1 > 0; --_lc1)
{
_lc4 = int(_lc1 / 2);
if (_lc1 % 2 == 0)
{
_lc2 = _lc2 + originalString.charAt(_lc1 - 1);
continue;
} // end if
_lc2 = originalString.charAt(_lc1 - 1) + _lc2;
} // end of for
if (_lc2.charAt(_lc2.length - 1) == "\t")
{
_lc2 = _lc2.substring(0, _lc2.length - 1);
} // end if
return (_lc2);
} // End of the function
hier nochmal die andere kompilierbare funktion
Delphi-Quellcode:
Function Decode(Key:string): String;
var
LC1 : integer; s: string;
begin
for lc1:= length(key) downto 1 do
s := s+chr(155-ord(key[lc1]));
result:= (s);
end;