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 - Find and Load Certificate from Smart Card or USB Token
See more ScMinidriver Examples
Demonstrates how to find and load a specific certificate located on a smart card or USB token.
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 ; You can find a cerficate using any of the following certificate parts: ; "subjectDN" -- The full distinguished name of the cert. ; "subjectDN_withTags" -- Same as above, but in a format that includes the subject part tags, such as the "CN=" in "CN=something" ; "subjectCN" -- The common name part (CN) of the certificate's subject. ; "serial" -- The certificate serial number. ; "serial:issuerCN" -- The certificate serial number + the issuer's common name, delimited with a colon char. ; These are the same certificate parts that can be retrieved by listing certificates on the smart card (or USB token). ; See List Certificates on Smart Card Example certPart.s = "subjectCN" partValue.s = "PIVKey E42D60A759D39147A26E0AF2FB1183C5" ; If the certificate is found, it is loaded into the cert object. cert.i = CkCert::ckCreate() If cert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkScMinidriver::ckFindCert(scmd,certPart,partValue,cert) If success = 0 Debug "Failed to find 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.