Hallo,
kann mir vielleicht jemand sagen wie
man folgende flash (action script) methode
in delphi umsetzt?
Delphi-Quellcode:
function decode(key)
{
var _lc3 = key;
var _lc1;
var _lc2 = "";
for (var _lc1 = _lc3.length - 1; _lc1 >= 0; --_lc1)
{
_lc2 = _lc2 + chr(155 - _lc3.charCodeAt(_lc1));
}
return (_lc2);
}