unit1.dfm

DES完全自己实现！能对输入字符串或者选定实现CBC

object Form1: TForm1
  Left = 257
  Top = 174
  ActiveControl = TabSheet3
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DES'#21152'/'#35299#23494
  ClientHeight = 323
  ClientWidth = 493
  Color = clBtnFace
  DockSite = True
  DragKind = dkDock
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultSizeOnly
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 493
    Height = 323
    ActivePage = TabSheet3
    Align = alClient
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25991#26412#21152'/'#35299#23494
      object Label1: TLabel
        Left = 224
        Top = 80
        Width = 42
        Height = 13
        Caption = '<=====>'
      end
      object Label2: TLabel
        Left = 24
        Top = 24
        Width = 89
        Height = 13
        AutoSize = False
        Caption = #21313#20845#36827#21046#26126#25991#65306
      end
      object Label3: TLabel
        Left = 264
        Top = 24
        Width = 89
        Height = 13
        AutoSize = False
        Caption = #21313#20845#36827#21046#23494#25991#65306
      end
      object GroupBox1: TGroupBox
        Left = 200
        Top = 152
        Width = 145
        Height = 121
        Caption = #27169#24335#36873#25321#65306
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 24
          Top = 24
          Width = 65
          Height = 17
          Caption = 'CBC'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 24
          Top = 48
          Width = 65
          Height = 17
          Caption = 'CFB-1'
          TabOrder = 1
        end
        object RadioButton3: TRadioButton
          Left = 24
          Top = 72
          Width = 65
          Height = 17
          Caption = 'CFB-8'
          TabOrder = 2
        end
        object RadioButton4: TRadioButton
          Left = 24
          Top = 96
          Width = 65
          Height = 17
          Caption = 'CFB-64'
          TabOrder = 3
        end
      end
      object Encrypt1: TButton
        Left = 376
        Top = 160
        Width = 75
        Height = 25
        Caption = #21152#23494
        Default = True
        TabOrder = 1
        OnClick = Encrypt1Click
      end
      object Decrypt1: TButton
        Left = 376
        Top = 200
        Width = 75
        Height = 25
        Caption = #35299#23494
        TabOrder = 2
        OnClick = Decrypt1Click
      end
      object Exit1: TButton
        Left = 376
        Top = 240
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 3
        OnClick = Exit1Click
      end
      object Memo1: TMemo
        Left = 32
        Top = 40
        Width = 185
        Height = 89
        TabOrder = 4
        OnKeyPress = Memo1KeyPress
      end
      object Memo2: TMemo
        Left = 272
        Top = 40
        Width = 185
        Height = 89
        TabOrder = 5
      end
      object GroupBox2: TGroupBox
        Left = 32
        Top = 152
        Width = 145
        Height = 121
        Caption = #23494#38053#65306
        TabOrder = 6
        object Label4: TLabel
          Left = 8
          Top = 24
          Width = 121
          Height = 13
          AutoSize = False
          Caption = '16'#20010#21313#20845#36827#21046#23494#38053#65306
        end
        object Label5: TLabel
          Left = 8
          Top = 72
          Width = 121
          Height = 13
          AutoSize = False
          Caption = '16'#20010#21313#20845#36827#21046'IV'#65306
        end
        object Edit1: TEdit
          Left = 16
          Top = 40
          Width = 113
          Height = 21
          MaxLength = 16
          TabOrder = 0
          Text = '133457799BBCDFF1'
          OnKeyPress = Edit1KeyPress
        end
        object Edit2: TEdit
          Left = 16
          Top = 88
          Width = 113
          Height = 21
          MaxLength = 16
          TabOrder = 1
          Text = '0123456789ABCDEF'
          OnKeyPress = Edit2KeyPress
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25991#20214#21152'/'#35299#23494
      ImageIndex = 1
      object Label6: TLabel
        Left = 136
        Top = 32
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #28304#25991#20214#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 144
        Top = 48
        Width = 121
        Height = 16
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 136
        Top = 72
        Width = 81
        Height = 16
        AutoSize = False
        Caption = #30446#26631#25991#20214#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11