Chip 2001 August - Disc 3/chip_20018103_hu.iso/honosito/internet/the_bat.exe/thebat.exe/0/RCDATA/TPGPKEYGENFORM/TPGPKEYGENFORM.txt

Text File | 2001-06-19 | 15.7 KB | 654 lines

object PgpKeyGenForm: TPgpKeyGenForm
  Left = 231
  Top = 147
  HelpContext = 14005
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'OpenPGP Key Generation Wizard'
  ClientHeight = 298
  ClientWidth = 432
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 248
    Width = 409
    Height = 9
    Shape = bsBottomLine
  end
  object bBack: TButton
    Left = 32
    Top = 264
    Width = 105
    Height = 25
    HelpContext = 12006
    Caption = '<   &Back'
    Enabled = False
    TabOrder = 3
    OnClick = bBackClick
  end
  object bNext: TButton
    Left = 144
    Top = 264
    Width = 105
    Height = 25
    HelpContext = 12005
    Caption = '&Next   >'
    Default = True
    TabOrder = 0
    OnClick = bNextClick
  end
  object bCancel: TButton
    Left = 264
    Top = 264
    Width = 75
    Height = 25
    HelpContext = 12016
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
  end
  object bHelp: TButton
    Left = 344
    Top = 264
    Width = 75
    Height = 25
    HelpContext = 12016
    Cancel = True
    Caption = 'Help'
    TabOrder = 2
    OnClick = bHelpClick
  end
  object Book: TNotebook
    Left = 0
    Top = 0
    Width = 432
    Height = 249
    Align = alTop
    PageIndex = 5
    TabOrder = 4
    OnMouseMove = BookMouseMove
    object TPage
      Left = 0
      Top = 0
      Caption = '0'
      object Label15: TLabel
        Left = 16
        Top = 56
        Width = 393
        Height = 41
        AutoSize = False
        Caption = 'Your key pair will also be used to sign messages.'
        WordWrap = True
      end
      object Label16: TLabel
        Left = 16
        Top = 16
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'In order for other people to send you secure messages, you must ' +
          'generate a key pair.'
        WordWrap = True
      end
      object Label25: TLabel
        Left = 16
        Top = 152
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'If you would like more information on what a key pair is and how' +
          ' this all works, click the Help button, below.'
        WordWrap = True
      end
      object Label26: TLabel
        Left = 16
        Top = 96
        Width = 393
        Height = 57
        AutoSize = False
        Caption =
          'A key pair consists of a "Public Key," and a "Private Key."  The' +
          ' public key should be given to everyone you know (The Bat! has f' +
          'acilities to assist in this).  The private key should be kept ab' +
          'solutely secret.'
        WordWrap = True
      end
      object Label27: TLabel
        Left = 16
        Top = 192
        Width = 393
        Height = 41
        AutoSize = False
        Caption = 'Otherwise, choose Next to continue.'
        WordWrap = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '1'
      object Label17: TLabel
        Left = 16
        Top = 16
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'What name and email address should be associated with this key p' +
          'air?'
        WordWrap = True
      end
      object Label18: TLabel
        Left = 16
        Top = 56
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'By listing your name and email address here, you let your corres' +
          'pondents know that the key they are using belongs to you.'
        WordWrap = True
      end
      object Label19: TLabel
        Left = 16
        Top = 112
        Width = 48
        Height = 13
        Caption = '&Full name:'
      end
      object Label20: TLabel
        Left = 16
        Top = 168
        Width = 71
        Height = 13
        Caption = '&E-mail address:'
      end
      object eName: TEdit
        Left = 16
        Top = 128
        Width = 209
        Height = 21
        TabOrder = 0
      end
      object eMail: TEdit
        Left = 16
        Top = 184
        Width = 209
        Height = 21
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '2'
      object Label21: TLabel
        Left = 16
        Top = 8
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'How large a key pair do you wish to generate?  As a rule, larger' +
          ' keys are more secure, but slower. For most applications, 1024 b' +
          'it keys are quite sufficient. '
        WordWrap = True
      end
      object Label22: TLabel
        Left = 16
        Top = 48
        Width = 393
        Height = 57
        AutoSize = False
        Caption =
          'Keys larger than 1024 or 2048 bits may not be interpreted by som' +
          'e OpenPGP implementations. Keys smaller than 768 bits are recomm' +
          'ended for testing purposes only and are not considered secure by' +
          ' today'#39's standards.'
        WordWrap = True
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 104
        Width = 393
        Height = 144
        Caption = 'Key pair size'
        TabOrder = 0
        object rb768: TRadioButton
          Tag = 768
          Left = 8
          Top = 16
          Width = 113
          Height = 17
          Caption = '768'
          TabOrder = 0
          OnClick = rbKeySizeClick
        end
        object rb1024: TRadioButton
          Tag = 1024
          Left = 8
          Top = 36
          Width = 113
          Height = 17
          Caption = '1024'
          Checked = True
          TabOrder = 1
          TabStop = True
        end
        object rb1536: TRadioButton
          Tag = 1536
          Left = 8
          Top = 56
          Width = 113
          Height = 17
          Caption = '1536'
          TabOrder = 2
          OnClick = rbKeySizeClick
        end
        object rb2048: TRadioButton
          Tag = 2048
          Left = 8
          Top = 76
          Width = 113
          Height = 17
          Caption = '2048'
          TabOrder = 3
          OnClick = rbKeySizeClick
        end
        object rbCustomKS: TRadioButton
          Tag = -1
          Left = 8
          Top = 96
          Width = 153
          Height = 17
          Caption = 'Custom (384-4096 bits)'
          TabOrder = 4
          OnClick = rbKeySizeClick
        end
        object eCustomKS: TEdit
          Left = 27
          Top = 116
          Width = 70
          Height = 21
          Enabled = False
          MaxLength = 4
          TabOrder = 5
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '3'
      object Label11: TLabel
        Left = 16
        Top = 16
        Width = 393
        Height = 33
        AutoSize = False
        Caption =
          'You should set your key pair to automatically expire within a ce' +
          'rtain amount of time.'
        WordWrap = True
      end
      object Label13: TLabel
        Left = 16
        Top = 48
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'When your key pair expires, you will no longer be able to use it' +
          ' for encrypting or signing.  However, it will still decrypt and ' +
          'verify. You should then generate a new key.'
        WordWrap = True
      end
      object Label14: TLabel
        Left = 16
        Top = 96
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'Once you generate your key pair, you will not be able to change ' +
          'its expiration setting.'
        WordWrap = True
      end
      object gbKeyExp: TGroupBox
        Left = 16
        Top = 136
        Width = 393
        Height = 105
        Caption = 'Key Expiration'
        TabOrder = 0
        object llExpDMY: TLabel
          Left = 96
          Top = 48
          Width = 64
          Height = 13
          Caption = '(dd/mm/yyyy)'
          Enabled = False
        end
        object cbExpNever: TRadioButton
          Left = 8
          Top = 76
          Width = 369
          Height = 17
          Caption = 'Key pair ne&ver expires (not recommended)'
          TabOrder = 2
          OnClick = cbExpClick
        end
        object cbExpOn: TRadioButton
          Left = 8
          Top = 20
          Width = 225
          Height = 17
          Caption = 'Key pair &expires on'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = cbExpClick
        end
        object eExp: TMaskEdit
          Left = 28
          Top = 44
          Width = 61
          Height = 21
          Enabled = False
          EditMask = '00/00/0000'
          MaxLength = 10
          TabOrder = 1
          Text = '  .  .    '
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '4'
      object Sub4NB: TNotebook
        Left = 0
        Top = 0
        Width = 432
        Height = 249
        Align = alClient
        PageIndex = 1
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'Default'
          object Label28: TLabel
            Left = 14
            Top = 14
            Width = 393
            Height = 41
            AutoSize = False
            Caption =
              'Your private key will be protected by a passphrase.  It is impor' +
              'tant that you do not write this passphrase down.'
            WordWrap = True
          end
          object Label29: TLabel
            Left = 14
            Top = 54
            Width = 393
            Height = 41
            AutoSize = False
            Caption =
              'Your passphrase should be at least 8 characters long and should ' +
              'contain non-alphabetic characters.'
            WordWrap = True
          end
          object Label39: TLabel
            Left = 14
            Top = 94
            Width = 393
            Height = 49
            AutoSize = False
            Caption =
              'Passphrase quality is based on a mix of the length of your passp' +
              'hrase and the number of character set variations.  Capitalizing ' +
              'some letters and not others along with using punctuation marks a' +
              'nd numbers will result in a higher quality rating.'
            WordWrap = True
          end
          object Label30: TLabel
            Left = 14
            Top = 142
            Width = 58
            Height = 13
            Caption = 'Passphrase:'
          end
          object Label31: TLabel
            Left = 14
            Top = 190
            Width = 61
            Height = 13
            Caption = 'Confirmation:'
          end
          object ePass: TEdit
            Left = 14
            Top = 158
            Width = 393
            Height = 21
            MaxLength = 70
            PasswordChar = '*'
            TabOrder = 0
          end
          object eConf: TEdit
            Left = 14
            Top = 204
            Width = 393
            Height = 21
            MaxLength = 70
            PasswordChar = '*'
            TabOrder = 1
          end
        end
        object TPage
          Left = 0
          Top = 0
          Caption = 'First'
          object Label1: TLabel
            Left = 14
            Top = 14
            Width = 393
            Height = 41
            AutoSize = False
            Caption = 'Your private key will be stored in a Smart Card.'
            WordWrap = True
          end
          object Label2: TLabel
            Left = 16
            Top = 184
            Width = 393
            Height = 41
            AutoSize = False
            Caption = 'Press Next to continue.'
            Visible = False
            WordWrap = True
          end
          object Label3: TLabel
            Left = 14
            Top = 54
            Width = 393
            Height = 41
            AutoSize = False
            Caption =
              ' If there is another Private Key on Smart Card, it will be overw' +
              'ritten.'
            WordWrap = True
          end
          object Label4: TLabel
            Left = 14
            Top = 94
            Width = 393
            Height = 49
            AutoSize = False
            Caption = 'Make sure that the reader is ready and the Smart Card is on.'
            WordWrap = True
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '5'
      object Label32: TLabel
        Left = 16
        Top = 16
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'In order to generate a key pair, The Bat! needs a certain amount' +
          ' of random data.'
        WordWrap = True
      end
      object Label33: TLabel
        Left = 16
        Top = 56
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'Please type or move your mouse around until the progress bar bel' +
          'ow fills up.'
        WordWrap = True
      end
      object Label34: TLabel
        Left = 156
        Top = 104
        Width = 113
        Height = 13
        Caption = 'Random data collected:'
      end
      object Label35: TLabel
        Left = 16
        Top = 152
        Width = 14
        Height = 13
        Caption = '0%'
      end
      object Label36: TLabel
        Left = 384
        Top = 152
        Width = 26
        Height = 13
        Caption = '100%'
      end
      object lDataCollected: TLabel
        Left = 16
        Top = 192
        Width = 185
        Height = 41
        AutoSize = False
        Caption = 'Press Next to continue.'
        Visible = False
        WordWrap = True
      end
      object bProgress: TProgressBar
        Left = 16
        Top = 128
        Width = 393
        Height = 16
        Min = 0
        Max = 100
        TabOrder = 0
      end
      object bFromFile: TButton
        Left = 240
        Top = 216
        Width = 171
        Height = 25
        Caption = 'Load Random Data'
        TabOrder = 1
        OnClick = bFromFileClick
      end
      object bLoadKeyMaterial: TButton
        Left = 240
        Top = 184
        Width = 171
        Height = 25
        Caption = 'Load Key Material'
        TabOrder = 2
        OnClick = bLoadKeyMaterialClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '6'
      object Label37: TLabel
        Left = 16
        Top = 16
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'The Bat! is now generating your new OpenPGP key pair.  This coul' +
          'd take several minutes.  Please be patient.'
        WordWrap = True
      end
      object lProgress: TLabel
        Left = 16
        Top = 232
        Width = 3
        Height = 13
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = '7'
      object Label38: TLabel
        Left = 16
        Top = 16
        Width = 393
        Height = 41
        AutoSize = False
        Caption = 'Congratulations!  You have just generated a OpenPGP key pair!'
        WordWrap = True
      end
      object Label40: TLabel
        Left = 16
        Top = 56
        Width = 393
        Height = 41
        AutoSize = False
        Caption =
          'You will now be able to receive secure messages and sign documen' +
          'ts.'
        WordWrap = True
      end
      object lClickFinish: TLabel
        Left = 16
        Top = 96
        Width = 393
        Height = 41
        AutoSize = False
        WordWrap = True
      end
    end
  end
end