Парольная аутентификация

unit WindowUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, Menus;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    SmenaClick: TMenuItem;
    NewUserClick: TMenuItem;
    AllUsersClick: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SmenaClickClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type
TUser = record
name:string[20]; // ëîãèí
password:string[20];   // ïàðîëü
blocking:boolean;      // áëîêèðîâêà
password_rest:boolean;   // ïàðîëüíîå îãðàíè÷åíèå
end;
 
var
  Form1: TForm1;
   Users:array[1..50] of TUser;
  f:File of TUser;
  data:TUser;
    implementation
 
uses AuthorizationUnit, ChangePasswordUnit;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
 
     begin
SmenaClick.Enabled:=false;
AllUsersClick.Enabled:=false;
NewUserClick.Enabled:=false;
AssignFile(f,'file.dat');
Rewrite(f);
Users[1].name := 'admin';
Users[1].password :='999';
 
Users[2].name := 'user';
Users[2].password :='888';
 
write(f,Users[1]);
write(f,Users[2]);
Closefile(f);
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
end;
 
procedure TForm1.SmenaClickClick(Sender: TObject);
begin
Form3.Show;
Form1.Hide;
end;
 
end.

unit AuthorizationUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form2: TForm2;
n:integer=3; // количество попыток
k:integer;
implementation
 
uses WindowUnit;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
 
AssignFile(f,'file.dat');
reset(f);
k:=1;
while(not eof(f)) do begin
 
read(f, Users[k]);
k:=k+1;
 
end;
 
CloseFile(f);
if (edit1.Text = Users[1].name) and (edit2.Text = Users[1].password) then
begin
ShowMessage('Пароль введен правильно!'+#13#10+' - Добро пожаловать:-Администратор');
Form1.NewUserClick.Enabled:=true;
Form1.AllUsersClick.Enabled:=true;
Form1.SmenaClick.Enabled:=true;
Form1.Show;
edit1.Clear;
edit2.Clear;
Form2.Hide;
end
else
 
if (edit1.Text = Users[k-1].name) and (edit2.Text = Users[k-1].password) then
begin
ShowMessage('Пароль введен правильно!'+#13#10+' - Добро пожаловать: Пользователь');
Form1.NewUserClick.Enabled:=false;
Form1.AllUsersClick.Enabled:=false;
Form1.SmenaClick.Enabled:=true;
Form1.Show;
edit1.Clear;
edit2.Clear;
Form2.Hide;
end
else
if (edit1.text='') then
begin
ShowMessage('Заполните требуемые поля');
end
else
begin
if (edit1.text<>Users[k].name) and (edit2.text<>Users[k].password) or (edit1.text = Users[k].name) or(edit2.Text = Users[k].password) then
begin
n:=n-1;
ShowMessage('Проверьте правильность введенных данных.Осталось '+inttostr(n) +' попытки');
edit1.Clear;
edit2.Clear;
if n<=0 then
begin
showmessage('Вы истратили все попытки. Программа закрывается');
form2.Close;
halt;
end ;
end;
end;
 
end;
 
end.

unit ChangePasswordUnit;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
 
type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form3: TForm3;
k:integer;
j:integer;
implementation
 
uses WindowUnit;
 
{$R *.dfm}
 
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
assignFile(f,'file.dat');
reset(f);
k:=1;
while(not eof(f)) do begin
read(f,Users[k]);
k:=k+1;
end;
Closefile(f);
if (edit1.Text = Users[k-1].password) or (edit1.Text = Users[1].password) then
ShowMessage('Пароль верный')
else begin
ShowMessage('Пароль неверный!');
edit1.Clear;
end;
end;
 
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
AssignFile(f,'file.dat');
reset(f);
k:=1;
while(not eof(f)) do begin
read(f,Users[k]);
k:=k+1;
 
end;
seek(f,filesize(f)-1);
 
Users[k-1].password:=edit2.Text;
write(f,Users[k-1]);
Closefile(f);
if (edit2.Text = edit3.Text) then
ShowMessage('Пароли совпадают!')
else begin
ShowMessage('Пароли не совпадают!');
edit2.clear;
edit3.Clear;
end; end;
 
 
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
Form3.Hide;
end;
 
end.

 if (edit1.Text = Users[k-1].password) or (edit1.Text = Users[1].password) then

if edit1.Text = Users[1].password then

  TUser = record
    Name, Password: String[20];
  end;
 
  TUsersControl = class
    User: array of TUser;
    UsersFileName: String;
    procedure Save;
    procedure Load;
  end;
 
var
  Form1: TForm1;
  UserControl: TUsersControl;
 
procedure TUsersControl.Load;
var
  F: file of TUser;
  i: Integer;
begin
  if FileExists(UsersFileName) then
  begin
    AssignFile(F, UsersFileName);
    Reset(F);
    SetLength(User, 0);
    while not Eof(F) do
    begin
      SetLength(User, Length(User) + 1);
      Read(F, User[Length(User) - 1]);
    end;
    CloseFile(F);
  end;
end;
 
procedure TUsersControl.Save;
var
  F: file of TUser;
  U: TUser;
begin
  AssignFile(F, UsersFileName);
  Rewrite(F);
  for U in User do
    Write(F, U);
  CloseFile(F);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  UserControl := TUsersControl.Create;
  UserControl.UsersFileName := 'users.dat';
  UserControl.Load;
end;