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
(Lianja) PKCS11 Find All Certificates on Smart Card or USB TokenSee more PKCS11 ExamplesSample code showing how to examine all the certificates on a smart card or USB token. Note: This example requires Chilkat v9.5.0.88 or later.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems. loPkcs11 = createobject("CkPkcs11") loPkcs11.SharedLibPath = "aetpkss1.dll" llSuccess = loPkcs11.Initialize() if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 return endif // We need to call Discover to get the slot ID. // (A slot is a smart card reader or USB token.) llOnlyTokensPresent = .T. loJson = createobject("CkJsonObject") llSuccess = loPkcs11.Discover(llOnlyTokensPresent,loJson) if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loJson return endif // Make sure we have at least one slot. if (loJson.SizeOfArray("slot") <= 0) then ? "No occuplied slots." release loPkcs11 release loJson return endif // Get the ID of the 1st slot lnSlotID = loJson.IntOf("slot[0].id") // Open a session. llReadWrite = .T. llSuccess = loPkcs11.OpenSession(lnSlotID,llReadWrite) if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loJson return endif // Make it an authenticated session by calling Login. // // If we don't authenticate, then we won't be able to see the private keys, and thus // we won't know which certificates have an associated private key stored on the smart card. // The smart card PIN is passed to the Login method. // userType 1 indicates a "Normal User". lnUserType = 1 lcPin = "0000" llSuccess = loPkcs11.Login(lnUserType,lcPin) if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loJson return endif // Call FindAllCerts to find all certificates on the smart card or USB token. llSuccess = loPkcs11.FindAllCerts() if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loJson return endif // The NumCerts property is set by FindAllCerts. lnNumCerts = loPkcs11.NumCerts ? "Number of certs: " + str(lnNumCerts) loCert = createobject("CkCert") i = 0 do while i < lnNumCerts loPkcs11.GetCert(i,loCert) lcPrivateKeyNote = "" if (loCert.HasPrivateKey() = .T.) then lcPrivateKeyNote = "(has private key)" endif ? str(i) + ": " + lcPrivateKeyNote + " " + loCert.SubjectDN ? str(i) + ": issuer: " + loCert.IssuerDN ? "----" i = i + 1 enddo // Revert to an unauthenticated session by calling Logout. llSuccess = loPkcs11.Logout() if (llSuccess = .F.) then ? loPkcs11.LastErrorText llSuccess = loPkcs11.CloseSession() release loPkcs11 release loJson release loCert return endif // When finished, close the session. // It is important to close the session (memory leaks will occur if the session is not properly closed). llSuccess = loPkcs11.CloseSession() if (llSuccess = .F.) then ? loPkcs11.LastErrorText release loPkcs11 release loJson release loCert return endif ? "Success." release loPkcs11 release loJson release loCert |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.