unit1.dfm

使用的是BCB5开发的一个简单的3DES的DEMO

object Form1: TForm1
  Left = 490
  Top = 185
  Width = 613
  Height = 382
  Caption = 'Triple DES Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    1111111111111111111FFFFFF0000011111111111111111111118FFFF8000111
    1111111111111111111118FFFF7001111111111111111111111117FFFF811111
    11111111111111111111118FFFF111111118F8111118F8111111117FFFF71111
    111FFF11111FFF111111111FFFF81111117FFF71117FFF7111111118FFFF1111
    118FFF81118FFF8111111117FFFF111111FFFFF111FFFFF111111111FFFF1111
    17FF8FF717FF8FF711111111FFFF111118FF7FF818FF7FF8111111118FFF1111
    1FFF1FFF1FFF1FFF111111118FFF11117FF818FF7FF818FF711111118FFF1111
    8FF717FF8FF717FF81111111FFFF1111FFF111FFFFF111FFF1111111FFFF1117
    FF81118FFF81118FF7111117FFFF1118FF71117FFF71117FF811111FFFFF111F
    FF11111FFF11111FFF11117FFFF8111FF811111FFF111118FF1111FFFFF11111
    1111111111111111111118FFFF711111111111111111111111118FFFF8111111
    11111111111111111118FFFFF1111111111111111111111118FFFFF811111111
    1111111111111178FFFFFF71111111111111111111178FFFFFFF811111111111
    1111111178FFFFFFFF87111111111111117788FFFFFFFFFF87111111111108FF
    FFFFFFFFFFFF871111111111111008FFFFFFFF88771111111111111111100011
    111111111111111111111111110000001111111111111111111111110000F000
    0007C00000038000000180000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000008000000180000001C0000003F000000F}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object eInputFile: TEdit
    Left = 16
    Top = 32
    Width = 385
    Height = 21
    TabOrder = 0
  end
  object eDecryptedFile: TEdit
    Left = 16
    Top = 112
    Width = 385
    Height = 21
    TabOrder = 1
  end
  object btnOpenInputFile: TButton
    Left = 424
    Top = 32
    Width = 145
    Height = 25
    Caption = 'Open File To Encrypt'
    TabOrder = 2
    OnClick = btnOpenInputFileClick
  end
  object btnOpenDecryptFile: TButton
    Left = 424
    Top = 112
    Width = 145
    Height = 25
    Caption = 'Open File To Decrypt'
    TabOrder = 3
    OnClick = btnOpenDecryptFileClick
  end
  object btnEncrypt: TButton
    Left = 80
    Top = 224
    Width = 169
    Height = 41
    Caption = 'Encrypt File'
    TabOrder = 4
    OnClick = btnEncryptClick
  end
  object btnDecrypt: TButton
    Left = 328
    Top = 224
    Width = 169
    Height = 41
    Caption = 'Decrypt File'
    TabOrder = 5
    OnClick = btnDecryptClick
  end
  object OpenDlg: TOpenDialog
    Left = 192
    Top = 280
  end
end