С ключом для расшифровки я разобрался, я вставляю в консоль хрома ваш код выше со своими данными, т.е. там уже стоит готовый кей и текст который им зашифрован, всё расшифровывается без проблем, но когда я подставляю те же самые текст и кей
Код:
for i := 1 to length(text) do
begin
text[i] := chr(ord(text[i]) xor ord(key[((i-1) mod length(key)) + 1]));
result := result + text[i];
end;
memo17.Text:=result;
мне приходит вот такой результат
такой же как и вчера...
В приложении скидываю код, если его вставить в консоль хрома и нажать enter всё расшифруется, а Delphi не хочет