aboutdes.dfm

本例采用Delphi实现经典的DES加密解密算法,界面友好,功能齐全,代码书写规范,可供参考!

object Form3: TForm3
  Left = 219
  Top = 186
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20851#20110'DES'
  ClientHeight = 515
  ClientWidth = 523
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 523
    Height = 515
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      '------------------------------------------                     '
      '      '
      '  DES'#31639#27861#30340'Delphi'#23454#29616'   '
      '     '#20316#32773#65306#31243' '#20142'        '
      '    '#24464#24030#24037#31243#23398#38498'        '
      '     '#20449#30005#24037#31243#31995'         '
      '   04'#32423#32593#32476'<2>'#29677'      '
      'E-mail'#65306'[e-mail]'
      '------------------------------------------'
      #19968#12289'DES'#31639#27861' '
      ''
      #12288#12288#32654#22269#22269#23478#26631#20934#23616'1973'#24180#24320#22987#30740#31350#38500#22269#38450#37096#22806#30340#20854#23427#37096#38376#30340#35745#31639#26426#31995#32479#30340
      #25968#25454#21152#23494#26631#20934#65292#20110'1973'#24180'5'#26376'15'#26085#21644'1974'#24180'8'#26376'27'#26085#20808#21518#20004#27425#21521#20844#20247#21457#20986#20102
      #24449#27714#21152#23494#31639#27861#30340#20844
      #21578#12290#21152#23494#31639#27861#35201#36798#21040#30340#30446#30340#65288#36890#24120#31216#20026'DES '#23494#30721#31639#27861#35201#27714#65289#20027#35201#20026#20197#19979#22235#28857
      #65306' '#9734#25552#20379#39640#36136#37327#30340
      #25968#25454#20445#25252#65292#38450#27490#25968#25454
      #26410#32463#25480#26435#30340#27844#38706#21644#26410#34987#23519#35273#30340#20462#25913#65307' '
      #9734#20855#26377#30456#24403#39640#30340#22797#26434#24615#65292#20351#24471#30772#35793#30340#24320#38144#36229#36807#21487#33021#33719#24471#30340#21033#30410#65292#21516#26102#21448#35201#20415
      #20110#29702#35299#21644#25484#25569#65307' '
      #9734'DES'#23494#30721#20307#21046#30340#23433#20840#24615#24212#35813#19981#20381#36182#20110#31639#27861#30340#20445#23494#65292#20854#23433#20840#24615#20165#20197#21152#23494#23494#38053
      #30340#20445#23494#20026#22522#30784#65307' '
      #9734#23454#29616#32463#27982#65292#36816#34892#26377#25928#65292#24182#19988#36866#29992#20110#22810#31181#23436#20840#19981#21516#30340#24212#29992#12290' '
      ''
      '1977'#24180'1'#26376#65292#32654#22269#25919#24220#39041#24067#65306#37319#32435'IBM'#20844#21496#35774#35745#30340#26041#26696#20316#20026#38750#26426#23494#25968#25454#30340#27491#24335
      #25968#25454#21152#23494#26631#20934#65288'DES'#26839'Data Encryption Standard'#65289#12290' '
      '  '#30446#21069#22312#22269#20869#65292#38543#30528#19977#37329#24037#31243#23588#20854#26159#37329#21345#24037#31243#30340#21551#21160#65292'DES'#31639#27861#22312'POS'#12289'ATM'
      #12289#30913
      #21345#21450#26234#33021#21345#65288'IC'#21345#65289#12289#21152#27833#31449#12289#39640#36895#20844#36335#25910#36153#31449#31561#39046#22495#34987#24191#27867#24212#29992#65292#20197#27492#26469
      #23454#29616#20851#38190#25968
      #25454#30340#20445#23494#65292#22914#20449#29992#21345#25345#21345#20154#30340'PIN'#30340#21152#23494#20256#36755#65292'IC'#21345#19982'POS'#38388#30340#21452#21521#35748#35777#12289#37329
      #34701#20132#26131#25968#25454#21253#30340
      'MAC'#26657#39564#31561#65292#22343#29992#21040'DES'#31639#27861#12290' '
      #12288#12288'DES'#31639#27861#30340#20837#21475#21442#25968#26377#19977#20010#65306'Key'#12289'Data'#12289'Mode'#12290#20854#20013'Key'#20026'8'#20010#23383#33410#20849
      '64'#20301#65292#26159'DES'#31639#27861#30340#24037#20316#23494#38053#65307'Data'#20063#20026'8'#20010#23383#33410'64'#20301#65292#26159#35201#34987#21152#23494#25110#34987#35299
      #23494#30340#25968#25454#65307'Mode'#20026
      'DES'#30340#24037#20316#26041#24335#65292#26377#20004#31181#65306#21152#23494#25110#35299#23494#12290' '
      #12288#12288'DES'#31639#27861#26159#36825#26679#24037#20316#30340#65306#22914'Mode'#20026#21152#23494#65292#21017#29992'Key '#21435#25226#25968#25454'Data'#36827#34892#21152
      #23494#65292' '#29983#25104'Data'#30340#23494#30721#24418#24335#65288'64'#20301#65289#20316#20026'DES'#30340#36755#20986#32467#26524#65307#22914'Mode'#20026#35299#23494#65292
      #21017#29992'Key'#21435#25226#23494#30721#24418
      #24335#30340#25968#25454'Data'#35299#23494#65292#36824#21407#20026'Data'#30340#26126#30721#24418#24335#65288'64'#20301#65289#20316#20026'DES'#30340#36755#20986#32467#26524#12290
      #22312#36890#20449#32593#32476#30340#20004#31471#65292
      #21452#26041#32422#23450#19968#33268#30340'Key'#65292#22312#36890#20449#30340#28304#28857#29992'Key'#23545#26680#24515#25968#25454#36827#34892'DES'#21152#23494#65292#28982#21518#20197
      #23494#30721#24418#24335#22312#20844#20849#36890#20449
      #32593#65288#22914#30005#35805#32593#65289#20013#20256#36755#21040#36890#20449#32593#32476#30340#32456#28857#65292#25968#25454#21040#36798#30446#30340#22320#21518#65292#29992#21516#26679#30340
      'Key'#23545#23494#30721#25968#25454#36827#34892
      #35299#23494#65292#20415#20877#29616#20102#26126#30721#24418#24335#30340#26680#24515#25968#25454#12290#36825#26679#65292#20415#20445#35777#20102#26680#24515#25968#25454#65288#22914'PIN'#12289
      'MAC'#31561#65289#22312#20844#20849#36890#20449#32593
      #20013#20256#36755#30340#23433#20840#24615#21644#21487#38752#24615#12290' '
      #12288#12288#36890#36807#23450#26399#22312#36890#20449#32593#32476#30340#28304#31471#21644#30446#30340#31471#21516#26102#25913#29992#26032#30340'Key'#65292#20415#33021#26356#36827#19968#27493
      #25552#39640#25968#25454#30340#20445#23494#24615#65292#36825#27491#26159#29616#22312#37329#34701#20132#26131#32593#32476#30340#27969#34892#20570#27861#12290' '
      #12288#12288'DES'#31639#27861#35814#36848' '
      #12288#12288'DES'#31639#27861#25226'64'#20301#30340#26126#25991#36755#20837#22359#21464#20026'64'#20301#30340#23494#25991#36755#20986#22359#65292#23427#25152#20351#29992#30340#23494#38053
      #20063#26159'64'#20301#65292#25972#20010#31639#27861#30340#20027#27969#31243#22270#22914#19979#65306' '
      #20854#21151#33021#26159#25226#36755#20837#30340'64'#20301#25968#25454#22359#25353#20301#37325#26032#32452#21512#65292#24182#25226#36755#20986#20998#20026'L0'#12289'R0'#20004#37096#20998#65292
      #27599#37096#20998#21508#38271'32'#20301#65292#20854#32622#25442#35268#21017#35265#19979#34920#65306' '
      '   58,50,12,34,26,18,10,2,60,52,44,36,28,20,12,4, '
      #12288#12288'62,54,46,38,30,22,14,6,64,56,48,40,32,24,16,8, '
      #12288#12288'57,49,41,33,25,17, 9,1,59,51,43,35,27,19,11,3, '
      #12288#12288'61,53,45,37,29,21,13,5,63,55,47,39,31,23,15,7, '
      #12288#12288#21363#23558#36755#20837#30340#31532'58'#20301#25442#21040#31532#19968#20301#65292#31532'50'#20301#25442#21040#31532'2'#20301#65292'...'#65292#20381#27492#31867#25512#65292#26368
      #21518#19968#20301#26159#21407#26469#30340#31532'7'#20301#12290'L0'#12289'R0'#21017#26159#25442#20301#36755#20986#21518#30340#20004#37096#20998#65292'L0'#26159#36755#20986#30340#24038'32'
      #20301#65292'R0 '#26159#21491'32'#20301#65292
      #20363#65306#35774#32622#25442#21069#30340#36755#20837#20540#20026'D1D2D3......D64'#65292#21017#32463#36807#21021#22987#32622#25442#21518#30340#32467#26524#20026#65306
      'L0=D58D50...D8'#65307
      'R0=D57D49...D7'#12290' '
      #12288#12288#32463#36807'16'#27425#36845#20195#36816#31639#21518#12290#24471#21040'L16'#12289'R16'#65292#23558#27492#20316#20026#36755#20837#65292#36827#34892#36870#32622#25442#65292#21363
      #24471#21040#23494#25991#36755#20986#12290#36870#32622#25442#27491#22909#26159#21021#22987#32622#30340#36870#36816#31639#65292#20363#22914#65292#31532'1'#20301#32463#36807#21021#22987#32622#25442
      #21518#65292#22788#20110#31532'40'#20301#65292
      #32780#36890#36807#36870#32622#25442#65292#21448#23558#31532'40'#20301#25442#22238#21040#31532'1'#20301#65292#20854#36870#32622#25442#35268#21017#22914#19979#34920#25152#31034#65306' '
      #12288#12288'40,8,48,16,56,24,64,32,39,7,47,15,55,23,63,31, '
      #12288#12288'38,6,46,14,54,22,62,30,37,5,45,13,53,21,61,29, '
      #12288#12288'36,4,44,12,52,20,60,28,35,3,43,11,51,19,59,27, '
      #12288#12288'34,2,42,10,50,18,58 26,33,1,41, 9,49,17,57,25, '
      #25918#22823#25442#20301#34920' '
      #12288#12288'32, 1, 2, 3, 4, 5, 4, 5, 6, 7, 8, 9, 8, 9, 10,11, '