mianunit.dfm

这就是著名的DES加密算法的源代码

object Form1: TForm1
  Left = 235
  Top = 183
  Width = 505
  Height = 456
  Caption = 'DES'#21152#23494#19982#35299#23494
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 497
    Height = 422
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 3
      Top = 2
      Width = 391
      Height = 415
      Align = alCustom
      TabOrder = 0
      object GroupBox2: TGroupBox
        Left = 3
        Top = 8
        Width = 385
        Height = 105
        Caption = #35831#36755#20837#23383#31526
        TabOrder = 0
        object Memo1: TMemo
          Left = 4
          Top = 16
          Width = 377
          Height = 85
          Lines.Strings = (
            '{************************************}'
            '{*       DES'#21152#23494#30340'Delphi'#23454#29616'        *}'
            '{*          '#20316#32773#65306#31243'  '#20142'            *}'
            '{*           '#20449#30005#24037#31243#31995'             *}'
            '{*        04'#32423#32593#32476#12296'2'#12297#29677'           *}'
            '{*    E-mail'#65306'[e-mail]       *}'
            '{************************************}')
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object GroupBox3: TGroupBox
        Left = 2
        Top = 188
        Width = 385
        Height = 105
        Caption = #23494#25991
        TabOrder = 1
        object Memo2: TMemo
          Left = 4
          Top = 16
          Width = 377
          Height = 85
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object GroupBox4: TGroupBox
        Left = 2
        Top = 300
        Width = 385
        Height = 105
        Caption = #26126#25991
        TabOrder = 2
        object Memo3: TMemo
          Left = 4
          Top = 16
          Width = 377
          Height = 85
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object Button1: TButton
      Left = 408
      Top = 40
      Width = 73
      Height = 37
      Caption = #21152' '#23494
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 408
      Top = 116
      Width = 73
      Height = 37
      Caption = #35299' '#23494
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 408
      Top = 192
      Width = 73
      Height = 37
      Caption = #28165' '#23631
      TabOrder = 3
      OnClick = Button3Click
    end
    object GroupBox5: TGroupBox
      Left = 7
      Top = 120
      Width = 385
      Height = 61
      Caption = #35831#36755#20837#23494#38053
      TabOrder = 4
      object Edit1: TEdit
        Left = 4
        Top = 24
        Width = 377
        Height = 24
        TabOrder = 0
        Text = 'ChengLiang'
      end
    end
    object Button4: TButton
      Left = 412
      Top = 272
      Width = 69
      Height = 37
      Caption = 'DES'
      TabOrder = 5
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 412
      Top = 380
      Width = 69
      Height = 25
      Caption = #20851#20110'DES'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = Button5Click
    end
  end
end