bject);: = SymbolBar . Position; SymbolBar.Position of
: UserNoticeSymbolBar.Caption: = 'Тільки цифри';
: UserNoticeSymbolBar.Caption: = 'Тільки рядкові латинські букви';
: UserNoticeSymbolBar.Caption: = 'Тільки великі латинські літери';
: UserNoticeSymbolBar.Caption: = 'Цифри і малі латинські букви';
: UserNoticeSymbolBar.Caption: = 'Цифри і заголовні латинські літери';
5: UserNoticeSymbolBar.Caption: = 'Заголовні і рядкові латинські букви';
: UserNoticeSymbolBar.Caption: = 'Цифри, великі і малі латинські букви';
end;;.
Модуль генерації: generate; classes, 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;
0 then cipher: = maskcipher: =''; (f);;.
Модуль 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
В В В
Приклад роботи програми
