OpenDialog1: TOpenDialog;: TSaveDialog;: TLabel;
Label4: TLabel;: TLabel;: TLabel;
Label1: TLabel;: TButton;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TButton;: TEdit;: TButton;: TLabel;: TLabel; FormCreate ( Sender: TObject); AddPasswordClick (Sender: TObject); TablicaSelectCell (Sender: TObject; ACol, ARow: Integer; CanSelect: Boolean); TablicaMouseWheelDown (Sender: TObject; Shift: TShiftState;: TPoint; var Handled: Boolean); TablicaMouseWheelUp ( Sender: TObject; Shift: TShiftState;: TPoint; var Handled: Boolean); N3Click (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender: TObject); SecuritybuttonClick (Sender: TObject); N9Click (Sender: TObject ); Button1Click (Sender: TObject); N4Click (Sender: TObject); SaveButtonClick (Sender: TObject); PasswordButtonClick (Sender: TObject); N13Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); N12Click (Sender: TObject);
{Private declarations};: TForm1;
Gener: TGenerate;: TCode;: TDecode;
i, n, pis: integer;: file of Pass;, namer, confrm, reader, reader2, j: shortstring;, newdoc: boolean;: Pass;
{$ R *. dfm} TForm1.AddPasswordClick (Sender: TObject); lastpassword.text ='' then lastpassword.Text: =''; newdoc = false then (f, namer); (f); (f, 0); (f, zap); lastpassword.Text <> decode.cipher (zap.password, zap.dlin) then informationlabel.Caption: = 'Старий пароль неверен'beginnewpassword1. Text = newpassword2.text не збігаються ';; pswchange: = true; newpassword1.Text = newpassword2.text thenSaveDialog1.Execute to Tablica.RowCount do ((Tablica.Cells [0, i] ='') (tablica.Cells [1, i] ='') (tablica.Cells [4, i] ='')) then continuebeginTablica.Cells [0, i] ='' then zap.flag: = falsezap.flag: = true;. password: = code.cipher (tablica.Cells [1, i], length (tablica.Cells [1, i])) ;. dlin: = length (tablica.Cells [1, i]);. zamet: = tablica.Cells [4, i]; (f, zap);;; endinformationlabel.Caption: = 'Паролі не збігаються';: = false; pswchange: = false;; TForm1.SecuritybuttonClick (Sender: TObject);. ClientHeight: = 509;; TForm1.Button1Click (Sender: TObject);. ClientHeight: = 296;; TForm1.FormClose (Sender: TObject; var Action: TCloseAction); PSWChange = true then
case MessageBox (Handle, PChar ('Зміни не зберегли. Закрити без збереження?'), PChar ('Увага'), MB_YESNOCANCEL + MB_APPLMODAL) of
IDYES: begin end;: beginSaveDialog1.Execute to Tablica.RowCount do ((Tablica.Cells [0, i] ='') (tablica.Cells [1, i] ='') (tablica.Cells [4, i] ='')) then continuebeginTablica.Cells [0, i] ='' then zap.flag: = falsezap.flag: = true;. password: = code.cipher (tablica.Cells [1, i], length (tablica.Cells [1, i])) ;. dlin: = length (tablica.Cells [1, i]);. zam...
