Сохранение файла

[Македонский]

В своей программке к кнопке "сохранить" прописал процедуру сохранения данных в файл с расширением .gps. Данные, сохраняемые в этот файл имеют текстовый формат. Можно ли как-нить сделать так, чтобы с помощью блокнота этот файл открыть было нельзя? И как?
Буду очень признателен за помощь!

[Квэнди]

открыть с помощью блокнота можно все. Можно лишь делать данные нечитаемыми, для этого либо используйте типизированные файлы, либо шифруйте данные

[Македонский]

Спасибочки огромное! Так запарился, что про типизированные файлы забыл.
А что нужно для зашифровывания данных в файле? Это делается программно? В коде?

[Master-Skull]

Вот пример шифрования файла:

...
var
 mc: array [1..3] of integer; //Переменная глобальная! Значемий можно и больше
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
mc[1]:=164;
mc[2]:=206;
mc[3]:=20;
end;
...
function Mask(var st: string): string;
var
 b, i, m: integer;
begin
m:=1;
for i:=1 to Length(st) do
 begin
 b:=Ord(st[i]);		//Значение в кодеровке
 b:=b+mc[m];            //Меняем это значение
 if b>255 then b:=b-242;//Чтобы под Enter не подпало
 st[i]:=Chr(b);		//Втыкивваем значение
 Inc(m);		//Повышаем
 if m=4 then m:=1;	//Если уже 4 то снова 1
 end;
Result:=st; 
end;

function UnMask(st: string): string; //Обратно предыдущему 
var
 i, m, b: integer;
begin
m:=1;
for i:=1 to Length(st) do
 begin
 b:=Ord(st[i]);
 b:=b-mc[m];
 if b<1 then b:=b+242;	
 st[i]:=Chr(b);
 m:=m+1;
 if m=4 then m:=1;
 end;
Result:=st;          
end;
...
procedure SaveMemo(FileName: string);
var
 s: TStrings;
 i: integer;
begin
s:=TStringList.Create;
s.Add(Memo1.Lines.Text);//Чтобы из-за WordWarp'a небыло ненужных переносов
for i:=0 to s.Count-1 do s[i]:=Mask(s[i]);
s.SaveToFile(FileName);
s.Free;
end;
...
procedure LoadMemo(FileName: string);
var
 s: TStrings;
 i: integer;
begin
s:=TStringList.Create;
s.LoadFromFile(FileName);
for i:=0 to s.Count-1 do s[i]:=UnMask(s[i]);
Memo1.Lines:=s;
s.Free;
end;

Всё очень просто

[JTG]

вроде RC4 где-то тут обсуждался, легко реализуется и вполне надёжно шифрует

[Noor]

А готовые компоненты для шифрования имеются ???

[Stilet]

Сообщение от Noor

А готовые компоненты для шифрования имеются ???

Да в JEDI есть такие.

[Македонский]

Спасибо всем! Очень вам признателен!