Помогите пожалуйста! Как закодировать информацию в текстовом файле так, чтобы паскаль мог раскодировать,
а просматривающий человек не только не мог понять, что там написано, но и не мог раскодировать.
Заранее спасибо! Желательно текст программы.
var
s: string;
i:integer;
m,key:byte;
k:char;
begin
key:=$af;
{ Шифруем строку }
s:='Example string';
for i:=1 to Length(s) do
begin
k:=s[i];
m:=ord(k) xor key;
s[i]:=chr(m);
end;
WriteLn('Scripted string = ',s);
{ ДеШифруем строку }
for i:=1 to Length(s) do
begin
k:=s[i];
m:=ord(k) xor key;
s[i]:=chr(m);
end;
WriteLn('UnScripted string = ',s);
ReadLn;
end.