Код:
function decode(s: string; code: integer): string;
var t: integer;
begin
for t:=1 to length(s) do s[t]:=chr(ord(s[t]) xor code);
result:=s;
end;
функция кодирует и декодирует
вызывается так:
где цифра 1 это на сколько позиций сместится по таблице аски
rezult это строковая переменная
далее можно еще поставить функцию ReversString(rezult); которая позволит записать строку в обратном порядке ну можно прописать и так
<Строковая переменная>:=ReversString(decode(rezult,1));
P.S. функцию не я придумывал нашол в нете где не помню уже иначе скинул бы ссылку но работает просто прекрасно, если я не ошибаюсь и это алгоритм цезаря правда без ReversString'a это уже я добавил так сказать свое немножко стандартной функцией делфи
