unit1.dfm

本书主要介绍了在WINDOWS下编写软件用到的加密解密的方法和解决方案。

object MainForm: TMainForm
  Left = 192
  Top = 133
  Width = 293
  Height = 171
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'DE_Delphi'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000007000000000000000000000000000000FF70000000000000000000
    000000000FF07700000000000000000000000000FF0607700000000000000000
    00077770F0676070777700000000000000770000067776000007700000000000
    007078806770F76088807000000000000070770677090F760780700000000000
    00707067709990F76080700000000000000006770199910F7600000000000000
    0770677011999110F76077000000000077067701111111110F76077000000007
    706770111111111110F760770000007F06F70111111111111107760F7000000F
    F06F701111111111107760FF00000000FF06F70007F0000007760FF000000000
    0FF06F70000000007767FF0000000000000006F7000000077600000000000000
    0070706F70000077608070000000000000707706F70007760780700000000000
    0070F7706F70776077707000000000000077000006F776000007700000000000
    00077770F06F6070777700000000000000000000FF0607700000000000000000
    000000000FF0770000000000000000000000000000FF70000000000000000000
    0000000000070000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFEFFFFFFFC7FFFFFF83FFFFFF01FFFFE0000FFFC00007FF800003FF800
    003FF800003FF800003FF800003FF000001FE000000FC000000780000003C000
    0007E000000FF000001FF800003FF800003FF800003FF800003FF800003FFC00
    007FFE0000FFFFF01FFFFFF83FFFFFFC7FFFFFFEFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 48
    Height = 12
    Caption = #29992#25143#21517#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 64
    Width = 48
    Height = 12
    Caption = #24207#21015#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 88
    Top = 88
    Width = 91
    Height = 14
    Caption = 'www.pediy.com'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 32
    Top = 112
    Width = 75
    Height = 20
    Caption = #30830#23450
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 80
    Top = 20
    Width = 161
    Height = 20
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    MaxLength = 20
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 80
    Top = 60
    Width = 161
    Height = 20
    ImeName = #20013#25991'('#31616#20307') - '#19975#33021#20116#31508'2002'#22810#20803#36755#20837#27861
    MaxLength = 20
    TabOrder = 2
  end
  object Button2: TButton
    Left = 176
    Top = 112
    Width = 75
    Height = 20
    Caption = #20851#38381
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
end