unit1.dfm

AES 加密解密示例

object frmMain: TfrmMain
  Left = 313
  Top = 229
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'AES Stream Encrypt/Decrypt Demo'
  ClientHeight = 290
  ClientWidth = 586
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #203#206#204#229
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 160
    Width = 48
    Height = 12
    Caption = 'Key &bit:'
  end
  object btnLoad: TButton
    Left = 8
    Top = 16
    Width = 105
    Height = 25
    Caption = 'Load'
    TabOrder = 0
    OnClick = btnLoadClick
  end
  object btnEncrypt: TButton
    Left = 8
    Top = 48
    Width = 105
    Height = 25
    Caption = 'Encrypt'
    TabOrder = 1
    OnClick = btnEncryptClick
  end
  object btnDecrypt: TButton
    Left = 8
    Top = 80
    Width = 105
    Height = 25
    Caption = 'Decrypt'
    TabOrder = 2
    OnClick = btnDecryptClick
  end
  object mem: TMemo
    Left = 120
    Top = 8
    Width = 449
    Height = 249
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object edtKey: TLabeledEdit
    Left = 8
    Top = 128
    Width = 97
    Height = 20
    EditLabel.Width = 24
    EditLabel.Height = 12
    EditLabel.Caption = '&Key:'
    MaxLength = 16
    TabOrder = 4
    Text = 'cooniur'
  end
  object cboKeyBit: TComboBox
    Left = 8
    Top = 176
    Width = 97
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 5
    Text = 'Low (128)'
    OnSelect = cboKeyBitSelect
    Items.Strings = (
      'Low (128)'
      'Medium (192)'
      'High (256)')
  end
end