unit1.dfm

实现DEA加密和解密算法

object Form1: TForm1
  Left = 203
  Top = 114
  Width = 680
  Height = 480
  Caption = 'AES'#25991#20214#21152#23494#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 672
    Height = 446
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 1
      Width = 105
      Height = 24
      Align = alCustom
      Caption = #35774#32622#36873#39033#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 152
      Top = 0
      Width = 513
      Height = 241
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 1
        Width = 169
        Height = 21
        Align = alCustom
        Caption = #36873#25321#21152#23494'/'#35299#23494#25991#20214':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #21326#25991#20013#23435
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 17
        Top = 213
        Width = 144
        Height = 19
        Align = alCustom
        Caption = #24744#29616#22312#36873#25321#30340#25991#20214#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #21326#25991#20013#23435
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 168
        Top = 216
        Width = 83
        Height = 13
        Caption = 'F:\aes\goodaes3'
      end
      object FileListBox1: TFileListBox
        Left = 280
        Top = 72
        Width = 201
        Height = 129
        FileEdit = Edit2
        ItemHeight = 13
        Mask = '*.txt'
        TabOrder = 0
      end
      object DirectoryListBox1: TDirectoryListBox
        Left = 24
        Top = 72
        Width = 201
        Height = 129
        DirLabel = Label4
        FileList = FileListBox1
        ItemHeight = 16
        TabOrder = 1
      end
      object DriveComboBox1: TDriveComboBox
        Left = 24
        Top = 32
        Width = 201
        Height = 19
        DirList = DirectoryListBox1
        TabOrder = 2
      end
      object FilterComboBox1: TFilterComboBox
        Left = 280
        Top = 32
        Width = 201
        Height = 21
        FileList = FileListBox1
        Filter = #25991#26412#25991#20214'|*.txt|'#25152#26377#25991#20214'|*.*'
        TabOrder = 3
      end
      object Edit2: TEdit
        Left = 400
        Top = 216
        Width = 89
        Height = 21
        TabOrder = 4
        Text = '*.txt'
      end
    end
    object Panel4: TPanel
      Left = 152
      Top = 264
      Width = 513
      Height = 161
      TabOrder = 1
      object RadioGroup2: TRadioGroup
        Left = 280
        Top = 8
        Width = 201
        Height = 145
        Caption = #23494#38053#38271#24230#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #21326#25991#20013#23435
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          '128bit'#65288'16'#23383#33410#65289
          '192bit'#65288'24'#23383#33410#65289
          '256bit'#65288'32'#23383#33410#65289)
        ParentFont = False
        TabOrder = 0
      end
      object RadioGroup1: TRadioGroup
        Left = 24
        Top = 8
        Width = 201
        Height = 145
        Caption = #20449#24687#22359#38271#24230#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #21326#25991#20013#23435
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          '128bit'#65288'16'#23383#33410#65289
          '192bit'#65288'24'#23383#33410#65289
          '256bit'#65288'32'#23383#33410#65289)
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 145
    Height = 446
    Align = alCustom
    TabOrder = 1
    object Label7: TLabel
      Left = 24
      Top = 8
      Width = 98
      Height = 23
      Caption = #21152#23494'/'#35299#23494':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
    end
    object Button3: TButton
      Left = 24
      Top = 104
      Width = 97
      Height = 41
      Caption = #21152#23494
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button3Click
    end
    object Button2: TButton
      Left = 24
      Top = 256
      Width = 97
      Height = 41
      Caption = #35299#23494
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
  end
end