[and.enk]

Добрался сегодня до компа наконец-то..

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ScriptControl: Variant;
  Value: Variant;
begin
  ScriptControl := CreateOleObject('ScriptControl');
  ScriptControl.SitehWnd := Handle;
  ScriptControl.Language := 'JScript';
 
  Value := ScriptControl.Eval('new Date();'); // сюда впихать response.key
  ShowMessage(VarToStr(Value));
end;

Код полностью рабочий, генерируется недостающий кусочек для ключа расшифровки

В консоле хрома у меня получилось расшифровать закодированный текст вашим кодом, пробовал в делфи расшифровать этим кодом

Код:

var
  key, text, longkey, result: string;
  i: integer;
  toto, c: char;
begin
  for i := 0 to (length(text) div length(key)) do
    longkey := longkey + key;
  for i := 1 to length(text) do
  begin
    toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
    result := result + toto;
  end;
end;

ничего не получилось, как вот этот кусочек строки нужно прописать в Delphi

Код:

result = result + String.fromCharCode(response.data.charCodeAt(i) ^ rkey.charCodeAt(i % rkey.length))