[Фантик]

Ну так скажем очень при простенький пример шифрования данных

Код:

function code(s: string; key: integer): string;
var
   t: integer;
begin
for t:=1 to length(s) do s[t]:=chr(ord(s[t]) xor key);
result:=s;
end;

для расшифровки текста можно использовать эту же функцию