Разработка генератора паролей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ticeSymbolBar.Caption:=Цифры, заглавные и строчные латинские буквы;
end;;TSettings.RateBarChange(Sender: TObject);:=RateBar.Position;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 знаков;;;TSettings.SaveButtonClick(Sender: TObject);(f,0);:=inttostr(symbolbar.Position);(f,j);:=inttostr(ratebar.Position);(f,j);:=edit1.Text;(f,j);:=edit2.text;(f,j);:=edit3.text;(f,j);i:=0 to 9 do:=StringGrid1.Cells[0,i];(f,j);;i:=0 to 9 do:=StringGrid1.Cells[1,i];(f,j);;;;TSettings.StringGrid1KeyPress(Sender: TObject; var Key: Char);not (key in [0..9,#8]) then key:=#0;;TSettings.SymbolBarChange(Sender: TObject);:=SymbolBar.Position;SymbolBar.Position of
:UserNoticeSymbolBar.Caption:=Только цифры;
:UserNoticeSymbolBar.Caption:=Только строчные латинские буквы;
:UserNoticeSymbolBar.Caption:=Только заглавные латинские буквы;
:UserNoticeSymbolBar.Caption:=Цифры и строчные латинские буквы;
:UserNoticeSymbolBar.Caption:=Цифры и заглавные латинские буквы;
5:UserNoticeSymbolBar.Caption:=Заглавные и строчные латинские буквы;
:UserNoticeSymbolBar.Caption:=Цифры, заглавные и строчные латинские буквы;
end;;.
Модуль генерации:generate;classes, Sysutils;=class(TObject)password(symbolpassword,ratepassword:integer):string;;schet:integer;:string;, name:string;, nabor2, nabor3:shortstring;: shortstring;: file of shortstring;TGenerate.password (symbolpassword,ratepassword: Integer):String;:= ExtractFilePath( ParamStr(0) ) + settings.stgg;(f,names);(f);(f,2);(f,nabor1);(f,nabor2);(f,nabor3);symbolpassword of
:nabor:=nabor1;
:nabor:=nabor2;
:nabor:=nabor3;
:nabor:=nabor1+nabor2;
:nabor:=nabor1+nabor3;
:nabor:=nabor2+nabor3;
:nabor:=nabor1+nabor2+nabor3;;:=;schet:=0 TO ratepassword DO:=gener+nabor[random(length(nabor))+1];:=gener;(f,25);(F);(f);;.
Модуль кодирования:
unit coder;classes,Sysutils,StrUtils;
0thencipher:=maskcipher:=;(f);;.">type=class(TObject)cipher(password:string;lang:integer):string;;TCode.cipher(password: string; lang: Integer):string;i:integer;:string;:array[1..20] of integer;:file of shortstring;,j,str,nabor:shortstring;:=qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM0123456789;:= ExtractFilePath( ParamStr(0) ) + settings.stgg;(f,names);(f);(f,5);i:=1 to 20 do(f,j);[i]:=strtoint(j);:=mask+j;;:=;i:=1 to 100 do:=mask+nabor[random(length(nabor))+1];i:=1 to 20 doi0 then cipher:=maskcipher:=;(f);;.
0thencipher:=passwordcipher:=;(f);;.">Модуль декодирования:decoder;classes,Sysutils,strutils;=class(TObject)cipher(mask:string;lang:integer):string;;TDecode.cipher(mask: string; lang: Integer):string;i,n:integer;:string;:array[1..20] of integer;:file of shortstring;,j:shortstring;:= ExtractFilePath( ParamStr(0) ) + settings.stgg;(F,names);(F);(f,5);:=;i:=1 to 20 do(f,j);[i]:=strtoint(j);;i:=1 to 20 doi 0 then cipher:=passwordcipher:=;(f);;.
Приложение 5
Пример работы программы