B4X

ScMinidriver - Change Smart Card PIN (or USB token PIN)

See more ScMinidriver Examples

Demonstrates how to change the PIN for a smart card or USB token. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim scmd As ChilkatScMinidriver
scmd.Initialize

'  Reader names (smart card readers or USB tokens) can be discovered
'  via List Readers or Find Smart Cards
Dim readerName As String = "Alcor Micro USB Smart Card Reader 0"
success = scmd.AcquireContext(readerName)
If success = False Then
    Log(scmd.LastErrorText)
    Return
End If


'  If successful, the name of the currently inserted smart card is available:
Log("Card name: " & scmd.CardName)

'  Change the "user" PIN.  (Typically, you'll always be using the "user" PIN.)
Dim currentPin As String = "0000"
Dim newPin As String = "1234"
Dim retval As Int = scmd.PinChange("user", currentPin, newPin)
If retval = -1 Then
    Log("The PIN is already blocked.")
    Return
End If

If retval = -2 Then
    Log("The PinChange function failed for some unanticipated reason")
    Log(scmd.LastErrorText)
    Return
End If

If retval = 0 Then
    Log("PIN successfully changed.")
Else
    Log("Current PIN is incorrect.")
    Log("Number of attempts remaining = " & retval)
End If


scmd.DeleteContext