Шифрование данных

[didar_]

вот написал следующий листинг:

procedure TForm1.Button1Click(Sender: TObject);
var
user_name, password, m: string;
f: textfile;
data: TDate;
z: boolean;
begin
z := false;
if Edit1.Text = '' then
MessageDlg('Òû çàáûë ââåñòè ñâîé ëîãèí !!!', mtInformation, [mbOK], 0) else
if Edit2.Text = '' then
MessageDlg('Òû çàáûë ââåñòè ñâîé ïàðîëü !!! Íå áîéñÿ, ÿ íå ñìîòðþ :-)', mtInformation, [mbOK], 0) else
begin
assignfile(f,'LOGIN AND PASS.txt');
reset(f);
while not Eof(f) do
begin
Read(f, user_name); Readln(f);
Read(f, password); Readln(f);
Read(f, m);Readln(f);
data := StrToDate(m);
if (user_name = Edit1.Text)and(password = Edit2.Text) then
begin
if (Date <= data+10) then
begin
winexec('C:\Program Files\Everest\everest.exe',0) ;
z := true;
break;
end else MessageDlg(' Âàø ïàðîîëü èñòåê' + #13 + ' ' + DateToStr(data+10) + ' !!! ', mtInformation, [mbOK], 0);
z := true;
end;
end;
if not z then MessageDlg(' Íåâåðíûé ëîãèí èëè ïàðîëü !!!', mtInformation, [mbOK], 0);
CloseFile(f);
end;
end;

простой листинг программы аутентификаций пользователя. Вот стоит проблема с шифраванием документа, где хранятся логины и пароли. у нас этот документ называется "LOGIN AND PASS.txt" можно зашифровать сам файл или содержимое этого файла. вот нашел кое-что, но незнаю как им пользоваться?

procedure gronsfeld1(t:string);
var
s1:string;
i,j:integer;
a:array[1..100] of integer;
begin
a[1]:=1; a[2]:=8; a[3]:=3;
s1:='abcdefghijklmnopqrstuvwxyzabcd efghijklmnopqrstuvwxyz';
for i:=4 to 100 do
a[i]:=a[i-3];
for i:=1 to length(t) do
for j:=52 downto 1 do
if t[i]=s1[j] then begin
t[i]:=s1[j-a[i]]; break; end;
k2:=t;
end;

procedure gronsfeld(t:string;t1:string);
var
s1:string;
i,j:integer;
a:array[1..100] of integer;
begin
a[1]:=1; a[2]:=8; a[3]:=3;
s1:='abcdefghijklmnopqrstuvwxyzabcd efghijklmnopqrstuvwxyz';
for i:=4 to 100 do
a[i]:=a[i-3];
for i:=1 to length(t) do
for j:=1 to 26 do
if t[i]=s1[j] then begin
t[i]:=s1[j+a[i]]; break; end;

for i:=1 to length(t1) do
for j:=1 to 26 do
if t1[i]=s1[j] then begin
t1[i]:=s1[j+a[i]]; break; end;
k:=t;
k1:=t1;
end;

[ОДИНОЧЕСТВО В СЕТИ]

насколько я понимаю это шифрование

procedure gronsfeld1(t:string);

а это дешифрование?

procedure gronsfeld(t:string;t1:string);

если так то при чтении из файла например

Readln(f, s); 
gronsfeld(s,user_name);

а при записи в файл нового юзера например

gronsfeld1(user_name);
Writeln(f,user_name);

[mihali4]

Не нужно плодить темы по одной и той же проблеме!
Перенесено в
http://www.programmersforum.ru/showthread.php?t=64530
А эта закрывается.