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) Load PFX (PKCS#12) and List CertificatesLoads a PFX file (.pfx, .p12) and iterates over the certificates found within.
IncludeFile "CkCert.pb" IncludeFile "CkCertStore.pb" Procedure ChilkatExample() certStore.i = CkCertStore::ckCreate() If certStore.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i pfxPath.s = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx" pfxPassword.s = "test" success = CkCertStore::ckLoadPfxFile(certStore,pfxPath,pfxPassword) If success <> 1 Debug CkCertStore::ckLastErrorText(certStore) CkCertStore::ckDispose(certStore) ProcedureReturn EndIf numCerts.i = CkCertStore::ckNumCertificates(certStore) Debug "PFX contains " + Str(numCerts) + " certificates" i.i = 0 While i < numCerts cert.i = CkCertStore::ckGetCertificate(certStore,i) Debug Str(i) + ": (Common Name) " + CkCert::ckSubjectCN(cert) Debug Str(i) + ": (Serial Number) " + CkCert::ckSerialNumber(cert) Debug Str(i) + ": (Distinguished Name) " + CkCert::ckSubjectDN(cert) CkCert::ckDispose(cert) i = i + 1 Wend CkCertStore::ckDispose(certStore) ProcedureReturn EndProcedure |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.