Кодировка в файле Опции

[Ник16]

Помогите пожалуйста! Как закодировать информацию в текстовом файле так, чтобы паскаль мог раскодировать,
а просматривающий человек не только не мог понять, что там написано, но и не мог раскодировать.
Заранее спасибо! Желательно текст программы.

[Ozzя]

Самый простой вариант - используй XOR:

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.

Сообщение отредактировано: volvo - 7.11.2006 20:52