unit1.dfm

用Delphi写的一个简单的加密解密算法

object Form1: TForm1
  Left = 385
  Top = 260
  Width = 447
  Height = 195
  Caption = #35299#23494
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000330000000000000000000000033303303303300000000000000
    0003303330333003003300000000000000033003330330002333000000000000
    0030000033003033333000000000000033333330000003330003330000000803
    33333333333333300233330000000F033333333333333302333BB03000004F83
    33333333333333333BB003BB00004FF3333333333333B33BB0033BBB00004FF3
    33333333B3BB3BB0033BBBB000004FF83B333B3B3B3BBBB03BBBBB0300F04FFF
    33B3B3B3BBBBBBBBBBBB00330FF04FFF8B3B3333BBBBBBBBBB0033330FF044FF
    F8BBB03033BBBBB330333330FFF444FFF8BB0BB3003B330003333330FF44444F
    F88B3BBB300000033333B33FFF44444FFF3BB0BBB3000333B33BB38FF4444444
    FF003B0BB333333BBBBBB3FFF44444444FF00030BBBBBBBBBBBBBBFF44444444
    0000000303BBB3300000BFF444444400000000000000000000000FF444440000
    0000000000000000000000444444000000000000000000000000000044440000
    0000000000000000000000000444000000000000000000000000000000040000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFF1FFFFF8003FFFC0000FFF800007FF800007FE000003F0000
    001F0000001F0000000F00000007000000070000000000000000000000000000
    00000000000000000000000000000000000000000000000000000000000000C0
    00000FE01F003FFFFF80FFFFFFC0FFFFFFF0FFFFFFF8FFFFFFFEFFFFFFFF}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 40
    Width = 66
    Height = 13
    Caption = #24320#22987#20301#32622#65306'  '
  end
  object Label2: TLabel
    Left = 192
    Top = 40
    Width = 54
    Height = 13
    Caption = #38388#38548#25968#65306'  '
  end
  object Label3: TLabel
    Left = 24
    Top = 72
    Width = 39
    Height = 13
    Caption = #23494#25991#65306' '
  end
  object Label4: TLabel
    Left = 24
    Top = 112
    Width = 39
    Height = 13
    Caption = #26126#25991#65306' '
  end
  object Label5: TLabel
    Left = 24
    Top = 16
    Width = 63
    Height = 13
    Caption = #21152#23494#35268#21017#65306' '
  end
  object Edit1: TEdit
    Left = 64
    Top = 64
    Width = 313
    Height = 21
    MaxLength = 20
    TabOrder = 0
  end
  object Button1: TButton
    Left = 336
    Top = 32
    Width = 75
    Height = 25
    Caption = #35299#23494
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 112
    Top = 32
    Width = 41
    Height = 21
    ReadOnly = True
    TabOrder = 2
    Text = '0'
  end
  object Edit3: TEdit
    Left = 240
    Top = 32
    Width = 41
    Height = 21
    ReadOnly = True
    TabOrder = 3
    Text = '0'
  end
  object Edit4: TEdit
    Left = 64
    Top = 104
    Width = 313
    Height = 21
    ReadOnly = True
    TabOrder = 4
  end
  object UpDown1: TUpDown
    Left = 153
    Top = 32
    Width = 16
    Height = 21
    Associate = Edit2
    Min = 1
    Max = 20
    Position = 1
    TabOrder = 5
  end
  object UpDown2: TUpDown
    Left = 281
    Top = 32
    Width = 16
    Height = 21
    Associate = Edit3
    Max = 20
    TabOrder = 6
  end
end