Chip 2004 July/CMCD0704.ISO/Software/Shareware/Comunicatii/zrcserv/setup.exe/%MAINDIR%/ZMC.exe/0/RCDATA/TGENERATECERTFORM/TGENERATECERTFORM.txt

Text File | 2004-05-19 | 10.7 KB | 474 lines

object GenerateCertForm: TGenerateCertForm
  Left = 644
  Top = 322
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsDialog
  BorderWidth = 4
  Caption = 'Certificate generation'
  ClientHeight = 337
  ClientWidth = 337
  Color = clBtnFace
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnHelp = FormHelp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object btnBack: TButton
    Left = 87
    Top = 304
    Width = 75
    Height = 23
    Caption = '< &Back'
    Enabled = False
    TabOrder = 0
    OnClick = btnBackClick
  end
  object btnNext: TButton
    Left = 170
    Top = 304
    Width = 75
    Height = 23
    Caption = '&Next >'
    Default = True
    TabOrder = 1
    OnClick = btnNextClick
  end
  object btnCancel: TButton
    Left = 252
    Top = 304
    Width = 75
    Height = 23
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object pagectl: TPageControl
    Left = 0
    Top = 0
    Width = 337
    Height = 295
    ActivePage = TabSheet4
    Align = alTop
    Style = tsButtons
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      TabVisible = False
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 90
        Height = 13
        Caption = 'I want to create...'
      end
      object groupCertType: TRadioGroup
        Left = 8
        Top = 48
        Width = 297
        Height = 81
        Caption = 'Type of certificate '
        ItemIndex = 0
        Items.Strings = (
          'Self-signed certificate'
          'Certificate signed by Certificate Authority (CA)')
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      TabVisible = False
      object Label2: TLabel
        Left = 8
        Top = 24
        Width = 185
        Height = 13
        Caption = 'Select public key and hash algorithms: '
      end
      object GroupBox8: TGroupBox
        Left = 8
        Top = 48
        Width = 297
        Height = 100
        Caption = 'Types'
        TabOrder = 0
        object RadioButton7: TRadioButton
          Left = 36
          Top = 20
          Width = 113
          Height = 17
          Caption = 'MD5 / RSA'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton8: TRadioButton
          Left = 36
          Top = 44
          Width = 113
          Height = 17
          Caption = 'SHA1 / RSA'
          TabOrder = 1
        end
        object RadioButton9: TRadioButton
          Left = 36
          Top = 68
          Width = 113
          Height = 17
          Caption = 'SHA1 / DSA'
          TabOrder = 2
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
      TabVisible = False
      object Label3: TLabel
        Left = 8
        Top = 24
        Width = 219
        Height = 13
        Caption = 'Select parent certificate and private key files:'
      end
      object Label4: TLabel
        Left = 17
        Top = 53
        Width = 57
        Height = 13
        Caption = 'Certificate: '
      end
      object Label5: TLabel
        Left = 17
        Top = 135
        Width = 62
        Height = 13
        Caption = 'Private Key: '
      end
      object Edit15: TEdit
        Left = 18
        Top = 70
        Width = 284
        Height = 21
        TabOrder = 0
      end
      object Button1: TButton
        Left = 229
        Top = 96
        Width = 75
        Height = 23
        Caption = 'Browse'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 229
        Top = 178
        Width = 75
        Height = 23
        Caption = 'Browse'
        TabOrder = 2
        OnClick = Button2Click
      end
      object Edit16: TEdit
        Left = 18
        Top = 152
        Width = 284
        Height = 21
        TabOrder = 3
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'TabSheet4'
      ImageIndex = 3
      TabVisible = False
      object Label6: TLabel
        Left = 8
        Top = 24
        Width = 133
        Height = 13
        Caption = 'Select public key algorithm: '
      end
      object Label15: TLabel
        Left = 8
        Top = 184
        Width = 147
        Height = 13
        Caption = 'Select public key length (bits): '
      end
      object groupPKA: TRadioGroup
        Left = 8
        Top = 48
        Width = 297
        Height = 121
        Caption = 'Public Key algorithm: '
        ItemIndex = 0
        Items.Strings = (
          'RSA'
          'DSA'
          'DH')
        TabOrder = 0
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 208
        Width = 297
        Height = 65
        Caption = 'Public Key Length '
        TabOrder = 1
        object ComboBox1: TComboBox
          Left = 16
          Top = 24
          Width = 145
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Text = '1024'
          Items.Strings = (
            '512'
            '768'
            '1024')
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'TabSheet5'
      ImageIndex = 4
      TabVisible = False
      object Label16: TLabel
        Left = 8
        Top = 24
        Width = 258
        Height = 13
        Caption = 'Specify contents of Subject fields for new certificate :'
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 48
        Width = 297
        Height = 217
        Caption = 'Subject parameters '
        TabOrder = 0
        object Label13: TLabel
          Left = 24
          Top = 28
          Width = 43
          Height = 13
          Caption = 'Country:'
        end
        object Label14: TLabel
          Left = 24
          Top = 60
          Width = 87
          Height = 13
          Caption = 'State or Province:'
        end
        object Label24: TLabel
          Left = 24
          Top = 92
          Width = 43
          Height = 13
          Caption = 'Locality: '
        end
        object Label25: TLabel
          Left = 24
          Top = 124
          Width = 65
          Height = 13
          Caption = 'Organization:'
        end
        object Label26: TLabel
          Left = 24
          Top = 156
          Width = 87
          Height = 13
          Caption = 'Organization Unit:'
        end
        object Label27: TLabel
          Left = 24
          Top = 188
          Width = 75
          Height = 13
          Caption = 'Common Name:'
        end
        object Edit8: TEdit
          Left = 136
          Top = 56
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit9: TEdit
          Left = 136
          Top = 88
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object Edit10: TEdit
          Left = 136
          Top = 120
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object Edit11: TEdit
          Left = 136
          Top = 152
          Width = 121
          Height = 21
          TabOrder = 4
        end
        object Edit12: TEdit
          Left = 136
          Top = 184
          Width = 121
          Height = 21
          TabOrder = 5
        end
        object MaskEdit1: TMaskEdit
          Left = 136
          Top = 24
          Width = 121
          Height = 21
          EditMask = 'll;1;_'
          MaxLength = 2
          TabOrder = 0
          Text = '  '
        end
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'TabSheet6'
      ImageIndex = 5
      TabVisible = False
      object Label7: TLabel
        Left = 8
        Top = 24
        Width = 163
        Height = 13
        Caption = 'Specify certificate validity period: '
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 48
        Width = 308
        Height = 105
        Caption = 'Validity period'
        TabOrder = 0
        object Label8: TLabel
          Left = 64
          Top = 27
          Width = 28
          Height = 13
          Alignment = taRightJustify
          Caption = 'From:'
        end
        object Label9: TLabel
          Left = 76
          Top = 62
          Width = 16
          Height = 13
          Alignment = taRightJustify
          Caption = 'To:'
        end
        object DateTimePicker1: TDateTimePicker
          Left = 104
          Top = 24
          Width = 186
          Height = 21
          Date = 37733.000000000000000000
          Time = 37733.000000000000000000
          Checked = False
          MaxDate = 73415.000000000000000000
          MinDate = 36525.000000000000000000
          TabOrder = 0
        end
        object DateTimePicker2: TDateTimePicker
          Left = 104
          Top = 58
          Width = 186
          Height = 21
          Date = 37733.000000000000000000
          Time = 37733.000000000000000000
          Checked = False
          MaxDate = 73415.000000000000000000
          MinDate = 36525.000000000000000000
          TabOrder = 1
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'TabSheet7'
      ImageIndex = 6
      TabVisible = False
      object Label10: TLabel
        Left = 8
        Top = 24
        Width = 297
        Height = 57
        AutoSize = False
        Caption =
          'The certificate will be generated now. This process can take lon' +
          'g time, depending on the key length.'
        Transparent = True
        WordWrap = True
      end
      object btnGenerate: TButton
        Left = 88
        Top = 72
        Width = 121
        Height = 23
        Caption = 'Generate'
        TabOrder = 0
        OnClick = btnGenerateClick
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'TabSheet8'
      ImageIndex = 7
      TabVisible = False
      object Label18: TLabel
        Left = 8
        Top = 24
        Width = 164
        Height = 13
        Caption = 'Certificate is being created now...'
        Transparent = True
        Visible = False
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'Binary Encoded Certificate (*.cer)|*.cer|PEM Encoded Certificate' +
      ' (*.pem)|*.pem'
    Title = 'Open certificate file'
    Left = 3
    Top = 301
  end
  object OpenDialog2: TOpenDialog
    Filter = 'Binary Encoded Key (*.der)|*.der|PEM Encoded Key (*.pem)|*.pem'
    Title = 'Open private key file'
    Left = 31
    Top = 305
  end
  object SaveDlgCert: TSaveDialog
    Filter =
      'Binary Encoded Certificate (*.cer)|*.cer|PEM Encoded Certificate' +
      ' (*.pem)|*.pem'
    Title = 'Save certificate'
    Left = 63
    Top = 301
  end
end