sample.frm

控制mifare读卡器

         ScaleWidth      =   7155
         TabIndex        =   1
         Top             =   840
         Width           =   7215
         Begin VB.ListBox List1 
            Appearance      =   0  'Flat
            BackColor       =   &H00808000&
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   15.75
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000009&
            Height          =   6330
            ItemData        =   "sample.frx":00C0
            Left            =   0
            List            =   "sample.frx":00C2
            TabIndex        =   13
            Top             =   0
            Width           =   7455
         End
      End
      Begin VB.Label Label2 
         Caption         =   "choose sector:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   7800
         TabIndex        =   17
         Top             =   1440
         Width           =   1335
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "choose block:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   7800
         TabIndex        =   15
         Top             =   2280
         Width           =   1170
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim akey(6) As Byte
Dim bkey(6) As Byte
Dim hexkey As String * 12
Dim displaydata(8) As Byte
Dim eepromdata As String * 32
Dim hardver As String * 20
Dim libver As String * 16
Dim ser As String * 16
Dim Snr As Long
Dim Rsnr As Long
Dim data16 As String * 16
Dim data32 As String * 32
Dim databuff32 As String * 32
Dim databuff16 As String * 16
Dim rvalue As Long
Dim wvalue As Long
Dim mlrvalue As Integer
Dim mlwvalue As Integer
Dim cardmode As Integer
Dim loadmode As Integer
Dim sector As Integer
Dim address As Integer
Dim ptrdest As String * 16
Dim ptrsource As String * 16
Dim time As String * 14
Dim timebuff As String * 14

Private Sub cmdDec_Click()
    sector = CInt(cobSector.Text)
    address = sector * 4 + CInt(cobBlock.Text)
    cardmode = 1
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        List1.AddItem "Call rf_card() error. Exit!"
        Exit Sub
    End If

    st = rf_authentication(ByVal icdev, loadmode, sector)
    If st <> 0 Then
        List1.AddItem "Call rf_authentication() error.Exit!"
        Exit Sub
    End If
    
    wvalue = 10000
    st = rf_initval(ByVal icdev, address, ByVal wvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_initval() error.Exit!"
        Exit Sub
    End If

    
    st = rf_restore(ByVal icdev, address)
    If st <> 0 Then
        List1.AddItem "Call rf_restore() error.Exit!"
        Exit Sub
    End If

    st = rf_decrement(ByVal icdev, address, 520)
    If st <> 0 Then
        List1.AddItem "Call rf_decrement() error.Exit!"
        Exit Sub
    End If

    st = rf_readval(ByVal icdev, address, rvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_readval() error.Exit!"
        Exit Sub
    End If
    
    
    st = rf_beep(ByVal icdev, 20)
    If st <> 0 Then
        List1.AddItem "Call rf_beep() error.Exit!"
        Exit Sub
    End If
End Sub

Private Sub cmdInc_Click()
    sector = CInt(cobSector.Text)
    address = sector * 4 + CInt(cobBlock.Text)
    cardmode = 1
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        List1.AddItem "Call rf_card() error. Exit!"
        Exit Sub
    End If

    st = rf_authentication(ByVal icdev, loadmode, sector)
    If st <> 0 Then
        List1.AddItem "Call rf_authentication() error.Exit!"
        Exit Sub
    End If
    
    wvalue = 10000
    st = rf_initval(ByVal icdev, address, ByVal wvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_initval() error.Exit!"
        Exit Sub
    End If

    
    st = rf_restore(ByVal icdev, address)
    If st <> 0 Then
        List1.AddItem "Call rf_restore() error.Exit!"
        Exit Sub
    End If

    st = rf_increment(ByVal icdev, address, 520)
    If st <> 0 Then
        List1.AddItem "Call rf_increment() error.Exit!"
        Exit Sub
    End If

    st = rf_readval(ByVal icdev, address, rvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_readval() error.Exit!"
        Exit Sub
    End If
    
    
    st = rf_beep(ByVal icdev, 20)
    If st <> 0 Then
        List1.AddItem "Call rf_beep() error.Exit!"
        Exit Sub
    End If
End Sub

Private Sub cmdRead_Click()
    sector = CInt(cobSector.Text)
    address = sector * 4 + CInt(cobBlock.Text)
    cardmode = 1
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        st = rf_card(ByVal icdev, cardmode, Snr)
        If st <> 0 Then List1.AddItem "Call rf_card() error.Exit!": Exit Sub
    End If

    st = rf_authentication(ByVal icdev, loadmode, sector)
    If st <> 0 Then
        List1.AddItem "Call rf_authentication() error.Exit!"
        Exit Sub
    End If
    
    st = rf_read_hex(ByVal icdev, address, databuff32)
    If st <> 0 Then
        List1.AddItem "Call rf_read_hex error.Exit!"
        Exit Sub
    Else
        List1.AddItem databuff32
    End If
    
    st = rf_beep(ByVal icdev, 20)
    If st <> 0 Then
        List1.AddItem "Call rf_beep() error.Exit!"
        Exit Sub
    End If
    
End Sub

Private Sub cmdWrite_Click()
    sector = CInt(cobSector.Text)
    address = sector * 4 + CInt(cobBlock.Text)
    cardmode = 1
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        st = rf_card(ByVal icdev, cardmode, Snr)
        If st <> 0 Then List1.AddItem "Call rf_card() error.Exit!": Exit Sub
    End If

    st = rf_authentication(ByVal icdev, loadmode, sector)
    If st <> 0 Then
        List1.AddItem "Call rf_authentication() error.Exit!"
        Exit Sub
    End If
    
    data32 = "11111111111111111111111111111111"
    st = rf_write_hex(ByVal icdev, address, ByVal data32)
    If st <> 0 Then
        List1.AddItem "Call rf_write_hex() error.Exit!"
        Exit Sub
    Else
        List1.AddItem "Call rf_write_hex() Ok!"
    End If
    
    st = rf_beep(ByVal icdev, 20)
    If st <> 0 Then
        List1.AddItem "Call rf_beep() error.Exit!"
        Exit Sub
    End If
End Sub

Private Sub cmdWriteKey_Click()
    sector = CInt(cobSector.Text)
    address = sector * 4 + CInt(cobBlock.Text)
    cardmode = 1
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        st = rf_card(ByVal icdev, cardmode, Snr)
        If st <> 0 Then List1.AddItem "Call rf_card() error.Exit!": Exit Sub
    End If

    st = rf_authentication(ByVal icdev, loadmode, sector)
    If st <> 0 Then
        List1.AddItem "Call rf_authentication() error.Exit!"
        Exit Sub
    End If
    
    akey(0) = &HFF
    akey(1) = &HFF
    akey(2) = &HFF
    akey(3) = &HFF
    akey(4) = &HFF
    akey(5) = &HFF

    bkey(0) = &HFF
    bkey(1) = &HFF
    bkey(2) = &HFF
    bkey(3) = &HFF
    bkey(4) = &HFF
    bkey(5) = &HFF
    st = rf_changeb3(ByVal icdev, sector, akey(0), 0, 0, 0, 1, 0, bkey(0))
    If st <> 0 Then
        List1.AddItem "Call rf_changeb3() error.exit!"
        Exit Sub
    Else
        List1.AddItem "Write Key No." & sector & "  OK!"
    End If
    
    st = rf_beep(ByVal icdev, 20)
    If st <> 0 Then
        List1.AddItem "Call rf_beep() error.Exit!"
        Exit Sub
    End If
End Sub

Private Sub Form_Load()
    icdev = -1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    quit
End Sub

Private Sub M1_comm_Click()
    address = 9
    sector = 2
    cardmode = 1
    st = rf_card(ByVal icdev, cardmode, Snr)
    If st <> 0 Then
        st = rf_card(ByVal icdev, cardmode, Snr)
        If st <> 0 Then List1.AddItem "Call rf_card() error.Exit!": Exit Sub
    End If

    st = rf_authentication(ByVal icdev, loadmode, sector)
    If st <> 0 Then
        List1.AddItem "Call rf_authentication() error.Exit!"
        Exit Sub
    End If
 
    data32 = "11111111111111111111111111111111"
    st = rf_write_hex(ByVal icdev, address, ByVal data32)
    If st <> 0 Then
        List1.AddItem "Call rf_write_hex() error.Exit!"
        Exit Sub
    End If

    st = rf_check_writehex(ByVal icdev, Snr, loadmode, address, data32)
    If st <> 0 Then
        List1.AddItem "Call rf_check_writehex() error.Exit!"
        Exit Sub
    End If

    st = rf_read_hex(ByVal icdev, address, databuff32)
    If st <> 0 Then
        List1.AddItem "Call rf_read_hex error.Exit!"
        Exit Sub
    End If

    'Modify the keys and some control bits
    'Keep the following paramerters and keys same as the default
    akey(0) = &HFF
    akey(1) = &HFF
    akey(2) = &HFF
    akey(3) = &HFF
    akey(4) = &HFF
    akey(5) = &HFF

    bkey(0) = &HFF
    bkey(1) = &HFF
    bkey(2) = &HFF
    bkey(3) = &HFF
    bkey(4) = &HFF
    bkey(5) = &HFF
    st = rf_changeb3(ByVal icdev, 2, akey(0), 0, 0, 0, 1, 0, bkey(0))
    If st <> 0 Then
        List1.AddItem "Call rf_changeb3() error.exit!"
        Exit Sub
    End If

    'Value Operation
    wvalue = 10000
    st = rf_initval(ByVal icdev, address + 1, ByVal wvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_initval() error.Exit!"
        Exit Sub
    End If

    st = rf_restore(ByVal icdev, address + 1)
    If st <> 0 Then
        List1.AddItem "Call rf_restore() error.Exit!"
        Exit Sub
    End If

    st = rf_transfer(ByVal icdev, address)
    If st <> 0 Then
        List1.AddItem "Call rf_transfer() error.Exit!"
        Exit Sub
    End If
 
    st = rf_readval(ByVal icdev, address, rvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_readval() error.Exit!"
        Exit Sub
    End If

    st = rf_increment(ByVal icdev, address + 1, 520)
    If st <> 0 Then
        List1.AddItem "Call rf_increment() error.Exit!"
        Exit Sub
    End If

    st = rf_decrement(ByVal icdev, address + 1, 520)
    If st <> 0 Then
        List1.AddItem "Call rf_decrement() error.Exit!"
        Exit Sub
    End If

    st = rf_readval(ByVal icdev, address + 1, rvalue)
    If st <> 0 Then
        List1.AddItem "Call rf_readval() error.Exit!"
        Exit Sub
    End If

    st = rf_halt(ByVal icdev)
    If st <> 0 Then
        List1.AddItem "Call rf_halt() error.Exit!"
        Exit Sub
    End If
    List1.AddItem "Card Functions OK!"
End Sub

Private Sub M1_device_Click()