Аутентификация пользователя

[didar_]

if sender.tag<3 then begin

он tag не понимает (((

[Serge_Bliznykov]

попробуйте так:

 if TButton(Sender).tag < 3 then ...

[mihali4]

From 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;

[mihali4]

Ответ от ОДИНОЧЕСТВО В СЕТИ (перенесено оттуда же):
насколько я понимаю это шифрование

procedure gronsfeld1(t:string);

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

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

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

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

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

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

[didar_]

помогите плз, никак не получается вот листинг:
для записи нового пользователя

куда вставить

" gronsfeld1(user_name);
Writeln(f,user_name); " ??? чтобы он зашифровал


procedure TForm2.Button1Click(Sender: TObject);
var
f: textfile;
g,k: TStrings;
user_name, password, str: string;
b: boolean;
begin
b := false;
if Edit1.Text = '' then MessageDlg('введите фамилию ', mtInformation, [mbOK], 0) else
begin if Edit2.Text = '' then MessageDlg('введите имя', mtInformation, [mbOK], 0) else
begin if Edit3.Text = '' then MessageDlg('введите логин', mtInformation, [mbOK], 0) else
begin user_name := Edit3.Text;
if Edit4.Text = '' then MessageDlg('введите пароль', mtInformation, [mbOK], 0) else
begin if length(Edit4.Text) < 6 then MessageDlg('пароль должен быть не меньше 6 символов', mtInformation, [mbOK], 0) else
begin if Edit5.Text = '' then MessageDlg('повтори пароль', mtInformation, [mbOK], 0) else
begin if Edit4.Text <> Edit5.Text then MessageDlg('пароли не совпадают', mtInformation, [mbOK], 0) else
begin password := Edit4.Text;
if Edit6.Text = '' then MessageDlg('введите эл.адрес !!!', mtInformation, [mbOK], 0) else
begin
assignfile(f,'LOGIN AND PASS.txt');
reset(f);
while not EOF(f) do
begin
read(f,str);readln(f);
if str = user_name then
begin
b := false;
MessageDlg('такой логин уже существует !!!'+#13#10+'придумай другой логин', mtInformation, [mbOK], 0);
break;
end
else b:=true;
end;
CloseFile(f);
end;end;end;end;end;end;end;

if b then
begin
g := TStringlist.Create();
g.LoadFromFile('LOGIN AND PASS.txt');
g.Add(user_name);
g.Add(password);
g.Add(DateToStr(Date));
g.SaveToFile('LOGIN AND PASS.txt');
g.Free;
MessageDlg('ты зарегистрировался !!!'+#13#10+' твой аккаун действителен до '+#13#10+' '+DateToStr(Date+10), mtInformation, [mbOK], 0);
k:= TStringlist.Create();
k.LoadFromFile('ALL USERS.txt');
k.Add('user_surname - '+edit1.text);
k.Add('user_name - '+edit2.text);
k.Add('user_login - '+edit3.text);
gronsfeld1(edit4.text);
k.Add('user_password - '+edit4.text);
k.Add('user_@mail - '+edit6.text);
k.Add('time registry: '+datetostr(date)+' '+timetostr(time));
k.Add(' ');
k.SaveToFile('ALL USERS.txt');
k.Free;
form2.close;
form1.Close;
end;
end;

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

k.Add('user_name - '+gronsfeld1(edit2.text));

и далее по тексту

[mihali4]

То didar_
Вы когда начнете оформлять код как положено?
И прекратите лепить посты подряд друг за дружкой!
Я устал их объединять!
Срочно читайте правила раздела!
Со следующего раза налеплю штрафов вплоть до бана!

[didar_]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

k.Add('user_name - '+gronsfeld1(edit2.text));

и далее по тексту

выдает ошибку (
[Error] Unit2.pas(149): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

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

выдает ошибку (
[Error] Unit2.pas(149): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

значит

var s:string;
........
s:=edit2.text;
gronsfeld1(s);
k.Add('user_name - '+s);
......