unit1.dfm

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

object Form1: TForm1
  Left = 210
  Top = 195
  Width = 574
  Height = 243
  Caption = #21152#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
    000B3B3B3B33330000BB3B3000000000B3B3B3B3333333030BB3303300000003
    3330000000000030BB0B3B3330000003333B8B8383333033BBBB333330000000
    3333333333330B3B3BB33B3B3B0000000B3B3B3333330B3B33B3BBB3330000B3
    B3B3B3B333330B3B333BBB333B0003333000000000000B3B33BBBBB3B3000300
    000B3B3B33330B3B333BB0B33B000030B3B3B3B3B3330B3B333BBBB3B3000303
    3333333333330B33333BBB3B3B000003000B888383830BB33333333BB0000000
    33330000000000B33B3333BB300000033000B3B3B3B3B0BB33330BBB00000000
    0B3B3B3B3B3B3B0BB33B3BB00000000033333333333333300B33330000000000
    3000BBB838383830003000000000000003333380000000000000000000000000
    3338000B3B3B3B3B3B000000000000000330B3B3B3B3B3B3B3B3300000000000
    0003333FFFFFF33333333300000000000003088BBBB3B3B3B300030000000000
    000033333BBBBB3B3B33300000000000000333B3B3BBBBB3B3B3330000000000
    0000333B3BBBBBBB333330000000000000000003B3B3BFFFFB00000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFE003C1FF000000FE0000007C0000003C0000003C0000001C00000018000
    00010000000100000001000000010000000180000003C0000003C0000007E000
    000FE000001FE00000FFE00000FFE000007FF000003FF800001FFC00001FFC00
    001FFC00001FFE00003FFF00007FFFE003FFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 96
    Top = 56
    Width = 66
    Height = 13
    Caption = #24320#22987#20301#32622#65306'  '
  end
  object Label2: TLabel
    Left = 272
    Top = 56
    Width = 51
    Height = 13
    Caption = #38388#38548#25968#65306' '
  end
  object Label3: TLabel
    Left = 48
    Top = 96
    Width = 39
    Height = 13
    Caption = #26126#25991#65306' '
  end
  object Label4: TLabel
    Left = 48
    Top = 136
    Width = 39
    Height = 13
    Caption = #23494#25991#65306' '
  end
  object Label5: TLabel
    Left = 64
    Top = 24
    Width = 63
    Height = 13
    Caption = #21152#23494#35268#21017#65306' '
  end
  object Edit1: TEdit
    Left = 88
    Top = 88
    Width = 337
    Height = 21
    MaxLength = 20
    TabOrder = 0
  end
  object JM: TButton
    Left = 440
    Top = 88
    Width = 75
    Height = 25
    Caption = #21152#23494
    Default = True
    TabOrder = 1
    OnClick = JMClick
  end
  object Edit2: TEdit
    Left = 88
    Top = 128
    Width = 425
    Height = 21
    TabOrder = 2
  end
  object Edit3: TEdit
    Left = 160
    Top = 48
    Width = 41
    Height = 21
    ReadOnly = True
    TabOrder = 3
    Text = '0'
  end
  object Edit4: TEdit
    Left = 328
    Top = 48
    Width = 41
    Height = 21
    ReadOnly = True
    TabOrder = 4
    Text = '0'
  end
  object UpDown1: TUpDown
    Left = 201
    Top = 48
    Width = 16
    Height = 21
    Associate = Edit3
    Min = 1
    Max = 20
    Position = 1
    TabOrder = 5
  end
  object UpDown2: TUpDown
    Left = 369
    Top = 48
    Width = 16
    Height = 21
    Associate = Edit4
    Max = 20
    TabOrder = 6
  end
end