Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) ScMinidriver - PIN Authentication for Smart Card or USB Token
See more ScMinidriver Examples
Demonstrates 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 ChilkatScMinidriver ' 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 Long success = scmd.AcquireContext(readerName) If (success = 0) Then Debug.Print scmd.LastErrorText Exit Sub End If ' If we are successful, the name of the currently inserted smart card is available: Dim cardName As String cardName = scmd.CardName Debug.Print "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 Long 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 Debug.Print scmd.LastErrorText Exit Sub End If If (retval > 0) Then Debug.Print "PIN authentcation failed, " & retval & " attempts remaining before the PIN is blocked." Else Debug.Print "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 = 0) Then Debug.Print scmd.LastErrorText End If ' Delete the context when finished with the card. success = scmd.DeleteContext() If (success = 0) Then Debug.Print scmd.LastErrorText End If
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.