Unit2.pas

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math, ExtCtrls, ClipBrd, Registry, Unit1, Unit7;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Shape1: TShape;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    function checksum(key: BArr): BArr;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure onKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure onKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  checken: boolean = false;
  key: BArr;

implementation

{$R *.dfm}

function TForm2.checksum(key: BArr): BArr;
var mrk: BArr;
    cs_raw, cs: BArr;
    i: integer;
begin
    SetLength(mrk, 5);
    mrk[0] := $4A;
    mrk[1] := $38;
    mrk[2] := $0E;
    mrk[3] := $21;
    mrk[4] := $09;

    cs_raw := Form1.stream(mrk, key, 1);

    SetLength(cs, 10);
    for i := 0 to 4 do
    begin
        cs[i * 2] := (10 + cs_raw[i] div 10 - cs_mask[i * 2]) mod 10;
        cs[i * 2 + 1] := (10 + cs_raw[i] mod 10 - cs_mask[i * 2 + 1]) mod 10;
    end;

    Result:= cs;
end;

procedure TForm2.FormShow(Sender: TObject);
var i: integer;
    dklst, css: string;
    cs: BArr;
begin
    if (Length(DKL) > 0) then
        begin
            for i:=0 to 49 do dklst := dklst + Format('%.2d', [DKL[i]]);
            for i:= 0 to 19 do edis[i+1].Text := Copy(dklst, (i * 5)+1, 5);

            cs := checksum(DKL);

            for i:= 0 to High(cs) do css := css + IntToStr(cs[i]);
            edis[21].Text := Copy(css, 1, 5);
            edis[22].Text := Copy(css, 6, 5);
        end;
    checken := true;
end;

procedure TForm2.Button2Click(Sender: TObject);
var cs: BArr;
    s: String;
    i: integer;
    randform: TForm7;
begin
    s := '';
    SetLength(key, 50);

    randform := TForm7.Create(Form2);
    randform.Position := poOwnerFormCenter;
    if (randform.ShowModal = mrCancel) then exit;
    randform.Free;

    cs := checksum(key);

    for i:= 0 to High(key) do s := s + Format('%.2d', [key[i]]);
    for i:= 0 to High(cs) do s := s + IntToStr(cs[i]);

    checken := false;

    for i:= 0 to 21 do edis[i+1].Text := Copy(s, (i * 5)+1, 5);

    checken := true;
end;

procedure TForm2.Button5Click(Sender: TObject);
var skey: string;
    i: integer;
begin
    for i:= 1 to 22 do if Length(edis[i].Text) > 0 then skey := skey + edis[i].Text + ' ';
    Clipboard.AsText := Copy(skey, 1, Length(skey)-1);
end;

procedure TForm2.Button6Click(Sender: TObject);
var i: integer;
begin
    checken := false;
    for i:= 1 to 22 do edis[i].Text := '';
    checken := true;
end;

procedure TForm2.Button1Click(Sender: TObject);
var ndk, cs: BArr;
    skey: string;
    i: integer;
begin
    for i:= 1 to 20 do if (Length(edis[i].Text) < 5) then
      begin
          MessageDlg('Enter 100 digits of key to generate a checksum!', mtError, [mbOK], 0);
          exit;
      end;

    checken := false;

    SetLength(ndk, 50);
    for i:= 1 to 22 do skey := skey + edis[i].Text;
    for i:= 0 to 49 do ndk[i] := (ord(skey[i * 2 + 1])-48)*10 + (ord(skey[i * 2 + 2])-48);
    skey := '';

    cs := checksum(ndk);

    for i:= 0 to High(cs) do skey := skey + IntToStr(cs[i]);
    edis[21].Text := Copy(skey, 1, 5);
    edis[22].Text := Copy(skey, 6, 5);
    checken := true;
end;

procedure TForm2.Edit1Change(Sender: TObject);
var tfid, code: byte;
    Curs, i: integer;
    ttext: string;
begin
    if (checken) then
    begin
        checken := false;
        tfid := (Sender As TEdit).TabOrder+1;

        for i:=1 to 22 do Ttext := Ttext + edis[i].Text;
        //writeln('ttext ', ttext);

        curs := edis[tfid].SelStart+(5*(tfid-1));
        //writeln('curs ',curs);

        i:=1;
        while I <= Length(Ttext) do
            begin
                Code := Ord(Ttext[i]);
                if not (((Code >= 48) and (Code <= 57))) then
                    begin
                        Ttext := StringReplace(Ttext, Ttext[i], '', []);
                        Curs := Curs - 1;
                        I := I - 1;
                    end;
                    I := I + 1;
            end;

        if Curs > Length(Ttext) then Curs := Length(Ttext)
        else if Curs > 110 then Curs := 110;
        //writeln('!curs ',curs);


        for i:=1 to 22 do edis[i].Text := Copy(Ttext, (5*(i-1))+1, 5);

        if (Curs = 110) then Button3.SetFocus
        else begin i := (Curs div 5)+1; edis[i].SetFocus; edis[i].Selstart := Curs-5*(i-1); end;
        checken := true;
    end;
end;

procedure TForm2.Button3Click(Sender: TObject);
var i: integer;
    skey, csu, paswe: string;
    ndk, cs, emrk: BArr;
begin
    for i:= 1 to 22 do if (Length(edis[i].Text) < 5) then
      begin
          MessageDlg('Enter 110 digits of key!', mtError, [mbOK], 0);
          ModalResult := mrNone;
          exit;
      end;

    SetLength(ndk, 50);
    for i:= 1 to 22 do skey := skey + edis[i].Text;
    for i:= 0 to 49 do ndk[i] := (ord(skey[i * 2 + 1])-48)*10 + (ord(skey[i * 2 + 2])-48);

    cs := checksum(ndk);

    for i:= 0 to High(cs) do csu := csu + IntToStr(cs[i]);
    if (csu <> Copy(skey, 101, 10)) then
      begin
          MessageDlg('Incorrect key checksum!'#10#13'Please check that the key is entered correctly.', mtError, [mbOK], 0);
          ModalResult := mrNone;
          exit;
      end;

    SetLength(DKL, 50);
    for i := 0 to 49 do DKL[i] := ndk[i];

    paswe := passw;

    while (Length(paswe) < 50) do paswe := paswe + paswe;
    if (Length(paswe) > 50) then paswe := Copy(paswe, 1, 50);

    for i := 0 to 10 do cs[i] := cs[i] xor ord(paswe[i*2]);
    for i := 0 to 49 do ndk[i] := ndk[i] xor ord(paswe[i]);

    reg.WriteBinaryData('DKL', ndk[0], 50);
    reg.WriteBinaryData('CSU', cs[0], 10);

    if reg.ValueExists('MRK') then
    begin
        SetLength(emrk, 5);
        for i := 0 to 5 do emrk[i] := mrk[i] xor ord(DKL[i*4]);
        reg.WriteBinaryData('MRK', emrk[0], 5);
    end;
end;

procedure TForm2.onKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var tfid: byte;
begin
  //checken := false;
  //writeln('derived - ', ord(Key));
  tfid := (Sender As TEdit).TabOrder+1;
  if (Key = VK_DELETE) and (tfid <> 22) and (edis[tfid].SelStart = 5) then
      edis[tfid+1].Text := Copy(edis[tfid+1].Text, 2, 5)
  else if ((Key = VK_RIGHT) or (Key = VK_DOWN)) and (tfid <> 22) and (edis[tfid].SelStart = 5) then
      begin
          edis[tfid+1].SetFocus;
          edis[tfid+1].SelStart := 0;
      end
  else if ((Key = VK_LEFT) or (Key = VK_UP)) and (tfid <> 1) and (edis[tfid].SelStart = 0) then
      begin
          edis[tfid-1].SetFocus;
          edis[tfid-1].SelStart := 5;
      end;
  //checken := true;
end;

procedure TForm2.onKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^A then
  begin
    (Sender as TEdit).SelectAll;
    Key := #0;
  end
end;

end.