Geum.ru

Разработка генератора паролей

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

then:=SaveDialog1.FileName+.psw;(f,namer);(f);(f,0);.password:=;.dlin:=0;(f,zap);(f,1);I:=1 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);;; end;:=false; newdoc:=false;;TForm1.N5Click(Sender: TObject);pis 0 then if SaveDialog1.Execute then:=SaveDialog1.FileName+.psw;(f,namer);(f);(f,0);

zap.password:=;.dlin:=0;

write(f,zap);(f,1);I:=1 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);;; newdoc:=false; pswchange:=false; end;;TForm1.N9Click(Sender: TObject);.ShowModal;;TForm1.PasswordButtonClick(Sender: TObject);(f,0);(f,zap);passwordedit.text=decode.cipher(zap.password,zap.dlin) theni:=1 to filesize(f)-1 do begin pis:=1; read(f,zap); tablica.cells[1,i]:=decode.cipher(zap.password,zap.dlin); label8.caption:=; endlabel8.caption:=Пароль неверный;;TForm1.TablicaMouseWheelDown(Sender: TObject; Shift: TShiftState;: TPoint; var Handled: Boolean);.Perform(WM_VScroll, SB_LINEDOWN, 0); Handled:=True;;TForm1.TablicaMouseWheelUp(Sender: TObject; Shift: TShiftState;: TPoint; var Handled: Boolean);.Perform(WM_VScroll, SB_LINEUP, 0); Handled:=True;;TForm1.TablicaSelectCell(Sender: TObject; ACol, ARow: Integer;CanSelect: Boolean);(ACol=0) then:=true;.Options:=Tablica.Options-[goEditing];Tablica.cells[ACol,ARow]=? then Tablica.cells[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) ) + settings.stgg;(f,names);(f);(f,j);.Position:=strtoint(j);(f,j);.Position:=strtoint(j);(f,j);.Text:=j;(f,j);.text:=j;(f,j);.text:=j;i:=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 знаков;

:UserNoticeRateBar.Caption:=13 знаков;

:UserNoticeRateBar.Caption:=14 знаков;

:UserNoticeRateBar.Caption:=15 знаков;

:UserNoticeRateBar.Caption:=16 знаков;

:UserNoticeRateBar.Caption:=17 знаков;

:UserNoticeRateBar.Caption:=18 знаков;

:UserNoticeRateBar.Caption:=19 знаков;

:UserNoticeRateBar.Caption:=20 знаков;;SymbolBar.Position of

:UserNoticeSymbolBar.Caption:=Только цифры;

1:UserNoticeSymbolBar.Caption:=Только строчные латинские буквы;

:UserNoticeSymbolBar.Caption:=Только заглавные латинские буквы;

:UserNoticeSymbolBar.Caption:=Цифры и строчные латинские буквы;

:UserNoticeSymbolBar.Caption:=Цифры и заглавные латинские буквы;

:UserNoticeSymbolBar.Caption:=Заглавные и строчные латинские буквы;

:UserNo