unit1.dfm

des 3des加密delphi例子；标准的des,3des算法

object Form1: TForm1
  Left = 288
  Top = 220
  Width = 685
  Height = 565
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 16
  object lbl1: TLabel
    Left = 16
    Top = 104
    Width = 48
    Height = 16
    Caption = #23494#38053'1:'
  end
  object lbl2: TLabel
    Left = 16
    Top = 266
    Width = 48
    Height = 16
    Caption = #26126#25991#65306
  end
  object lbl3: TLabel
    Left = 16
    Top = 351
    Width = 48
    Height = 16
    Caption = #23494#25991#65306
  end
  object lbl4: TLabel
    Left = 16
    Top = 436
    Width = 96
    Height = 16
    Caption = #35299#23494#21518#26126#25991#65306
  end
  object lbl5: TLabel
    Left = 288
    Top = 40
    Width = 75
    Height = 21
    Caption = 'DES'#21152#23494
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object lbl6: TLabel
    Left = 16
    Top = 181
    Width = 48
    Height = 16
    Caption = #23494#38053'2:'
  end
  object btn1: TButton
    Left = 464
    Top = 96
    Width = 81
    Height = 33
    Caption = 'DES'#21152#23494
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = btn1Click
  end
  object edt2: TEdit
    Left = 104
    Top = 177
    Width = 345
    Height = 24
    ImeName = 'Chinese (Simplified) - Microsoft Pinyin IME 2007'
    MaxLength = 16
    TabOrder = 1
    Text = '87654321'
  end
  object edt3: TEdit
    Left = 104
    Top = 262
    Width = 345
    Height = 24
    ImeName = 'Chinese (Simplified) - Microsoft Pinyin IME 2007'
    TabOrder = 2
    Text = 'yxyDES_test'
  end
  object btn4: TButton
    Left = 568
    Top = 96
    Width = 81
    Height = 33
    Caption = 'DES'#35299#23494
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = btn4Click
  end
  object edt4: TEdit
    Left = 104
    Top = 432
    Width = 457
    Height = 24
    ImeName = 'Chinese (Simplified) - Microsoft Pinyin IME 2007'
    TabOrder = 4
  end
  object btn2: TButton
    Left = 464
    Top = 173
    Width = 81
    Height = 33
    Caption = '3DES'#21152#23494
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = btn2Click
  end
  object edt1: TEdit
    Left = 104
    Top = 100
    Width = 345
    Height = 24
    ImeName = 'Chinese (Simplified) - Microsoft Pinyin IME 2007'
    MaxLength = 16
    TabOrder = 6
    Text = '12345678'
  end
  object btn3: TButton
    Left = 568
    Top = 173
    Width = 81
    Height = 33
    Caption = '3DES'#35299#23494
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = btn3Click
  end
  object edt5: TEdit
    Left = 104
    Top = 347
    Width = 457
    Height = 24
    ImeName = 'Chinese (Simplified) - Microsoft Pinyin IME 2007'
    TabOrder = 8
  end
  object btn5: TButton
    Left = 496
    Top = 264
    Width = 75
    Height = 33
    Caption = 'btn5'
    TabOrder = 9
    OnClick = btn5Click
  end
end