Нужно создать кнопку для анализа на стойкость пароля

[keks_don]

Вот программа уже написана, которая реализует создание пароля. Нужно создать кнопку в которой проходит проверка на криптостойкость.... ПОМОГИТЕ

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, CLIPBrd;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function RandString(Len:word; LCase, UpCase, Digit, SpecSymb:boolean):string;
 const symLCase='abcdefghijklmnopqrstuvwxyz'; //набор символов в нижнем регистре
       symUCase='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; //набор символов в верхнем регистре
       symNum ='0123456789'; //набор цифр 
       symSpecSymb = '[]{},.";:-+#'; //набор спец. символов
 
var name,symb:string;
    i:word;
 
begin
 
//создаем общий набор symb в соответствии с отмеченными параметрами функции LCase, UpCase, Digit, SpecSymb
 
 if LCase then symb:=symb+symLCase; //Включаем в набор символы нижнего регистра
 if UpCase then symb:=symb+symUCase; //Включаем в набор символы верхнего регистра
 if Digit then symb:=symb+symNum; //Включаем в набор цифры
 if SpecSymb then symb:=symb+symSpecSymb; //Включаем в набор спец. символы
 
 if symb='' then
    begin
        MessageBox(0,'Выберите один из параметров!!!','ERROR',MB_OK);// выводим сообщение о неправильном выборе условий
    end
 
 else
 
    begin
 
   name:='';
 
     for i := 1 to Len do
          //генерируем случайные символы из набора symb
          //цикл повторяется указанное в параметре Len раз
          //функция random возвращает целое число от 0 до размера набора symb
          name:=name+symb[random(length(symb))+1];
 
   Result:=Name; //выводим результат
 
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
//задаем параметры функции RandString и выводит результат в Edit1
 
Edit1.Text:=RandString(SpinEdit1.Value,//длина генерируемой строки
                       CheckBox1.Checked,//если отмечен флажком, то включаем в набор символы нижнего регистра
                       CheckBox2.Checked,//если отмечен флажком, то включаем в набор символы верхнего регистра
                       CheckBox3.Checked,//если отмечен флажком, то включаем в набор цифры
                       CheckBox4.Checked); //если отмечен флажком, то включаем в набор спец. символы
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Clipboard.AsText:=Edit1.Text; //копируем содержимое Edit1 (сгенерированный пароль) в буфер обмена
end;
 
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

Вот ссылка на источник https://yadi.sk/d/diIIp9JM3XmzEr

[Serge_Bliznykov]

Сообщение от keks_don

в которой проходит проверка на криптостойкость

так расскажите, как эта проверка должна проходить, по какому алгоритму и что должно быть результатом этой проверки. Приведите примеры.

[D1973]

Я Вам уже на другом форуме вопрос задавал: что, по Вашему, означает "проверка на криптостойкость"?