mainunit.dfm

采用3des进行加密的源代码

object Form1: TForm1
  Left = 273
  Top = 194
  Width = 624
  Height = 357
  Caption = 'Des'#21152#23494#12289#35299#23494#31243#24207
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object grp1: TGroupBox
    Left = 16
    Top = 32
    Width = 585
    Height = 289
    Caption = #23383#31526#20018#21152#23494
    TabOrder = 0
    object lbl1: TLabel
      Left = 8
      Top = 19
      Width = 42
      Height = 12
      Caption = #23494#38053'1'#65306
    end
    object lbl2: TLabel
      Left = 180
      Top = 19
      Width = 42
      Height = 12
      Caption = #23494#38053'2'#65306
    end
    object lbl3: TLabel
      Left = 352
      Top = 20
      Width = 42
      Height = 12
      Caption = #23494#38053'3'#65306
    end
    object lbl4: TLabel
      Left = 16
      Top = 120
      Width = 24
      Height = 12
      Caption = #26126#25991
    end
    object lbl5: TLabel
      Left = 216
      Top = 112
      Width = 24
      Height = 12
      Caption = #23494#25991
    end
    object lbl6: TLabel
      Left = 424
      Top = 112
      Width = 36
      Height = 12
      Caption = #35299#23494#21518
    end
    object edt1: TEdit
      Left = 56
      Top = 16
      Width = 121
      Height = 20
      TabOrder = 0
      Text = 'abcdefgh'
    end
    object edt2: TEdit
      Left = 228
      Top = 16
      Width = 121
      Height = 20
      TabOrder = 1
      Text = '12345678'
    end
    object edt3: TEdit
      Left = 392
      Top = 16
      Width = 121
      Height = 20
      TabOrder = 2
      Text = 'abcd1234'
    end
    object chkUse3: TCheckBox
      Left = 56
      Top = 48
      Width = 153
      Height = 17
      Caption = #20351#29992#19977#37325'DES'#21152#23494#31639#27861
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object btn1: TButton
      Left = 48
      Top = 80
      Width = 75
      Height = 25
      Caption = #24320#22987#21152#23494
      TabOrder = 4
      OnClick = btn1Click
    end
    object btn2: TButton
      Left = 152
      Top = 80
      Width = 75
      Height = 25
      Caption = #24320#22987#35299#23494
      TabOrder = 5
      OnClick = btn2Click
    end
    object mmo1: TMemo
      Left = 8
      Top = 136
      Width = 185
      Height = 137
      Lines.Strings = (
        '12345678901234567890'
        '12345678901234567890'
        '12345678901234567890'
        '12345678901234567890'
        '12345678901234567890')
      TabOrder = 6
    end
    object mmo2: TMemo
      Left = 200
      Top = 136
      Width = 185
      Height = 137
      Lines.Strings = (
        'mmo2')
      TabOrder = 7
    end
    object mmo3: TMemo
      Left = 392
      Top = 136
      Width = 185
      Height = 137
      Lines.Strings = (
        'mmo3')
      TabOrder = 8
    end
    object btn3: TButton
      Left = 256
      Top = 80
      Width = 75
      Height = 25
      Caption = #28165#31354#25152#26377
      TabOrder = 9
      OnClick = btn3Click
    end
  end
end