MultiRecipientHybridEncryptionFrm.dfm

object FrmMultiRecipientHybridEncryption: TFrmMultiRecipientHybridEncryption
  Left = 0
  Top = 0
  Caption = 'Hybrid Encryption for Multiple Recipients'
  ClientHeight = 702
  ClientWidth = 1008
  Color = clBtnFace
  Constraints.MinHeight = 720
  Constraints.MinWidth = 1000
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  OnCreate = FormCreate
  DesignSize = (
    1008
    702)
  TextHeight = 15
  object ShapeResult: TShape
    Left = 16
    Top = 643
    Width = 970
    Height = 38
    Anchors = [akLeft, akRight, akBottom]
    Shape = stRoundRect
    ExplicitTop = 1375
    ExplicitWidth = 974
  end
  object LabelAlgo: TLabel
    Left = 16
    Top = 24
    Width = 123
    Height = 15
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Symmetrical Algorithm'
  end
  object LabelResult: TLabel
    Left = 39
    Top = 652
    Width = 895
    Height = 20
    Alignment = taCenter
    Anchors = [akLeft, akRight, akBottom]
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 20
    Font.Name = 'Segoe UI'
    Font.Style = []
    ParentFont = False
    ExplicitWidth = 915
  end
  object Label1: TLabel
    Left = 472
    Top = 24
    Width = 130
    Height = 15
    Caption = 'Asymmetrical Algorithm'
  end
  object cboSymAlgo: TComboBox
    Left = 152
    Top = 21
    Width = 209
    Height = 23
    Style = csDropDownList
    ItemIndex = 1
    TabOrder = 0
    Text = 'AesCbcPkcs7'
    OnChange = cboAlgosChange
    Items.Strings = (
      'AesCbc'
      'AesCbcPkcs7'
      'AesEcb'
      'AesEcbPkcs7')
  end
  object cboSymKeySize: TComboBox
    Left = 373
    Top = 21
    Width = 69
    Height = 23
    Style = csDropDownList
    ItemIndex = 2
    TabOrder = 1
    Text = '256'
    OnChange = CheckKeySizes
    Items.Strings = (
      '128'
      '192'
      '256')
  end
  object cboAsymAlgo: TComboBox
    Left = 608
    Top = 21
    Width = 273
    Height = 23
    Style = csDropDownList
    ItemIndex = 2
    TabOrder = 2
    Text = 'RsaOaepSha256'
    OnChange = cboAlgosChange
    Items.Strings = (
      'RsaPkcs1'
      'RsaOaepSha1'
      'RsaOaepSha256'
      'RsaOaepSha384'
      'RsaOaepSha512')
  end
  object PageControl: TPageControl
    Left = 18
    Top = 65
    Width = 968
    Height = 348
    ActivePage = tabKeys
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 3
    object tabKeys: TTabSheet
      Caption = 'Key Management'
      DesignSize = (
        960
        318)
      object LabelPublicKey: TLabel
        Left = 19
        Top = 64
        Width = 55
        Height = 15
        Caption = 'Public Key'
      end
      object LabelPrivateKey: TLabel
        Left = 19
        Top = 93
        Width = 58
        Height = 15
        Caption = 'Private Key'
      end
      object Label7: TLabel
        Left = 19
        Top = 120
        Width = 52
        Height = 15
        Caption = 'Key name'
      end
      object lblKeysSize: TLabel
        Left = 638
        Top = 120
        Width = 295
        Height = 15
        Alignment = taRightJustify
        Anchors = [akTop, akRight]
        AutoSize = False
        Caption = 'Public key size / Private key size [bytes]'
        ExplicitLeft = 658
      end
      object btnCreatePersonalKeys: TButton
        Left = 19
        Top = 18
        Width = 122
        Height = 25
        Caption = 'Create Personal Key'
        TabOrder = 0
        OnClick = btnCreatePersonalKeysClick
      end
      object btnSavePersonalKeys: TButton
        Left = 19
        Top = 157
        Width = 126
        Height = 25
        Caption = 'Save Personal Keys'
        Enabled = False
        TabOrder = 1
        OnClick = btnSavePersonalKeysClick
      end
      object btnLoadKeys: TButton
        Left = 147
        Top = 18
        Width = 141
        Height = 25
        Caption = 'Load Personal Keys'
        TabOrder = 2
        OnClick = btnLoadKeysClick
      end
      object btnLoadPubKey: TButton
        Left = 294
        Top = 18
        Width = 157
        Height = 25
        Caption = 'Load Personal Public Key'
        TabOrder = 3
        OnClick = btnLoadPubKeyClick
      end
      object edtPublicKey: TEdit
        Left = 133
        Top = 61
        Width = 808
        Height = 23
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object edtPrivateKey: TEdit
        Left = 133
        Top = 88
        Width = 808
        Height = 23
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object edtKeyName: TEdit
        Left = 133
        Top = 117
        Width = 287
        Height = 23
        TabOrder = 6
      end
    end
    object tabEncryption: TTabSheet
      Caption = 'Message Encryption'
      ImageIndex = 1
      DesignSize = (
        960
        318)
      object Label2: TLabel
        Left = 16
        Top = 12
        Width = 210
        Height = 15
        Caption = 'Clear text as encryption input argument'
      end
      object Label8: TLabel
        Left = 16
        Top = 105
        Width = 89
        Height = 15
        Anchors = [akLeft, akBottom]
        Caption = 'List of Recipients'
        ExplicitTop = 117
      end
      object LabelKey: TLabel
        Left = 18
        Top = 276
        Width = 103
        Height = 15
        Anchors = [akLeft, akBottom]
        Caption = 'Created session key'
        ExplicitTop = 288
      end
      object LabelSymKeySize: TLabel
        Left = 853
        Top = 275
        Width = 85
        Height = 15
        Alignment = taRightJustify
        Anchors = [akLeft, akRight, akBottom]
        AutoSize = False
        Caption = 'Key size [bits]'
        ExplicitTop = 287
        ExplicitWidth = 105
      end
      object btnEncrypt: TButton
        Left = 16
        Top = 234
        Width = 75
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Encrypt'
        Enabled = False
        TabOrder = 0
        OnClick = btnEncryptClick
      end
      object MemoClear: TMemo
        Left = 16
        Top = 33
        Width = 925
        Height = 60
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'MemoClear')
        TabOrder = 1
      end
      object lstRecipients: TListBox
        Left = 17
        Top = 126
        Width = 925
        Height = 55
        Anchors = [akLeft, akRight, akBottom]
        ItemHeight = 15
        TabOrder = 2
      end
      object btnAddRecipient: TButton
        Left = 231
        Top = 187
        Width = 201
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Add Recipient from Public Key File'
        TabOrder = 3
        OnClick = btnAddRecipientClick
      end
      object EditSessionKey: TEdit
        Left = 152
        Top = 271
        Width = 675
        Height = 23
        Anchors = [akLeft, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object btnClearRecipients: TButton
        Left = 445
        Top = 187
        Width = 98
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Clear Recipients'
        TabOrder = 5
        OnClick = btnClearRecipientsClick
      end
      object btnAddCreatedKeyAsRecipient: TButton
        Left = 16
        Top = 187
        Width = 201
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Add created Public Key as Recipient'
        TabOrder = 6
        OnClick = btnAddCreatedKeyAsRecipientClick
      end
    end
    object TabDecryption: TTabSheet
      Caption = 'Message Decryption'
      ImageIndex = 2
      DesignSize = (
        960
        318)
      object Label5: TLabel
        Left = 17
        Top = 190
        Width = 115
        Height = 15
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Encrypted session key'
      end
      object Label6: TLabel
        Left = 17
        Top = 221
        Width = 195
        Height = 15
        Caption = 'Clear text as decryption output result'
      end
      object LabelDecryptedSessionKeySize: TLabel
        Left = 832
        Top = 190
        Width = 113
        Height = 15
        Alignment = taRightJustify
        Anchors = [akTop, akRight]
        AutoSize = False
        Caption = 'Key size [bits]'
        ExplicitLeft = 852
      end
      object Label9: TLabel
        Left = 16
        Top = 87
        Width = 106
        Height = 15
        Caption = 'Personal Private Key'
      end
      object Label10: TLabel
        Left = 16
        Top = 114
        Width = 32
        Height = 15
        Caption = 'Name'
      end
      object Label11: TLabel
        Left = 16
        Top = 60
        Width = 103
        Height = 15
        Caption = 'Personal Public Key'
      end
      object lblHintPublicKeyMissingInHeader: TLabel
        Left = 98
        Top = 154
        Width = 390
        Height = 15
        Caption = 
          'The personal public key is missing in the header of the encrypte' +
          'd message'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentFont = False
        StyleElements = [seClient, seBorder]
      end
      object btnDecrypt: TButton
        Left = 17
        Top = 150
        Width = 75
        Height = 25
        Caption = 'Decrypt'
        Enabled = False
        TabOrder = 0
        OnClick = btnDecryptClick
      end
      object EditDecryptedSessionKey: TEdit
        Left = 159
        Top = 187
        Width = 667
        Height = 23
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object MemoResult: TMemo
        Left = 17
        Top = 242
        Width = 921
        Height = 60
        Anchors = [akLeft, akTop, akRight, akBottom]
        ReadOnly = True
        TabOrder = 2
      end
      object edtPersonalPrivateKey: TEdit
        Left = 130
        Top = 82
        Width = 808
        Height = 23
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object edtPersonalName: TEdit
        Left = 130
        Top = 111
        Width = 287
        Height = 23
        TabOrder = 4
      end
      object btnLoadPersonalKey: TButton
        Left = 161
        Top = 18
        Width = 248
        Height = 25
        Caption = 'Load Personal Keys from Private Key File'
        TabOrder = 5
        OnClick = btnLoadPersonalKeyClick
      end
      object edtPersonalPublicKey: TEdit
        Left = 130
        Top = 53
        Width = 808
        Height = 23
        Anchors = [akLeft, akTop, akRight]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Segoe UI'
        Font.Pitch = fpFixed
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object btnLoadCreatedKeys: TButton
        Left = 16
        Top = 18
        Width = 131
        Height = 25
        Caption = 'Load created Keys'
        TabOrder = 7
        OnClick = btnLoadCreatedKeysClick
      end
    end
  end
  object cboAsymKeySize: TComboBox
    Left = 895
    Top = 21
    Width = 69
    Height = 23
    Style = csDropDownList
    ItemIndex = 1
    TabOrder = 0
    Text = '3072'
    OnChange = CheckKeySizes
    Items.Strings = (
      '2048'
      '3072'
      '4096')
  end
  object gpbEncryptedMessage: TGroupBox
    Left = 18
    Top = 419
    Width = 968
    Height = 206
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Encrypted Message'
    TabOrder = 5
    DesignSize = (
      968
      206)
    object Label3: TLabel
      Left = 14
      Top = 108
      Width = 42
      Height = 15
      Caption = 'Payload'
    end
    object Label4: TLabel
      Left = 14
      Top = 26
      Width = 290
      Height = 15
      Caption = 'Public key with encrypted session keys for all recipients'
    end
    object lblHeaderSize: TLabel
      Left = 617
      Top = 26
      Width = 331
      Height = 15
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 'Header Size [bytes]'
      ExplicitLeft = 621
    end
    object lblPayloadSize: TLabel
      Left = 617
      Top = 108
      Width = 335
      Height = 15
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 'Payload size [bytes]'
      ExplicitLeft = 621
    end
    object LabelIV: TLabel
      Left = 13
      Top = 170
      Width = 10
      Height = 15
      Caption = 'IV'
    end
    object btnLoadEncryptedMessage: TButton
      Left = 757
      Top = 166
      Width = 191
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Load Encrypted Message'
      TabOrder = 0
      OnClick = btnLoadEncryptedMessageClick
    end
    object btnSaveEncryptedMsg: TButton
      Left = 560
      Top = 166
      Width = 191
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Save Encrypted Message'
      TabOrder = 1
      OnClick = btnSaveEncryptedMsgClick
    end
    object edtEncryptedPayload: TEdit
      Left = 14
      Top = 129
      Width = 938
      Height = 23
      Anchors = [akLeft, akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      Text = 'edtEncryptedPayload'
    end
    object lstHeader: TListBox
      Left = 14
      Top = 47
      Width = 938
      Height = 55
      Anchors = [akLeft, akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Pitch = fpVariable
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      TabOrder = 3
    end
    object edtIV: TEdit
      Left = 29
      Top = 166
      Width = 297
      Height = 23
      TabOrder = 4
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'crypt'
    Filter = 'Encrypted message (*.crypt)|*.crypt'
    Left = 472
    Top = 592
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'crypt'
    Filter = 'Encrypted message (*.crypt)|*.crypt'
    Left = 544
    Top = 592
  end
  object OpenDialogPrivateKey: TOpenDialog
    DefaultExt = 'PrivateKey'
    Filter = 'Private Key (*.PrivateKey)|*.PrivateKey'
    Left = 760
    Top = 592
  end
  object OpenDialogPublicKey: TOpenDialog
    DefaultExt = 'PublicKey'
    Filter = 'Public Key (*.PublicKey)|*.PublicKey'
    Left = 904
    Top = 592
  end
end