unit1.pas

由于目前很多字典生成的密码很难满足我们的要求

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls,Unit2, Spin;

type
  TForm1 = class(TForm)
    pass1: TEdit;
    pass2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    SaveDialog: TSaveDialog;
    Button4: TButton;
    input: TSpinEdit;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  gfilename:text;
implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
  help.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button2Click(Sender: TObject);
   var
   la,lc,lm,ln:string;
   a,b,c,d,e,f,g,h,inp:Integer;
   ent:string;
begin
  if SaveDialog.Execute then
      begin
      Rewrite(gfilename,Savedialog.FileName);
      ent:=#13#10;
       inp:=input.value;
       la:=pass1.Text;
       lc:=pass2.Text;
        if inp>=1 then
        for a:=1 to 26 do
          begin
               lm:=char(96+a);
              ln:=la+lm+lc;
               text:=ln+ent;
               write(gfilename,text);
           end;
        if inp>=2 then
        for a:=1 to 26 do
         for b:=1 to 26 do
           begin
               lm:=char(96+a)+char(96+b);
               ln:=la+lm+lc;
               text:=ln+ent;
               write(gfilename,text);
           end;
        if inp>=3 then
        for a:=1 to 26 do
         for b:=1 to 26 do
           for c:=1 to 26 do
             begin
               lm:=char(96+a)+char(96+b)+char(96+c);
               ln:=la+lm+lc;
               text:=ln+ent;
               write(gfilename,text);
               end;
         if inp>=4 then
          for a:=1 to 26 do
           for b:=1 to 26 do
             for c:=1 to 26 do
               for d:=1 to 26 do
                begin
               lm:=char(96+a)+char(96+b)+char(96+c)+char(96+d);
               ln:=la+lm+lc;
               text:=ln+ent;
               write(gfilename,text);
               end;
               if inp>=5 then
                  for a:=1 to 26 do
                      for b:=1 to 26 do
                        for c:=1 to 26 do
                         for d:=1 to 26 do
                           for e:=1 to 26 do
                          begin
                             lm:=char(96+a)+char(96+b)+char(96+c)+char(96+d)+char(96+e);
                              ln:=la+lm+lc;
                              text:=ln+ent;
                              write(gfilename,text);
                           end;
               if inp>=6 then
                  for a:=1 to 26 do
                      for b:=1 to 26 do
                        for c:=1 to 26 do
                         for d:=1 to 26 do
                           for e:=1 to 26 do
                             for f:=1 to 26 do
                          begin
                             lm:=char(96+a)+char(96+b)+char(96+c)+char(96+d)+char(96+e)+char(96+f);
                              ln:=la+lm+lc;
                              text:=ln+ent;
                              write(gfilename,text);
                           end;
                  if inp>=7 then
                  for a:=1 to 26 do
                      for b:=1 to 26 do
                        for c:=1 to 26 do
                         for d:=1 to 26 do
                           for e:=1 to 26 do
                             for f:=1 to 26 do
                               for g:=1 to 26 do
                          begin
                             lm:=char(96+a)+char(96+b)+char(96+c)+char(96+d)+char(96+e)+char(96+f)+char(96+g);
                              ln:=la+lm+lc;
                              text:=ln+ent;
                              write(gfilename,text);
                           end;
                   if inp>=8 then
                  for a:=1 to 26 do
                      for b:=1 to 26 do
                        for c:=1 to 26 do
                         for d:=1 to 26 do
                           for e:=1 to 26 do
                             for f:=1 to 26 do
                               for g:=1 to 26 do
                                 for h:=1 to 26 do
                          begin
                              lm:=char(96+a)+char(96+b)+char(96+c)+char(96+d)+char(96+e)+char(96+f)+char(96+g)+char(96+h);
                              ln:=la+lm+lc;
                              text:=ln+ent;
                              write(gfilename,text);
                           end;
       CloseFile(gfilename);
       end;
end;

end.