Реферат Розробка генератора паролів

Тема: Курсовые обзорные

ACol, ARow]: ='' Tablica.cells [ACol, ARow]: = '?';; (Acol = 1) then Tablica.Options: = Tablica.Options-[goEditing]; (Acol = 2) then.Options: = Tablica.Options-[goEditing]; pis = 1 then begin: = true; Tablica.Cells [Acol-1, Arow]: = gener.password (setting.symbol, setting.rate);; ; (Acol = 3) then.Options: = Tablica.Options-[goEditing];. AsText: = Tablica.Cells [ACol-2, Arow];; (Acol = 4) then begin Tablica.Options: = Tablica.Options + [goEditing]; pswchange: = true; end; (ACol = 5) then begin Tablica.Options: = Tablica.Options-[goEditing]; pswchange: = true;. Cells [0, arow]: =''; Tablica. Cells [1, arow]: =''; Tablica.Cells [4, arow]: ='';; end;.

Форма налаштувань: setting;. Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,. Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls , Vcl.ComCtrls,. Imaging.pngimage, Vcl.ExtCtrls, Vcl.Grids; = class (TForm): TImage;: TTrackBar;: TTrackBar;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TLabel; : TEdit;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel;: TStringGrid;: TLabel;: TLabel;: TLabel; SymbolBarChange (Sender: TObject); RateBarChange (Sender: TObject); FormCreate (Sender: TObject) ; SaveButtonClick (Sender: TObject); StringGrid1KeyPress (Sender: TObject; var Key: Char);

{Private declarations}

{Public declarations};: TSettings;, rate, i: integer;: file of shortstring;, j: shortstring;

const = ('0 .. 9 ');

{$ R *. dfm}

procedure TSettings.FormCreate (Sender: TObject);: = ExtractFilePath (ParamStr (0)) + to 9 do (f, j);. Cells [0, i]: = j;; i: = 0 to 9 do (f, j);. Cells [1, i]: = j;; RateBar.Position of

: UserNoticeRateBar.Caption: = '1 знак ';

: UserNoticeRateBar.Caption: = '2 знака ';

: UserNoticeRateBar.Caption: = '3 знака ';

: UserNoticeRateBar.Caption: = '4 знака ';

: UserNoticeRateBar.Caption: = '5 знаків ';

: UserNoticeRateBar.Caption: = '6 знаків ';

: UserNoticeRateBar.Caption: = '7 знаків ';

: UserNoticeRateBar.Caption: = '8 знаків ';

: UserNoticeRateBar.Caption: = '9 знаків ';

: UserNoticeRateBar.Caption: = '10 знаків ';

: UserNoticeRateBar.Caption: = '11 знаків ';

: UserNoticeRateBar.Caption: = '12 знаків ';