alg_main.dfm

very simple nonvisual Delphi component useful for shareware program developing. It uses crypted lic

object MainForm: TMainForm
  Left = 260
  Top = 134
  BorderStyle = bsDialog
  Caption = 'ArtLicence Generator'
  ClientHeight = 289
  ClientWidth = 383
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 248
    Width = 383
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Button3: TButton
      Left = 144
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 0
      OnClick = Button3Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 383
    Height = 248
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'Keys'
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 79
        Height = 13
        Caption = 'Random String1:'
      end
      object Label2: TLabel
        Left = 8
        Top = 36
        Width = 79
        Height = 13
        Caption = 'Random String2:'
      end
      object Label3: TLabel
        Left = 8
        Top = 124
        Width = 81
        Height = 13
        Caption = 'TArtLicense Key:'
      end
      object Label4: TLabel
        Left = 8
        Top = 100
        Width = 61
        Height = 13
        Caption = 'License Key:'
      end
      object rs1: TEdit
        Left = 96
        Top = 8
        Width = 225
        Height = 21
        TabOrder = 0
      end
      object rs2: TEdit
        Left = 96
        Top = 32
        Width = 225
        Height = 21
        TabOrder = 1
      end
      object Button1: TButton
        Left = 136
        Top = 64
        Width = 75
        Height = 25
        Caption = 'Generate'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Key1: TEdit
        Left = 96
        Top = 96
        Width = 265
        Height = 21
        TabOrder = 3
      end
      object Key2: TEdit
        Left = 96
        Top = 120
        Width = 265
        Height = 21
        TabOrder = 4
      end
      object Button2: TButton
        Left = 328
        Top = 8
        Width = 43
        Height = 41
        Caption = 'Rand'
        TabOrder = 5
        OnClick = FormShow
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'License'
      ImageIndex = 1
      object Label5: TLabel
        Left = 8
        Top = 12
        Width = 37
        Height = 13
        Caption = 'Exe file:'
      end
      object Label6: TLabel
        Left = 8
        Top = 36
        Width = 62
        Height = 13
        Caption = 'Expired date:'
      end
      object Label7: TLabel
        Left = 8
        Top = 60
        Width = 28
        Height = 13
        Caption = 'Code:'
      end
      object Label15: TLabel
        Left = 8
        Top = 84
        Width = 26
        Height = 13
        Caption = 'Data:'
      end
      object Bevel2: TBevel
        Left = 8
        Top = 112
        Width = 361
        Height = 9
        Shape = bsTopLine
      end
      object fName: TEdit
        Left = 88
        Top = 8
        Width = 241
        Height = 21
        TabOrder = 0
      end
      object Button4: TButton
        Left = 336
        Top = 8
        Width = 21
        Height = 21
        Caption = '...'
        TabOrder = 1
        OnClick = Button4Click
      end
      object Date: TDateTimePicker
        Left = 88
        Top = 32
        Width = 97
        Height = 21
        Date = 38718.546528680560000000
        Time = 38718.546528680560000000
        TabOrder = 2
      end
      object code: TEdit
        Left = 88
        Top = 56
        Width = 241
        Height = 21
        TabOrder = 3
      end
      object rbstr: TRadioButton
        Left = 8
        Top = 130
        Width = 89
        Height = 17
        Caption = 'ExData String:'
        Checked = True
        TabOrder = 4
        TabStop = True
      end
      object rbfile: TRadioButton
        Left = 8
        Top = 154
        Width = 81
        Height = 17
        Caption = 'ExData File:'
        TabOrder = 5
      end
      object ExDataF: TEdit
        Left = 104
        Top = 152
        Width = 225
        Height = 21
        TabOrder = 6
      end
      object ExDataS: TEdit
        Left = 104
        Top = 128
        Width = 225
        Height = 21
        TabOrder = 7
      end
      object Button5: TButton
        Left = 336
        Top = 152
        Width = 21
        Height = 21
        Caption = '...'
        TabOrder = 8
        OnClick = Button5Click
      end
      object Button7: TButton
        Left = 136
        Top = 184
        Width = 75
        Height = 25
        Caption = 'Generate'
        TabOrder = 9
        OnClick = Button7Click
      end
      object DataS: TEdit
        Left = 88
        Top = 80
        Width = 241
        Height = 21
        TabOrder = 10
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Test'
      ImageIndex = 2
      object Label8: TLabel
        Left = 8
        Top = 12
        Width = 56
        Height = 13
        Caption = 'License file:'
      end
      object Label9: TLabel
        Left = 8
        Top = 72
        Width = 65
        Height = 13
        Caption = 'Licence data:'
      end
      object LName: TEdit
        Left = 88
        Top = 8
        Width = 241
        Height = 21
        TabOrder = 0
      end
      object Button6: TButton
        Left = 336
        Top = 8
        Width = 21
        Height = 21
        Caption = '...'
        TabOrder = 1
        OnClick = Button6Click
      end
      object Button8: TButton
        Left = 144
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Load'
        TabOrder = 2
        OnClick = Button8Click
      end
      object Lb: TListBox
        Left = 88
        Top = 72
        Width = 241
        Height = 137
        ItemHeight = 13
        TabOrder = 3
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'About'
      ImageIndex = 3
      object Label10: TLabel
        Left = 160
        Top = 16
        Width = 121
        Height = 13
        Caption = 'ArtLicense Generator'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 8
        Top = 120
        Width = 141
        Height = 13
        Caption = 'Programmed by Artem Parlyuk'
      end
      object Label12: TLabel
        Left = 160
        Top = 120
        Width = 96
        Height = 13
        Cursor = crHandPoint
        Caption = 'mailto:[e-mail]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label12Click
        OnMouseEnter = Label12MouseEnter
        OnMouseLeave = Label12MouseLeave
      end
      object Label13: TLabel
        Left = 160
        Top = 134
        Width = 92
        Height = 13
        Cursor = crHandPoint
        Caption = 'http://artsoft.nm.ru '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Label12Click
        OnMouseEnter = Label12MouseEnter
        OnMouseLeave = Label12MouseLeave
      end
      object Label14: TLabel
        Left = 120
        Top = 32
        Width = 243
        Height = 65
        Caption = 
          'License generator for TArtLicense component.'#13#10'RSA algorithm sour' +
          'ce code by Walied Othman'#13#10'([e-mail]'#13 +
          #10'http://ace.ulyssis.student.kuleuven.ac.be/~triade/)'#13#10'CRC32 sour' +
          'ce code by Andrew Rubin'
      end
      object Bevel1: TBevel
        Left = 8
        Top = 104
        Width = 361
        Height = 9
        Shape = bsTopLine
      end
      object Panel2: TPanel
        Left = 8
        Top = 16
        Width = 41
        Height = 41
        BevelOuter = bvLowered
        TabOrder = 0
        object Image1: TImage
          Left = 4
          Top = 4
          Width = 32
          Height = 32
          AutoSize = True
          Picture.Data = {
            055449636F6E0000010001002020100000000000E80200001600000028000000
            2000000040000000010004000000000080020000000000000000000000000000
            0000000000000000000080000080000000808000800000008000800080800000
            80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
            FFFFFF000000000000000000000000000000000000000FFFFFFFFFFFFFFF333F
            FFF0000000000F000000000FFF33BBB33FF0000000000FFFFFFFFFFFF3BBBBBB
            B3F0000000000FCCFCCFFFFFF3BBB3BBB3F0000000000FCCFFCCFFFF3BBB3B3B
            BB30000000000FCFCFFCFFFF3BBB3B3BBB30000000000FCFCFFCFCFFF3BBB3BB
            B3F0000000000FFCCFFFFFCFF3BBBBBBB3F0000000000FFCCFFFFFFFFF33BBB3
            3FF0000000000FFFCFFFFFFFFFFF333FFFF0000000000FFFFFFFFFFFFFFFFFFF
            FFF0000000000FFFFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFF
            FFF0000000000F000000000000000FFFFFF0000000000FFFFFFFFFFFFFFFFFFF
            FFF0000000000F000000000000FFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFF
            FFF0000000000F0000000000000FFFFFFFF0000000000FFFFFFFFFFFFFFFFFFF
            FFF0000000000FFFFFFFFFFFFFFFFFFFFFF0000000000F0000000000000FFFFF
            FFF0000000000FFFFFFFFFFFFFFFFFFFFFF0000000000F0000000000000000FF
            FFF0000000000FFFFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFF
            FFF0000000000FFFFFFFFFFFFFFFFFFFFFF0000000000F00F0F00F00F070F00F
            00F0000000000F0FF0F0FF07F000F0FF07F0000000000F0FF0F00F00F070F00F
            00F0000000000FFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000
            00000000F000000FF000000FF000000FF000000FF000000FF000000FF000000F
            F000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000F
            F000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000F
            F000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000F
            F000000F}
        end
      end
    end
  end
  object OD: TOpenDialog
    DefaultExt = '.exe'
    Filter = 'Exe files|*.exe|All files|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select Exe file'
    Left = 12
    Top = 216
  end
  object SD: TSaveDialog
    DefaultExt = '.lic'
    Filter = 'Licence files (*.lic)|*.lic|All files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save Licence file'
    Left = 44
    Top = 216
  end
end