aboutdes.dfm

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

      #12288#12288'12,13,12,13,14,15,16,17,16,17,18,19,20,21,20,21, '
      #12288#12288'22,23,24,25,24,25,26,27,28,29,28,29,30,31,32, 1, '
      #21333#32431#25442#20301#34920' '
      #12288#12288'16,7,20,21,29,12,28,17, 1,15,23,26, 5,18,31,10, '
      #12288#12288'2,8,24,14,32,27, 3, 9,19,13,30, 6,22,11, 4,25, '
      #12288#12288#22312'f(Ri,Ki)'#31639#27861#25551#36848#22270#20013#65292'S1,S2...S8'#20026#36873#25321#20989#25968#65292#20854#21151#33021#26159#25226'6bit'
      #25968#25454#21464#20026'4bit'#25968#25454#12290#19979#38754#32473#20986#36873#25321#20989#25968'Si(i=1,2......8)'#30340#21151#33021#34920#65306' '
      #36873#25321#20989#25968'Si '
      'S1: '
      #12288#12288'14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7, '
      #12288#12288'0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8, '
      #12288#12288'4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0, '
      #12288#12288'15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13, '
      'S2: '
      #12288#12288'15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10, '
      #12288#12288'3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5, '
      #12288#12288'0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15, '
      #12288#12288'13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9, '
      'S3: '
      #12288#12288'10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8, '
      #12288#12288'13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1, '
      #12288#12288'13,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7, '
      #12288#12288'1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12, '
      'S4: '
      #12288#12288'7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15, '
      #12288#12288'13,8,11,5,6,15,0,3,4,7,2,12,1,10,14,9, '
      #12288#12288'10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4, '
      #12288#12288'3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14, '
      'S5: '
      #12288#12288'2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9, '
      #12288#12288'14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6, '
      #12288#12288'4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14, '
      #12288#12288'11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3, '
      'S6: '
      #12288#12288'12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11, '
      #12288#12288'10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8, '
      #12288#12288'9,14,15,5,2,8,12,3,7,0,4,10,1,13,11,6, '
      #12288#12288'4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13, '
      'S7: '
      #12288#12288'4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1, '
      #12288#12288'13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6, '
      #12288#12288'1,4,11,13,12,3,7,14,10,15,6,8,0,5,9,2, '
      #12288#12288'6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12, '
      'S8: '
      #12288#12288'13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7, '
      #12288#12288'1,15,13,8,10,3,7,4,12,5,6,11,0,14,9,2, '
      #12288#12288'7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8, '
      #12288#12288'2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11, '
      #22312#27492#20197'S1'#20026#20363#35828#26126#20854#21151#33021#65292#25105#20204#21487#20197#30475#21040#65306#22312'S1'#20013#65292#20849#26377'4'#34892#25968#25454#65292#21629#21517#20026'0'
      #65292'1'#12289'2'#12289'3'#34892#65307#27599#34892#26377'16'#21015#65292#21629#21517#20026'0'#12289'1'#12289'2'#12289'3'#65292'......'#65292'14'#12289'15'#21015#12290' '
      #12288#12288#29616#35774#36755#20837#20026#65306' D'#65309'D1D2D3D4D5D6 '
      #20196#65306#21015#65309'D2D3D4D5 '
      #12288#12288#34892#65309'D1D6 '
      #12288#12288#28982#21518#22312'S1'#34920#20013#26597#24471#23545#24212#30340#25968#65292#20197'4'#20301#20108#36827#21046#34920#31034#65292#27492#21363#20026#36873#25321#20989#25968'S1'#30340
      #36755#20986#12290
      #19979#38754#32473#20986#23376#23494#38053'Ki(48bit)'#30340#29983#25104#31639#27861' '
      #12288#12288#20174#23376#23494#38053'Ki'#30340#29983#25104#31639#27861#25551#36848#22270#20013#25105#20204#21487#20197#30475#21040#65306#21021#22987'Key'#20540#20026'64'#20301#65292#20294
      'DES'#31639#27861#35268#23450#65292#20854#20013#31532'8'#12289'16'#12289'......64'#20301#26159#22855#20598#26657#39564#20301#65292#19981#21442#19982'DES'#36816#31639#12290
      #25925'Key '#23454#38469#21487#29992#20301
      #25968#20415#21482#26377'56'#20301#12290#21363#65306#32463#36807#32553#23567#36873#25321#25442#20301#34920'1'#30340#21464#25442#21518#65292'Key '#30340#20301#25968#30001'64 '#20301#21464
      #25104#20102'56'#20301#65292#27492'56'#20301#20998#20026
      'C0'#12289'D0'#20004#37096#20998#65292#21508'28'#20301#65292#28982#21518#20998#21035#36827#34892#31532'1'#27425#24490#29615#24038#31227#65292#24471#21040'C1'#12289'D1'#65292#23558'C1'
      #65288'28'#20301#65289#12289'D1'#65288'28'#20301
      #65289#21512#24182#24471#21040'56'#20301#65292#20877#32463#36807#32553#23567#36873#25321#25442#20301'2'#65292#20174#32780#20415#24471#21040#20102#23494#38053'K0'#65288'48'#20301#65289#12290
      #20381#27492#31867#25512#65292#20415#21487#24471
      #21040'K1'#12289'K2'#12289'......'#12289'K15'#65292#19981#36807#38656#35201#27880#24847#30340#26159#65292'16'#27425#24490#29615#24038#31227#23545#24212#30340#24038#31227#20301
      #25968#35201#20381#25454#19979#36848#35268#21017#36827
      #34892#65306' '
      #24490#29615#24038#31227#20301#25968' '
      '1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1 '
      #12288#12288#20197#19978#20171#32461#20102'DES'#31639#27861#30340#21152#23494#36807#31243#12290'DES'#31639#27861#30340#35299#23494#36807#31243#26159#19968#26679#30340#65292#21306#21035#20165
      #20165#22312#20110#31532#19968#27425#36845#20195#26102#29992#23376#23494#38053'K15'#65292#31532#20108#27425'K14'#12289'......'#65292#26368#21518#19968#27425#29992'K0'#65292
      #31639#27861#26412#36523#24182#27809#26377#20219
      #20309#21464#21270#12290' '
      ''
      #20108#12289'DES'#31639#27861#30340#24212#29992#35823#21306#12288' '
      ''
      #12288#12288'DES'#31639#27861#20855#26377#26497#39640#23433#20840#24615#65292#21040#30446#21069#20026#27490#65292#38500#20102#29992#31351#20030#25628#32034#27861#23545'DES'#31639#27861#36827
      #34892#25915#20987#22806#65292#36824#27809#26377#21457#29616#26356#26377#25928#30340#21150#27861#12290#32780'56'#20301#38271#30340#23494#38053#30340#31351#20030#31354#38388#20026'256'#65292
      #36825#24847#21619#30528#22914#26524#19968#21488
      #35745#31639#26426#30340#36895#24230#26159#27599#19968#31186#31181#26816#27979#19968#30334#19975#20010#23494#38053#65292#21017#23427#25628#32034#23436#20840#37096#23494#38053#23601#38656#35201#23558
      #36817'2285'#24180#30340#26102#38388#65292#21487
      #35265#65292#36825#26159#38590#20197#23454#29616#30340#65292#24403#28982#65292#38543#30528#31185#23398#25216#26415#30340#21457#23637#65292#24403#20986#29616#36229#39640#36895#35745#31639#26426#21518
      #65292#25105#20204#21487#32771#34385#25226
      'DES'#23494#38053#30340#38271#24230#20877#22686#38271#19968#20123#65292#20197#27492#26469#36798#21040#26356#39640#30340#20445#23494#31243#24230#12290' '
      #12288#12288#30001#19978#36848'DES'#31639#27861#20171#32461#25105#20204#21487#20197#30475#21040#65306'DES'#31639#27861#20013#21482#29992#21040'64'#20301#23494#38053#20013#30340#20854#20013
      '56'#20301#65292#32780#31532'8'#12289'16'#12289'24'#12289'......64'#20301'8'#20010#20301#24182#26410#21442#19982'DES'#36816#31639#65292#36825#19968#28857#65292#21521#25105
      #20204#25552#20986#20102#19968#20010#24212
      #29992#19978#30340#35201#27714#65292#21363'DES'#30340#23433#20840#24615#26159#22522#20110#38500#20102'8'#65292'16'#65292'24'#65292'......64'#20301#22806#30340#20854#20313
      '56'#20301#30340#32452#21512#21464#21270'256'#25165#24471
      #20197#20445#35777#30340#12290#22240#27492#65292#22312#23454#38469#24212#29992#20013#65292#25105#20204#24212#36991#24320#20351#29992#31532'8'#65292'16'#65292'24'#65292'......64'
      #20301#20316#20026#26377#25928#25968#25454#20301#65292#32780#20351
      #29992#20854#23427#30340'56'#20301#20316#20026#26377#25928#25968#25454#20301#65292#25165#33021#20445#35777'DES'#31639#27861#23433#20840#21487#38752#22320#21457#25381#20316#29992#12290#22914
      #26524#19981#20102#35299#36825#19968#28857#65292#25226#23494
      #38053'Key'#30340'8'#65292'16'#65292'24'#65292'..... .64'#20301#20316#20026#26377#25928#25968#25454#20351#29992#65292#23558#19981#33021#20445#35777'DES'#21152#23494
      #25968#25454#30340#23433#20840#24615#65292#23545
      #36816#29992'DES'#26469#36798#21040#20445#23494#20316#29992#30340#31995#32479#20135#29983#25968#25454#34987#30772#35793#30340#21361#38505#65292#36825#27491#26159'DES'#31639#27861#22312#24212
      #29992#19978#30340#35823#21306#65292#30041#19979#20102#34987
      #20154#25915#20987#12289#34987#20154#30772#35793#30340#26497#22823#38544#24739#12290)
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
end