modmifare.bas

Mifare SDK - VB Sample Program

Attribute VB_Name = "modMifare"
Option Explicit

Public mStatus As Integer
Public CurrentCardType As Long

Private LED_OFF As Integer
Private LED_ON As Integer

Private nRet As Long

Public Sub RedLedOnOff(nFlag As Integer)
    If nFlag = 0 Then
        Call MifUSB_SetRedLed(0)
    Else
        Call MifUSB_SetRedLed(1)
    End If
End Sub

Public Sub GreenLedOnOff(nFlag As Integer)
    If nFlag = 0 Then
        Call MifUSB_SetGreenLed(0)
    Else
        Call MifUSB_SetGreenLed(1)
    End If
End Sub

Public Sub BeepOnOff(nFlag As Integer)
    If nFlag = 0 Then
        Call MifUSB_SetBeep(0)
    Else
        Call MifUSB_SetBeep(1)
    End If
End Sub

Public Sub BeepOK()
    Dim nRet As Long
    LED_ON = 1
    LED_OFF = 0
    nRet = MifUSB_SetGreenLed_ON()
    Call MifUSB_SetBeep(1)
    DelayMSec (40)
    Call MifUSB_SetBeep(0)
    Call MifUSB_SetGreenLed(0)
End Sub

Public Sub BeepOKTwice()
    Call MifUSB_SetBeep(1)
    DelayMSec (40)
    Call MifUSB_SetBeep(0)
    DelayMSec (20)
    Call MifUSB_SetBeep(1)
    DelayMSec (40)
    Call MifUSB_SetBeep(0)
End Sub

Public Sub BeepClosed()
    Call MifUSB_SetBeep(1)
    DelayMSec (60)
    Call MifUSB_SetBeep(0)
    DelayMSec (150)
    Call MifUSB_SetBeep(1)
    DelayMSec (40)
    Call MifUSB_SetBeep(0)
    DelayMSec (20)
    Call MifUSB_SetBeep(1)
    DelayMSec (40)
    Call MifUSB_SetBeep(0)
    Call MifUSB_SetRedLed(0)
    Call MifUSB_SetGreenLed(0)
End Sub

Public Function MUSB_TransKey(ByVal intSector As Integer, ByVal strKey As String) As Boolean
    Dim nMaxSector As Integer
    Dim i As Integer
    Dim udfKey As udfTransKey
    
    If CurrentCardType = 2 Then
        nMaxSector = 39
    Else
        nMaxSector = 15
    End If
    
    MUSB_TransKey = False
    
    If intSector >= 0 And intSector <= nMaxSector Then
        udfKey.udfbyteKey(0) = Val(Hex2Dec(Mid$(strKey, 1, 2)))
        udfKey.udfbyteKey(1) = Val(Hex2Dec(Mid$(strKey, 3, 2)))
        udfKey.udfbyteKey(2) = Val(Hex2Dec(Mid$(strKey, 5, 2)))
        udfKey.udfbyteKey(3) = Val(Hex2Dec(Mid$(strKey, 7, 2)))
        udfKey.udfbyteKey(4) = Val(Hex2Dec(Mid$(strKey, 9, 2)))
        udfKey.udfbyteKey(5) = Val(Hex2Dec(Mid$(strKey, 11, 2)))
        
        nRet = MifUSB_TransKey(intSector, udfKey)
        If nRet = 0 Then
            MUSB_TransKey = True
        End If
    End If
End Function