Как написать генератор паролей . Delphi , Синтаксис , Пароли

Hi всем! Начнём с того что кинем на форму три Edit -а , Батон (Button), два GroopBox-a , popUp меню и UpDown. На одну панель бросаем три RadioButton-a, на другую три CheckBox-a. Ассоциируем UpDown с первым Edit-ом, здесь будет выбор кол-ва букв в пароле. Второй Edit будет для вывода пароля, а третий для побуквенного вывода сгенереного пароля. CheckBox-ы называем C1,C2,C3,C4,C5. RadioButton-ы называем Ra1,Ra2,Ra3. В меню делаем два пункта, их каптионы называем +10 и -10. Caption-ы CheckBox-ов обзываем 'Латиница','Кирилица','0..9','Спецсимволы ' и 'Смесь'. Это для выбора символов из которых генерится пароль. Caption-ы RadioButton-ов обзываем 'Upper Case' 'Lower Case' 'Misc' -для выбора регистра. Один CheckBox и RadioButton делаем выделеными по умолчанию. Батон используем как стартовую кнопку. А дальше смотрите код:

Код, предоставленный в этом примере, - это приложение Delphi, генерирующее пароли на основе ввода пользователя. Оно имеет несколько функций:

Код хорошо организован и легко понятен. Однако есть несколько предложений по улучшению:

Вот обновленная версия кода с этими предложениями реализованными:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, ExtCtrls, Menus, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    Gen: TButton;
    Label1: TLabel;
    Status: TStatusBar;
    PopupMenu2: TPopupMenu;
    N101: TMenuItem;
    N102: TMenuItem;
    edit2: TEdit;
    edit3: TEdit;
    edit1: TMemo;
    U1: TUpDown;
    C1: TCheckBox;
    C2: TCheckBox;
    C3: TCheckBox;
    C4: TCheckBox;
    C5: TCheckBox;
    Ra1: TRadioButton;
    Ra2: TRadioButton;
    Ra3: TRadioButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;

    procedure GenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N101Click(Sender: TObject);
    procedure N102Click(Sender: TObject);
    procedure SpinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure edit1KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kol: integer;
  ss: string;

implementation

{$R *.DFM}

procedure TForm1.GenClick(Sender: TObject);
begin
  if edit1.text <> '' then
    kol := StrToInt(edit1.text)
  else
  begin
    kol := 0;
  end;

  s := '';
  repeat
    r := Random(8) + 1;
    case r of
      1:
        if C2.Checked and Ra1.Checked then
          s := s + con1[Random(25) + 1];
      2:
        if C2.Checked and Ra2.Checked then
          s := s + con2[Random(25) + 1];
      3:
        if C2.Checked and Ra3.Checked then
          s := s + con3[Random(49) + 1];

      4:
        if C4.Checked then
          s := s + con4[Random(30) + 1];
      5:
        if C1.Checked then
          s := s + IntToStr(Random(10));

      6:
        if C3.Checked and Ra1.Checked then
          s := s + con5[Random(31) + 1];
      7:
        if C3.Checked and Ra2.Checked then
          s := s + con6[Random(31) + 1];
      8:
        if C3.Checked and Ra3.Checked then
          s := s + con7[Random(63) + 1];
    end;
  until Length(s) >= kol;

  while Length(s) > kol do
    Delete(s, 1, 1);

  edit2.text := s;
  for m := 1 to kol do
    edit3.text := edit3.text + ' ' + s[m];

  status.simpletext := 'Пароль готов!';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit2.clear;
  edit3.clear;
  edit2.text := 'Здесь будет пароль!';
  u1.position := 8;
  edit3.text := 'А здесь каждый символ отдельно!';
  kol := 0;
  Randomize;
end;

procedure TForm1.N101Click(Sender: TObject);
begin
  u1.position := u1.position + 10;
end;

procedure TForm1.N102Click(Sender: TObject);
begin
  if u1.position > 10 then
    u1.position := u1.position - 10
  else
    status.simpletext := 'Слишком маленькое значение!!!';
end;

procedure TForm1.SpinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (key = 13) then GenClick(Gen); end;
end;

procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then key := #0;
end;

end.

Обратите внимание, что я также добавил более описательные заголовки для пунктов меню и радиobuttons, чтобы помочь пользователям понять их функции.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS