![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) ScMinidriver - PIN Authentication for Smart Card or USB TokenSee more ScMinidriver ExamplesDemonstrates how to PIN authenticate with a connected smart card or USB token.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim scmd As New Chilkat.ScMinidriver // Reader names (smart card readers or USB tokens) can be discovered // via List Readers or Find Smart Cards Dim readerName As String readerName = "Alcor Micro USB Smart Card Reader 0" Dim success As Boolean success = scmd.AcquireContext(readerName) If (success = False) Then System.DebugLog(scmd.LastErrorText) Return End If // If we are successful, the name of the currently inserted smart card is available: Dim cardName As String cardName = scmd.CardName System.DebugLog("Card name: " + cardName) // Perform regular PIN authentication with the smartcard. // If authentication is successful, then the ScMinidriver session is authenticated and // operations such as signing are permissible. // The pin ID can be "user", "admin", or a number "3" through "7" (passed as a string). // The possible pin ID's for a given smartcard are obtained via the GetCardProperties method. // See Get Smart Card Properties for sample code. // You should generally use the "user" pin ID. You would only use the other pin ID's for very specific purposes. Dim pinId As String pinId = "user" // Change this to the PIN for your smart card. Dim pin As String pin = "0000" Dim retval As Int32 retval = scmd.PinAuthenticate(pinId,pin) // The return value is 0 for success. // If the retval is greater than 0, it is the number of attempts remaining before the PIN is blocked. // If the retval equals -1, then something else went wrong and you should consult the LastErrorText. If (retval < 0) Then System.DebugLog(scmd.LastErrorText) Return End If If (retval > 0) Then System.DebugLog("PIN authentcation failed, " + Str(retval) + " attempts remaining before the PIN is blocked.") Else System.DebugLog("PIN authentication successful. Your session is now authenticated and you may proceed with operations such as signing.") End If // ... // ... // ... // You may deauthenticate the session when finished with operations that required authentication. success = scmd.PinDeauthenticate(pinId) If (success = False) Then System.DebugLog(scmd.LastErrorText) End If // Delete the context when finished with the card. success = scmd.DeleteContext() If (success = False) Then System.DebugLog(scmd.LastErrorText) End If |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.