unit1.pas

自己写的用于随机生成完美国际游戏账号和密码的小程序

unit Unit1;

interface

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


type
  TForm1 = class(TForm)
    mmo1: TMemo;
    pnl1: TPanel;
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    lbl3: TLabel;
    edt2: TEdit;
    lbl4: TLabel;
    bvl1: TBevel;
    lbl5: TLabel;
    edt3: TEdit;
    btn1: TButton;
    btn2: TButton;
    pnl2: TPanel;
    btn3: TButton;
    dlgSave1: TSaveDialog;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    function myrand():string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function tform1.myrand():string;
var
  i,t,n:Integer;
  c,s:string;
begin
  repeat
  n:=Random(16);
  until (n>=6) and (n<=16) ;
  for i:=0 to n do
  begin
    if i=0 then t:=Random(25)+10 else t:=Random(35);
    case t of
      0 :c:='0';
      1 :c:='1';
      2 :c:='2';
      3 :c:='3';
      4 :c:='4';
      5 :c:='5';
      6 :c:='6';
      7 :c:='7';
      8 :c:='8';
      9 :c:='9';
      10:c:='a';
      11:c:='b';
      12:c:='c';
      13:c:='d';
      14:c:='e';
      15:c:='f';
      16:c:='g';
      17:c:='h';
      18:c:='i';
      19:c:='j';
      20:c:='k';
      21:c:='l';
      22:c:='m';
      23:c:='n';
      24:c:='o';
      25:c:='p';
      26:c:='q';
      27:c:='r';
      28:c:='s';
      29:c:='t';
      30:c:='u';
      31:c:='v';
      32:c:='w';
      33:c:='x';
      34:c:='y';
      35:c:='z';
     end;
     s:=s+c;
  end;
  Result:=s;

end;

procedure TForm1.btn3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i,n:Integer;
  s,t:string;
begin
  mmo1.Lines.Clear;
  n:=StrToInt(edt3.Text);
  for i:=1 to n do
  begin
    edt1.Text:=myrand();
    repeat s:=myrand until s<>edt1.Text;
    edt2.Text:=s;
    if   Length(edt1.Text)<=10 then t:=#9+#9 else t:=#9;
  mmo1.Lines.Append(IntToStr(i)+#9+'账号: '+edt1.Text+t+'密码:'+#9+edt2.Text);
  end;
  mmo1.Lines.Append(#8+#9+#8+#9+#8+#9+#8+#9+#8+#9+#8+#9);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  dlgSave1.Execute;
mmo1.Lines.SaveToFile(dlgSave1.FileName);
end;

end.