Защита файла от прочтения

[Slash]

После закрытия программы содержимое Memo1 сохраняется в файл. Каким образом можно сделать, чтоб нельзя было просмотреть содержимое данного файла текстовыми редакторами и прочим. Другими словами - только моя программа должна распознавать этот текст.

[ZhekON]

создать типизированый файл, типа
Type
file = record
string:Tstrings;
end;
Чтото вроде этого)

[Ntlegend]

попробуй сделать шифровку текста и можна сохранять в обічном *.тхт файле

[Slash]

А проще никак?)

[altar]

Посмотреть так и так смогут, вопрос в другом - поймут или нет.
Вот код простенького кодирования и декодирования.
----------------------
function decode(s:string):string;
var i:integer;
begin
decode:='';
for i:=1 to length(s) do
s[i]:=chr(ord(s[i])+5);
decode:=s;
end;

function code(s:string):string;
var i:integer;
begin
code:='';
for i:=1 to length(s) do
s[i]:=chr(ord(s[i])-5);
code:=s;
end;
-----------------------
Кодируешь из мемо в файл, из файла декодируешь и усё

[ZhekON]

но это остановит только юзеров, а кракерам это будет на один зуб,
предлагаю создать таблицу, в которой кодироватся будет каждый символ отдельно, ато будет просто написать прогу которая найдёт ту позицыю с которой начинается кодировка(в предыдущем примере это 5)
например

'а' = '1'
'б' = '5'
'в' = '3'
и так далее, Удачи!

[Slash]

Буду пробовать) Всем спасибо

[Акашаев Нурлан]

попробуй азбуку Морзе...Её вообще-то мало кто знает.

[Fox]

Ага или используй RC5 или Blowfish!! =)

[Shurik Hacker]

В одной проге я кодировал текст так
Ord(символ)+Номер символа в тексте+любое постоянное число.
Кодировка супер. Никто, ничего не поймёт!