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 - Load Certificate from Smart Card or USB Token by Index
See more ScMinidriver Examples
Demonstrates how to load a certificate located on a smart card or USB token by key container index.
IncludeFile "CkCert.pb" 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 = "SCM Microsystems Inc. SCR33x USB Smart Card Reader 0" success.i = CkScMinidriver::ckAcquireContext(scmd,readerName) If success = 0 Debug CkScMinidriver::ckLastErrorText(scmd) CkScMinidriver::ckDispose(scmd) ProcedureReturn EndIf ; If successful, the name of the currently inserted smart card is available: Debug "Card name: " + CkScMinidriver::ckCardName(scmd) ; If desired, perform regular PIN authentication with the smartcard. ; For more details about smart card PIN authentication, see the Smart Card PIN Authentication Example retval.i = CkScMinidriver::ckPinAuthenticate(scmd,"user","000000") If retval <> 0 Debug "PIN Authentication failed." EndIf cert.i = CkCert::ckCreate() If cert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; We can pass a specific key container index, or -1 to locate the 1st non-empty container containing a certificate and private key. keyContainerIndex.i = -1 ; keySpec can be "kex" or "sig" to indicate the key-exchange or signature position within the container. ; keySpec can also be "any" to accept either position, with preference given to the "sig" position if both are occupied. keySpec.s = "any" success = CkScMinidriver::ckGetCert(scmd,keyContainerIndex,keySpec,cert) If success = 0 Debug "Failed to load the certificate." Else Debug "Successfully loaded the cert object from the smart card / USB token." ; Note: When successful, the cert object is internally linked to the ScMinidriver object's authenticated session. ; The cert object can now be used to sign or do other cryptographic operations that occur on the smart card / USB token. ; If your application calls PinDeauthenticate or DeleteContext, the cert will no longer be able to sign on the smart card ; because the smart card ScMinidriver session will no longer be authenticated or deleted. EndIf ; ... ; ... ; ... ; When finished with operations that required authentication, you may if you wish, deauthenticate the session. success = CkScMinidriver::ckPinDeauthenticate(scmd,"user") 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) CkCert::ckDispose(cert) ProcedureReturn EndProcedure
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.