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
(PureBasic) 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.
IncludeFile "CkScMinidriver.pb" Procedure ChilkatExample() ; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. scmd.i = CkScMinidriver::ckCreate() If scmd.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Reader names (smart card readers or USB tokens) can be discovered ; via List Readers or Find Smart Cards readerName.s = "Alcor Micro USB Smart Card Reader 0" success.i = CkScMinidriver::ckAcquireContext(scmd,readerName) If success = 0 Debug CkScMinidriver::ckLastErrorText(scmd) CkScMinidriver::ckDispose(scmd) ProcedureReturn EndIf ; If we are successful, the name of the currently inserted smart card is available: cardName.s = CkScMinidriver::ckCardName(scmd) Debug "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. pinId.s = "user" ; Change this to the PIN for your smart card. pin.s = "0000" retval.i = CkScMinidriver::ckPinAuthenticate(scmd,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 Debug CkScMinidriver::ckLastErrorText(scmd) CkScMinidriver::ckDispose(scmd) ProcedureReturn EndIf If retval > 0 Debug "PIN authentcation failed, " + Str(retval) + " attempts remaining before the PIN is blocked." Else Debug "PIN authentication successful. Your session is now authenticated and you may proceed with operations such as signing." EndIf ; ... ; ... ; ... ; You may deauthenticate the session when finished with operations that required authentication. success = CkScMinidriver::ckPinDeauthenticate(scmd,pinId) If success = 0 Debug CkScMinidriver::ckLastErrorText(scmd) EndIf ; Delete the context when finished with the card. success = CkScMinidriver::ckDeleteContext(scmd) If success = 0 Debug CkScMinidriver::ckLastErrorText(scmd) EndIf CkScMinidriver::ckDispose(scmd) ProcedureReturn EndProcedure
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.