encform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 272 行

object frmEnc: TfrmEnc
  Left = 0
  Top = 0
  BorderStyle = bsSingle
  Caption = 'frmEnc'
  ClientHeight = 502
  ClientWidth = 293
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gbGeneralEnc: TGroupBox
    Left = 8
    Top = 8
    Width = 277
    Height = 163
    Anchors = [akLeft, akTop, akRight]
    Caption = 'General'
    TabOrder = 0
    object lbEncryptionMethod: TLabel
      Left = 16
      Top = 79
      Width = 94
      Height = 13
      Caption = 'Encryption method:'
    end
    object lbEncryptedDataType: TLabel
      Left = 16
      Top = 54
      Width = 106
      Height = 13
      Caption = 'Encrypted Data Type:'
    end
    object lbMimeType: TLabel
      Left = 16
      Top = 106
      Width = 55
      Height = 13
      Caption = 'Mime Type:'
    end
    object lbExternalFile: TLabel
      Left = 16
      Top = 133
      Width = 63
      Height = 13
      Caption = 'External File:'
    end
    object sbExternalFile: TSpeedButton
      Left = 238
      Top = 129
      Width = 23
      Height = 22
      Caption = '...'
      OnClick = sbExternalFileClick
    end
    object cmbEncryptionMethod: TComboBox
      Left = 136
      Top = 75
      Width = 125
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        '3DES'
        'AES'
        'Camellia'
        'DES'
        'RC4')
    end
    object cbEncryptKey: TCheckBox
      Left = 16
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Encrypt Key'
      TabOrder = 0
      OnClick = cbEncryptKeyClick
    end
    object cmbEncryptedDataType: TComboBox
      Left = 136
      Top = 50
      Width = 125
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      OnClick = cmbEncryptedDataTypeClick
      Items.Strings = (
        'Element'
        'Content'
        'External File')
    end
    object edMimeType: TEdit
      Left = 136
      Top = 102
      Width = 125
      Height = 21
      TabOrder = 3
    end
    object edExternalFile: TEdit
      Left = 88
      Top = 129
      Width = 144
      Height = 21
      TabOrder = 4
    end
  end
  object btnOK: TButton
    Left = 124
    Top = 470
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 3
  end
  object btnCancel: TButton
    Left = 205
    Top = 470
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 4
  end
  object gbKeyInfo: TGroupBox
    Left = 8
    Top = 348
    Width = 277
    Height = 116
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Key Info'
    TabOrder = 2
    object lbKeyName: TLabel
      Left = 16
      Top = 24
      Width = 52
      Height = 13
      Caption = 'Key Name:'
    end
    object sbKeyFile: TSpeedButton
      Left = 238
      Top = 49
      Width = 23
      Height = 22
      Caption = '...'
      OnClick = sbKeyFileClick
    end
    object lbPassphrase: TLabel
      Left = 16
      Top = 82
      Width = 59
      Height = 13
      Caption = 'Passphrase:'
    end
    object lbKeyFile: TLabel
      Left = 16
      Top = 53
      Width = 41
      Height = 13
      Caption = 'Key File:'
    end
    object edKeyName: TEdit
      Left = 80
      Top = 20
      Width = 181
      Height = 21
      TabOrder = 0
    end
    object edKeyFile: TEdit
      Left = 80
      Top = 49
      Width = 152
      Height = 21
      TabOrder = 1
    end
    object edPassphrase: TEdit
      Left = 80
      Top = 78
      Width = 181
      Height = 21
      PasswordChar = '*'
      TabOrder = 2
    end
  end
  object gbKEK: TGroupBox
    Left = 8
    Top = 177
    Width = 277
    Height = 165
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Key Encryption Key (KEK)'
    TabOrder = 1
    object lbKeyTransport: TLabel
      Left = 16
      Top = 107
      Width = 72
      Height = 13
      Caption = 'Key Transport:'
    end
    object lbKeyWrap: TLabel
      Left = 16
      Top = 134
      Width = 51
      Height = 13
      Caption = 'Key Wrap:'
    end
    object rgKEK: TRadioGroup
      Left = 16
      Top = 27
      Width = 245
      Height = 68
      Anchors = [akLeft, akTop, akRight]
      Caption = 'KEK type:'
      ItemIndex = 1
      Items.Strings = (
        'Key Transport'
        'Key Wrap')
      TabOrder = 0
      OnClick = rgKEKClick
    end
    object cmbKeyTransport: TComboBox
      Left = 136
      Top = 103
      Width = 125
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        'RSA v1.5'
        'RSA-OAEP')
    end
    object cmbKeyWrap: TComboBox
      Left = 136
      Top = 130
      Width = 125
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        '3DES'
        'AES 128 bit'
        'AES 192 bit'
        'AES 256 bit')
    end
  end
  object dlgOpen: TOpenDialog
    DefaultExt = '*.*'
    Left = 56
    Top = 352
  end
  object dlgSave: TSaveDialog
    Left = 88
    Top = 352
  end
end