unit1.dfm

DES完全自己实现！能对输入字符串或者选定实现CBC

        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 144
        Top = 88
        Width = 121
        Height = 16
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Directry1: TButton
        Left = 272
        Top = 32
        Width = 49
        Height = 25
        Caption = #27983#35272
        TabOrder = 0
        OnClick = Directry1Click
      end
      object Directry2: TButton
        Left = 272
        Top = 72
        Width = 49
        Height = 25
        Caption = #27983#35272
        TabOrder = 1
        OnClick = Directry2Click
      end
      object GroupBox3: TGroupBox
        Left = 32
        Top = 152
        Width = 145
        Height = 121
        Caption = #23494#38053#65306
        TabOrder = 2
        object Label10: TLabel
          Left = 8
          Top = 24
          Width = 121
          Height = 13
          AutoSize = False
          Caption = '16'#20010#21313#20845#36827#21046#23494#38053#65306
        end
        object Label11: TLabel
          Left = 8
          Top = 72
          Width = 121
          Height = 13
          AutoSize = False
          Caption = '16'#20010#21313#20845#36827#21046'IV'#65306
        end
        object Edit3: TEdit
          Left = 16
          Top = 40
          Width = 113
          Height = 21
          MaxLength = 16
          TabOrder = 0
          Text = '133457799BBCDFF1'
          OnKeyPress = Edit1KeyPress
        end
        object Edit4: TEdit
          Left = 16
          Top = 88
          Width = 113
          Height = 21
          MaxLength = 16
          TabOrder = 1
          Text = '0123456789ABCDEF'
          OnKeyPress = Edit2KeyPress
        end
      end
      object Encrypt2: TButton
        Left = 376
        Top = 160
        Width = 75
        Height = 25
        Caption = #21152#23494
        Default = True
        TabOrder = 3
        OnClick = Encrypt2Click
      end
      object Decrypt2: TButton
        Left = 376
        Top = 200
        Width = 75
        Height = 25
        Caption = #35299#23494
        TabOrder = 4
        OnClick = Decrypt2Click
      end
      object Exit2: TButton
        Left = 376
        Top = 240
        Width = 75
        Height = 25
        Caption = #36864#20986
        TabOrder = 5
        OnClick = Exit2Click
      end
      object GroupBox4: TGroupBox
        Left = 200
        Top = 152
        Width = 145
        Height = 121
        Caption = #27169#24335#36873#25321#65306
        TabOrder = 6
        object RadioButton5: TRadioButton
          Left = 24
          Top = 24
          Width = 65
          Height = 17
          Caption = 'CBC'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton6: TRadioButton
          Left = 24
          Top = 48
          Width = 65
          Height = 17
          Caption = 'CFB-1'
          TabOrder = 1
        end
        object RadioButton7: TRadioButton
          Left = 24
          Top = 72
          Width = 65
          Height = 17
          Caption = 'CFB-8'
          TabOrder = 2
        end
        object RadioButton8: TRadioButton
          Left = 24
          Top = 96
          Width = 65
          Height = 17
          Caption = 'CFB-64'
          TabOrder = 3
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20851#20110'...'
      ImageIndex = 2
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 369
        Height = 297
        Picture.Data = {
          0A544A504547496D6167650EA10200FFD8FFE000104A46494600010201012C01
          2C0000FFE10CF04578696600004D4D002A000000080007011200030000000100
          010000011A00050000000100000062011B0005000000010000006A0128000300
          0000010002000001310002000000140000007201320002000000140000008687
          690004000000010000009C000000C80000012C000000010000012C0000000141
          646F62652050686F746F73686F7020372E3000323030343A31313A3233203131
          3A35323A33380000000003A001000300000001FFFF0000A00200040000000100
          000400A003000400000001000003000000000000000006010300030000000100
          060000011A00050000000100000116011B0005000000010000011E0128000300
          00000100020000020100040000000100000126020200040000000100000BC200
          00000000000048000000010000004800000001FFD8FFE000104A464946000102
          01004800480000FFED000C41646F62655F434D0002FFEE000E41646F62650064
          8000000001FFDB0084000C08080809080C09090C110B0A0B11150F0C0C0F1518
          131315131318110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
          0C0C0C0C0C0C0C0C0C0C010D0B0B0D0E0D100E0E10140E0E0E14140E0E0E0E14
          110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
          0C0C0C0C0C0C0C0C0C0C0CFFC00011080060008003012200021101031101FFDD
          00040008FFC4013F000001050101010101010000000000000003000102040506
          0708090A0B010001050101010101010000000000000001000203040506070809
          0A0B1000010401030204020507060805030C3301000211030421123105415161
          1322718132061491A1B14223241552C16233347282D14307259253F0E1F16373
          3516A2B283264493546445C2A3743617D255E265F2B384C3D375E3F3462794A4
          85B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F637475767778797A7
          B7C7D7E7F7110002020102040403040506070706053501000211032131120441
          51617122130532819114A1B14223C152D1F0332462E1728292435315637334F1
          250616A2B283072635C2D2449354A317644555367465E2F2B384C3D375E3F346
          94A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F6273747576777
          8797A7B7C7FFDA000C03010002110311003F00CA6D6A62AF2565B4F922B68F25
          D1713CF7096A36A53152B6285314A5C49E0698A94BD3F256FD14FE8A5C4AE069
          FA49FD2F2573D1F24FE8A5C4AE068FA498D4AF1A7C937A29712B81A06AF25135
          2D034A89A51E241839C6A417BA96BCD6EB1A2C6C12D2403AF1CAD3B2B0C63AC3
          C31A5DAF90DCB91BD8E0C73DE773DCD9B2CDA3DBEA1DCFD85BFCA55F99E68E1E
          1A024657BF68B3F2DCA0CBC564C446B6EF276CD6A0EAD43A267B3A961B4B8819
          3500CB99DCC08170FF008CFCEFE5ABAEA9588648CE2251360B5E7094246321A8
          7FFFD03369446D1E4ADB69446D2B738DC6E06A0A14C52AE0A54852871A781A5E
          8A90A3C95D14A90A47825C69E068FA3E49BD1F25A1E8A5E8A5C68E073CD3E49B
          D15A1E8A63425C6AE073CD0A2685A269513422268E071BA854F6E06539825E29
          B36FC7695CAB6AA8FA8C73676ECE74047D03EDFCDDFB7DCBD04E3877B0F0EF69
          F81F6AE0B22BA859B496973246F1C8009686EBFF0056A973A6CC0F816E724284
          C78871312A774BEB54B9D22BADED2D33CB0BDB459A8FDEACAEEECC7825B1C185
          C7F5260760D8F00FA9543DAF98D261C23F7B6AEFDD5B6C8B1BF46C01EDF8386F
          6FFD527F213A138F882B39F85981F021FFD1E91B4A2369456B42335A169F1B47
          DB6B8A7C94C52AC060530C4D3913EDB5450A429F2568302906040E457B6D5F45
          2F43C95BD89F6043DC57B6D2F47C931A3C95EF4C263584BDC47B6D034289A568
          1AD0AD35B0C1226622469227DC4FB5888CA8F6DA5E94381F02B80EA343B1B22E
          6386D3458F6B89FDD2E703CFE6D8DD962F499ADC244C4C704EBC72D0E6AE43EB
          9D4CA332AC8821B7D637B882007572CFCE03FC19AD47CC4B8A20F665C0386447
          7FD8F25D5CB69E936BE012F3B06BC6EFFBF6D5D87D59C839FF0057B0321DF4C5
          5E8BF593BA9271E4FF005995B1EB85FAC9736CA2AAD8E0034976D8E4C1977FD3
          5D7FF8BCB587A1DB8CE207A196F65609D4EE654F77FD34CE567593CC2EE663C5
          01E05FFFD2E9EAB9CE739AD2D7BAB20581AF04B491B9AD78693B3737DDEE5698
          EB7E1F35E51D2BA9F55E8B7BB230DCD0DB0065AC780E658D69DEC6BFF3BDBFBE
          CF7AE9FA2FD73BEFACD5D42CADB735C48B0B7635CCFCD69DBEC6ECFA2B44C4F8
          34C648BDA875BE454F7D83B2C77755C87869A98D1590087B4EE27E1F9A80EBB3
          EC3B9A4824773DFCD36BBAFBECF40DB2C330D98E74E14FD6DBF49A02C06559F9
          0FA4DB7168A4C86B49127F3CE9B7E92D3151DB2E0481DFCD0202412DF1613C34
          27F50FEE2AB40BCC430903B8E7EE561AF70D0FDC794C202E65EAF8D67EF4BD56
          7EEB94DAF6F707EE4466C2351AA6920744F0F8B53232B1B1F1EDC9B8B9B550C7
          5B6181F45837BB985C0E5FD68EA99F67AF5BDBD3AA92F60AC07DADF6B58DDD75
          AD7FBF61FD27A35D4BB7FACF85766F41CEC6C469764595CD75B4EAF2C736D350
          9FF4ADAF62F31C6ADAEA6BB1BFA5768F04FB46ADFDD2A39CBB68BA30EFABA36F
          D65CEAD85B6BDB7B1DB7F59AD8CAED6BC9167B6CF4DD5ED739BFE12BB7F46B33
          3B3B373B0ECC4C973AF658E2D6DAFF00A6D740DDB003EDFA5B367F37F4D4CB8F
          DA9AC668C35EF2E7788F66CEDB5547DBB98EB2B796B5D6813113EDDCEF6FBB66
          ED89A647AAEE11D1C6B7A53DEEDF665171702776C9D076F7D816F748EAECE8DD
          1B2B0B7DE72B26D363722ADAC12F15B1B4D8CB7D4F63BD27EFF4B63FFE1567B8