Аогоритм расшифровки

[Phantom]

Доброго времени суток дорогие коллеги!

И сразу от слов к делу:
Есть некий алгоритм шифрования строки написанный на JavaScript, моя задача состоит в том чтобы написать такой же алгоритм только уже на Delphi.

JavaScript

function coder(text)
 {
  var str = '';
  for (i = 0; i < text.length; i++) //запускаем цикл 
   {
    // Возвращает кодировку Unicode i-ого символа
    var c = text.charCodeAt(i);
    
    //далее идет генерация ключа (поясню значение операторов)
    // | - Побитовый ИЛИ   
    // << - Побитовый  сдвиг в лево
    // >> - Побитовый  сдвиг в право
  
    var key = 12122 | (i << 3) | (51029 >> 2);

    // ^ -Исключающее побитое ИЛИ

    c = c^key;
    
    //возвращает  Unicode символ 
    str+= String.fromCharCode(c);
   }

 }

Так можно предложить другое решение: Выполнятьскрипт в браузере но вернуть результат этой функции в Delphi.

Если у кого нибудь есть хоть какие нибудь сообжания по этому поводу, то прошу вас помогите... для меня будт важен каждый ваш отзыв.

Спасибо.

[Stilet]

var key = 12122 | (i << 3) | (51029 >> 2);

Key:=12122 or (i shl 3) or (51029 shr 2)
c:=c xor key

Остальное, надеюсь, сам допишешь.

[Phantom]

Спасибо большой...
а не мог бы ты подсказать как интерпретировать в Object Pascal вот эти места

c = text.charCodeAt(i);

и

str+= String.fromCharCode(c);

этот моменты для меня были самыми непонятными

[russian-stalker]

Будет что-то типа такого:

function coder(text:string):string;
var
str:string;
i:integer;
c:integer;
key:integer;
begin
str:='';
  for i:=0 to length(text)-1 do
   begin
    c := integer(widechar(text[i]));
    key:=122 or (i shl 3) or (51029 shr 2);
    c := c xor key;
    str:=str+String(c);
   end;
result:=str;
end;

[Phantom]

Уже готов был обрадоваться и целовать ноги russian-stalker'а... но...

При выполнении данной функции возникает ошибка.

То есть синтаксических ошибок нет, а вот логические есть...

Я в данной облости программирования новичек поэтому для меня перевод текста в юникод и другие побитные смещения темный непроглядный лес...

Помогите разобраться с этой функцией

[russian-stalker]

function coder(text:string):string;
var
str:string;
i:integer;
c:integer;
key:integer;
begin
str:='';
  for i:=1 to length(text) do
   begin
    c := integer(widechar(text[i]));
    showmessage(inttostr(c));
    key:=122 or (i shl 3) or (51029 shr 2);
    c := c xor key;
    str:=str+widechar(c);
   end;
result:=str;
end;

Значит где-то так.

[Stilet]

c = text.charCodeAt(i);

Видимо c:=ord(str[i]);

str+= String.fromCharCode(c);

ну тут str:=str+chr(c);

[Phantom]

Спасибо большое за помощь...

Вот именно за оперативность и грамотность уважаю этот форум )