unitmain.dfm

我写的利用IDEA算法的加密程序

        CFB6BDBF5E311C64493BC6CED2CFCDCCC8C8C8CACACACACACACACACACACACACC
        9900C8C8C8C7C7C7CDCBCAEBEBEB767E813D464AD4DDDFC4CAC9B0B0AFC2BFBF
        C0C6C95B2E1864483DC6CED1CECDCCC7C8C8CACACACACACACACACA669900D3D2
        D2D7D7D7ABB3B759595889452DA259338C422FB59197DADDDFDBE2E1E2E0DFCB
        D0D35B2E1A64493CC6CED3CFCDCCC8C8C8CACACACACACAFF6600A3A4A5666463
        60331CA34C1EF86D37FB89539B3100871800953D38BA9599D1D5D7E3E9E8C6CB
        CD5C2E1B63483AC6CED2CECDCCC8C8C8CACACA9966004C61687C290CE97036CA
        622FF37543EF8B5A9735039532009529008717008C3329A07C80C0C4C5BECBCD
        62341E604438C8CED0CFCDCCC7C8C80066004F6870A64524EC723DEB7D4CF27C
        49E97442DE7340A84716902C009A3600962C00891700842B2389676CA0AAAF6D
        47325C4742C5CCD1CFCECDCC330052656D924828FF945BFF713CC3602EC45F2D
        D56F3CF5804DC25B29973403912C009C3904982D008312008D352A6D5456530D
        00674C3CC2C6C8333300D3D2D2777776674535AD4C22FE6F38D76532BE602ECB
        602DE47B48F1804EBC58258F29009530009C3A03982C007E13008B1B046A0B00
        686464FF0000C8C8C8D7D7D8B4BBBE7378795C3D2DE46C3BFA6E37CA6633C15F
        2DD76936F27B48D46D3BA03D0B8E28009835029D39039832008623022B1B1666
        0000CACACAC6C6C6D0CFCED8D6D5B9C3C76A5C548B4121DD6531E06834C36230
        C05E2BDE7643F17C49B65325922E00942E00933000AA3C01531400000000CACA
        CACACACAC9C9C9C7C7C7D1CFCDC7CBCD8E9799534944CB6339FB6B34E36B37C1
        5F2CC96331ED834FD66A3997360A9D34029B2C00542C18880000CACACACACACA
        CACACACACACAC9C9C9CCCACAD5D3D2D2D6DA6D6C6A6F412BC85628FC6D38DA67
        34CB6330EA733EFF925B9F41134B1D0CA9AFB2000000CACACACACACACACACACA
        CACACACACACACACAC8C8C8C9C8C8D5D6D7ABB2B55C6465AC5B37E55623D15321
        963B1976422B6C6561A5ACAED5D4D4027400CACACACACACACACACACACACACACA
        CACACACACACACACACACAC8C7C7D0CFCEDBDCDD8788886A625D6E5F5B8F8E8EAE
        B8BCCFCFCFD4D2D2C7C7C7440000}
      Layout = blGlyphLeft
      Spacing = 4
      ResHandle = 0
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton4Click
    end
    object suiProgressBar1: TsuiProgressBar
      Left = 48
      Top = 216
      Width = 241
      Height = 12
      UIStyle = DeepBlue
      CaptionColor = clBlack
      ShowCaption = True
      SmartShowCaption = False
      Max = 100
      Min = 0
      Position = 0
      Orientation = suiHorizontal
      BorderColor = clBlack
      Color = 15263976
      Picture.Data = {
        07544269746D61705E040000424D5E0400000000000036040000280000000100
        00000A0000000100080000000000280000000000000000000000000100000000
        000000000000FFFFFF00A04A4400AF686300FFFFFF0000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000020000000200000002000000020000000200000002000000020000000200
        00000200000003000000}
    end
    object Memo1: TsuiMemo
      Left = 8
      Top = 72
      Width = 281
      Height = 137
      BorderColor = clBlack
      VScrollBar = suiScrollBar2
      HScrollBar = suiScrollBar1
      Lines.Strings = (
        #35831#36873#25321#25805#20316'...')
      ScrollBars = ssBoth
      TabOrder = 6
    end
    object suiScrollBar2: TsuiScrollBar
      Left = 271
      Top = 73
      Width = 16
      Height = 120
      LineButton = 0
      Orientation = suiVertical
      UIStyle = DeepBlue
      Max = 0
      Min = 0
      Position = 0
      SmallChange = 1
      LargeChange = 10
      PageSize = 10
      Color = 16119285
      Enabled = False
    end
    object suiScrollBar1: TsuiScrollBar
      Left = 9
      Top = 191
      Width = 264
      Height = 16
      LineButton = 0
      Orientation = suiHorizontal
      UIStyle = DeepBlue
      Max = 0
      Min = 0
      Position = 0
      SmallChange = 1
      LargeChange = 10
      PageSize = 10
      Color = 16119285
      Enabled = False
    end
  end
  object suiMainMenu1: TsuiMainMenu
    OwnerDraw = True
    UIStyle = DeepBlue
    MenuItemHeight = 21
    SeparatorHeight = 5
    BarWidth = 26
    BarColor = 13554646
    Color = clWhite
    SeparatorColor = 8684164
    SelectedBorderColor = 10504772
    SelectedColor = 10504772
    SelectedFontColor = clWhite
    FontColor = clBlack
    BorderColor = clBlack
    FlatMenu = False
    FontName = 'MS Sans Serif'
    FontSize = 8
    FontCharset = DEFAULT_CHARSET
    UseSystemFont = True
    Left = 224
    Top = 32
    object N1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N2: TMenuItem
        Caption = #25991#20214#21152#23494'(&E)'
        OnClick = suiButton1Click
      end
      object N3: TMenuItem
        Caption = #25991#20214#35299#23494'(&D)'
        OnClick = suiButton2Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #25991#20214#20999#21106'(&C)'
        OnClick = suiButton3Click
      end
      object N9: TMenuItem
        Caption = #25991#20214#21512#24182'(&A)'
        OnClick = suiButton4Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Caption = #36864#20986'(&X)'
        ShortCut = 16472
        OnClick = N11Click
      end
    end
    object N4: TMenuItem
      Caption = #30028#38754'(&V)'
      object MenuDeepBlue: TMenuItem
        Caption = 'DeepBlue'
        Checked = True
        GroupIndex = 1
        OnClick = MenuDeepBlueClick
      end
      object MenuWinXp: TMenuItem
        Caption = 'WinXP'
        GroupIndex = 1
        OnClick = MenuWinXpClick
      end
      object MenuMacOS: TMenuItem
        Caption = 'MacOS'
        GroupIndex = 1
        OnClick = MenuMacOSClick
      end
      object MenuBlueGlass: TMenuItem
        Caption = 'BlueGlass'
        GroupIndex = 1
        OnClick = MenuBlueGlassClick
      end
      object MenuProtein: TMenuItem
        Caption = 'Protein'
        GroupIndex = 1
        OnClick = MenuProteinClick
      end
    end
    object N13: TMenuItem
      Caption = #24110#21161'(&H)'
      object N14: TMenuItem
        Caption = #20351#29992#25163#20876'(&H)'
        ShortCut = 112
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Caption = #20851#20110#36731#26494#21152#23494'(&A)...'
        OnClick = N16Click
      end
    end
  end
end