uencoderform.dfm

工商银行限制了牡丹卡的网上交易功能.催着我们去各分行办领一张网上交易的通行证:口令卡 口令卡确实是一个好东东,但使用有点不方便.为此,我写了这个程序--你能将自己的口令保存为一个程序, 在

object EncoderForm: TEncoderForm
  Left = 186
  Top = 177
  BorderStyle = bsDialog
  Caption = 'ICBC Password Builder'
  ClientHeight = 345
  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 12
  object lbl1: TLabel
    Left = 18
    Top = 10
    Width = 489
    Height = 17
    AutoSize = False
    Caption = 'ICBC Password Builder'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    OnMouseDown = FormMouseDown
  end
  object SpeedButton1: TSpeedButton
    Left = 577
    Top = 7
    Width = 34
    Height = 23
    Flat = True
    OnClick = btn1Click
  end
  object Label10: TLabel
    Left = 192
    Top = 20
    Width = 153
    Height = 17
    AutoSize = False
    Caption = 'Password Tools.'
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnMouseDown = FormMouseDown
  end
  object pnl1: TPanel
    Left = 0
    Top = 38
    Width = 618
    Height = 307
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 20
      Width = 83
      Height = 17
      AutoSize = False
      Caption = #31243#24207#21517#31216
    end
    object Label2: TLabel
      Left = 232
      Top = 19
      Width = 83
      Height = 17
      AutoSize = False
      Caption = #20989#25968#21517#31216
    end
    object Edit1: TEdit
      Left = 85
      Top = 16
      Width = 121
      Height = 20
      Hint = #30446#30340#31243#24207#30340#26631#39064#21644#21517#31216
      MaxLength = 96
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 293
      Top = 16
      Width = 121
      Height = 20
      Hint = #22635#20889#19968#20010#30001#33521#25991#23383#31526#32452#25104#30340#20219#24847#21333#35789','#23558#26469#22312#30446#30340#31243#24207#37324#29992#20110#35843#29992#33719#21462#25968#25454'.'
      MaxLength = 96
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object Con: TPanel
      Left = 2
      Top = 36
      Width = 607
      Height = 229
      BevelOuter = bvNone
      TabOrder = 2
      object lbl2: TLabel
        Left = 13
        Top = 36
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '1'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 13
        Top = 60
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '2'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 13
        Top = 84
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '3'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 13
        Top = 108
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '4'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 13
        Top = 132
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '5'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 13
        Top = 156
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '6'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 13
        Top = 180
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '7'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 13
        Top = 204
        Width = 24
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = '8'
        Font.Charset = ANSI_CHARSET
        Font.Color = 196
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object e1: TEdit
        Tag = 1
        Left = 38
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 0
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e11: TEdit
        Tag = 11
        Left = 38
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 11
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e21: TEdit
        Tag = 21
        Left = 38
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 12
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e31: TEdit
        Tag = 31
        Left = 38
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 13
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e41: TEdit
        Tag = 41
        Left = 38
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 14
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e51: TEdit
        Tag = 51
        Left = 38
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 15
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e61: TEdit
        Tag = 61
        Left = 38
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 16
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e71: TEdit
        Tag = 71
        Left = 38
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 17
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e9: TEdit
        Tag = 9
        Left = 486
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 18
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e19: TEdit
        Tag = 19
        Left = 486
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 19
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e29: TEdit
        Tag = 29
        Left = 486
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 20
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e39: TEdit
        Tag = 39
        Left = 486
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 21
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e49: TEdit
        Tag = 49
        Left = 486
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 22
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e59: TEdit
        Tag = 59
        Left = 486
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 23
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e69: TEdit
        Tag = 69
        Left = 486
        Top = 176
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 24
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e79: TEdit
        Tag = 79
        Left = 486
        Top = 200
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 25
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e10: TEdit
        Tag = 10
        Left = 542
        Top = 32
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 26
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e20: TEdit
        Tag = 20
        Left = 542
        Top = 56
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 27
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e30: TEdit
        Tag = 30
        Left = 542
        Top = 80
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 28
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e40: TEdit
        Tag = 40
        Left = 542
        Top = 104
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 29
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e50: TEdit
        Tag = 50
        Left = 542
        Top = 128
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 30
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end
      object e60: TEdit
        Tag = 60
        Left = 542
        Top = 152
        Width = 49
        Height = 20
        MaxLength = 3
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        TabOrder = 31
        OnChange = e1Change
        OnKeyPress = e1KeyPress
      end