KeyGen

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  q : longint;
  w,g,h : string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const ak : array [1..11] of char = ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K' );
      kz : array [1..15] of char = ( 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z' );
var key : array [1..14] of char;
begin
Edit1.Text := '';
Randomize;
(* 1 , 10 *)
 w := IntToStr(Random(5) + 1);
 key[1] := Char(w[1]);
 while q < 5 do q := Random(8) + 1;
 w := IntToStr(q);
 key[10] := Char(w[1]);
(* 2 , 4 *)
 q := Random(10) + 1;
 key[2] := Char(ak[q]);
 q := Random(14) + 1;
 key[4]:= Char(kz[q]);
(* 3 , 9 *)
 w := IntToStr(Random(5) + 1);
 key[3] := Char(w[1]);
 key[9] := Char(key[3]);
(* 5 , 8*)
 q := Random(2) + 1;
 if q = 1 then begin
                q := Random(10) + 1;
                key[5] := Char(ak[q]);
                key[8] := Char(ak[q]);
               end;
 if q = 2 then begin
                q := Random(14) + 1;
                key[5] := Char(kz[q]);
                key[8] := Char(kz[q]);
               end;
(* 6 *)
 key[6] := '-';
(* 7 , 11 *)
 q := Random(10) + 1;
 key[11] := Char(ak[q]);
 q := Random(14) + 1;
 key[7] := Char(kz[q]);
(* 12 , 13*)
 q := Random(10) + 1;
 key[12] := Char(ak[q]);
 q := Random(14) + 1;
 key[13] := Char(kz[q]);
(* 14 ( 1 + 3 ) *)
 g := String(key[1]);
 h := String(key[3]);
 w := IntToStr(StrToInt(g) + StrToInt(h) + 1);
 key[14] := Char(w[1]);
(* Enter *)
 for q := 1 to 14 do Edit1.Text := Edit1.Text + String(key[q]);
(* Destroy *)
 q := 0; w := ''; g := ''; h := '';
end;
 
end.