unitdes.dfm

单钥密码算法 AES DES IDEA LZW RC5

object DesForm: TDesForm
  Left = 222
  Top = 157
  Width = 704
  Height = 521
  Caption = 'DES'#21152#23494#35299#23494#28436#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object MainPage: TPageControl
    Left = 0
    Top = 0
    Width = 696
    Height = 494
    ActivePage = TabSheet3
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    TabWidth = 100
    object TabSheet1: TTabSheet
      Caption = #25991#20214#21152#23494
      DesignSize = (
        688
        466)
      object Label1: TLabel
        Left = 32
        Top = 29
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #28304#25991#20214
      end
      object Label2: TLabel
        Left = 18
        Top = 67
        Width = 97
        Height = 13
        AutoSize = False
        Caption = #30446#26631#25991#20214
      end
      object Label31: TLabel
        Left = 44
        Top = 99
        Width = 39
        Height = 13
        AutoSize = False
        Caption = #23494#30721
      end
      object txtSourcePath: TEdit
        Left = 80
        Top = 24
        Width = 524
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
      end
      object txtDestPath: TEdit
        Left = 80
        Top = 64
        Width = 524
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
      end
      object CmdEncrypt: TBitBtn
        Left = 459
        Top = 434
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #21152#23494
        ModalResult = 4
        TabOrder = 2
        OnClick = CmdEncryptClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
          33333333333F8888883F33330000324334222222443333388F3833333388F333
          000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
          F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
          223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
          3338888300003AAAAAAA33333333333888888833333333330000333333333333
          333333333333333333FFFFFF000033333333333344444433FFFF333333888888
          00003A444333333A22222438888F333338F3333800003A2243333333A2222438
          F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
          22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
          33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object CmdUncode: TBitBtn
        Left = 534
        Top = 434
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #35299#23494
        ModalResult = 4
        TabOrder = 3
        OnClick = CmdUncodeClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          04000000000068010000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
          33333333333F8888883F33330000394334999999443333388F3833333388F333
          000039944999999999433338F8833FFFFF338F33000039999997777799943338
          F333F88888F338F3000039999973333379994338F33F8333338F338F00003999
          9933333337994338F33833333338F38F000039999993333337444338FFFF8F33
          3338888300003777777733333333333888888833333333330000333333333333
          333333333333333333FFFFFF000033333333333344444433FFFF333333888888
          000037444333333799999438888F333338F33338000037994333333379999438
          F38F3333338333380000337994333334499994338338FFFFF883333800003379
          99444449999994338F3388888333FF3800003337999999999977943338FF3333
          33FF88F80000333377999999773373333388FFFFFF8833830000333333777777
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object cmdClose: TBitBtn
        Left = 610
        Top = 434
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = #36864#20986
        TabOrder = 4
        Kind = bkClose
      end
      object cmdSourcePath: TButton
        Left = 611
        Top = 23
        Width = 65
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #27983#35272
        TabOrder = 5
        OnClick = cmdSourcePathClick
      end
      object cmdDestPath: TButton
        Left = 611
        Top = 63
        Width = 65
        Height = 25
        Anchors = [akTop, akRight]
        Caption = #27983#35272
        TabOrder = 6
        OnClick = cmdDestPathClick
      end
      object txtPassWord: TEdit
        Left = 80
        Top = 96
        Width = 97
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        MaxLength = 8
        TabOrder = 7
      end
    end
    object TabSheet2: TTabSheet
      Caption = #23494#38053
      ImageIndex = 1
      object Label3: TLabel
        Left = 96
        Top = 16
        Width = 41
        Height = 13
        AutoSize = False
        Caption = #39640#31471
      end
      object Label4: TLabel
        Left = 480
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '7-0'
      end
      object Label5: TLabel
        Left = 144
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '63-56'
      end
      object Label6: TLabel
        Left = 192
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '55-48'
      end
      object Label7: TLabel
        Left = 240
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '47-40'
      end
      object Label8: TLabel
        Left = 288
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '39-32'
      end
      object Label9: TLabel
        Left = 336
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '31-24'
      end
      object Label10: TLabel
        Left = 384
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '23-16'
      end
      object Label11: TLabel
        Left = 432
        Top = 0
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '15-8'
      end
      object Label12: TLabel
        Left = 520
        Top = 16
        Width = 41
        Height = 13
        AutoSize = False
        Caption = #20302#31471
      end
      object Label13: TLabel
        Left = 42
        Top = 46
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#19968
      end
      object Label14: TLabel
        Left = 42
        Top = 70
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#20108
      end
      object Label15: TLabel
        Left = 42
        Top = 94
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#19977
      end
      object Label16: TLabel
        Left = 42
        Top = 118
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#22235
      end
      object Label17: TLabel
        Left = 42
        Top = 142
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#20116
      end
      object Label18: TLabel
        Left = 42
        Top = 166
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#20845
      end
      object Label19: TLabel
        Left = 42
        Top = 190
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#19971
      end
      object Label20: TLabel
        Left = 42
        Top = 214
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#20843
      end
      object Label21: TLabel
        Left = 42
        Top = 238
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#20061
      end
      object Label22: TLabel
        Left = 42
        Top = 262
        Width = 64
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313
      end
      object Label23: TLabel
        Left = 26
        Top = 286
        Width = 71
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313#19968
      end
      object Label24: TLabel
        Left = 26
        Top = 310
        Width = 79
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313#20108
      end
      object Label25: TLabel
        Left = 26
        Top = 334
        Width = 79
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313#19977
      end
      object Label26: TLabel
        Left = 26
        Top = 358
        Width = 79
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313#22235
      end
      object Label27: TLabel
        Left = 26
        Top = 382
        Width = 79
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313#20116
      end
      object Label28: TLabel
        Left = 26
        Top = 406
        Width = 79
        Height = 13
        AutoSize = False
        Caption = #23376#23494#38053#21313#20845
      end
      object txtSubKey8: TEdit
        Left = 136
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 0
        Text = '1'
        OnEnter = txtSubKeyEnter
        OnExit = txtSubKeyExit
      end
      object txtSubKey7: TEdit
        Left = 184
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 1
        Text = '1'
        OnEnter = txtSubKeyEnter
        OnExit = txtSubKeyExit
      end
      object txtSubKey6: TEdit
        Left = 232
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 2
        Text = '1'
        OnEnter = txtSubKeyEnter
        OnExit = txtSubKeyExit
      end
      object txtSubKey5: TEdit
        Left = 280
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 3
        Text = '1'
        OnEnter = txtSubKeyEnter
        OnExit = txtSubKeyExit
      end
      object txtSubKey4: TEdit
        Left = 328
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 4
        Text = '1'
        OnEnter = txtSubKeyEnter
        OnExit = txtSubKeyExit
      end
      object txtSubKey3: TEdit
        Left = 376
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 5
        Text = '1'
        OnEnter = txtSubKeyEnter
        OnExit = txtSubKeyExit
      end
      object txtSubKey2: TEdit
        Left = 424
        Top = 16
        Width = 41
        Height = 21
        MaxLength = 3
        TabOrder = 6
        Text = '1'