![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Load Certificate from PFX (PKCS#12)Loads a digital certificate (and private key, if available) from a PFX file.(also known as PKCS#12) Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Cert string ls_PfxFilename string ls_PfxPassword oleobject loo_PrivKey string ls_PemPassword string ls_PemPath li_Success = 0 loo_Cert = create oleobject li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert") if li_rc < 0 then destroy loo_Cert MessageBox("Error","Connecting to COM object failed") return end if // Load from the PFX file ls_PfxFilename = "/Users/chilkat/testData/pfx/chilkat_ssl_pwd_is_test.pfx" ls_PfxPassword = "test" // A PFX typically contains certificates in the chain of authentication. // The Chilkat cert object will choose the certificate w/ // private key farthest from the root authority cert. // To access all the certificates in a PFX, use the // Chilkat certificate store object instead. li_Success = loo_Cert.LoadPfxFile(ls_PfxFilename,ls_PfxPassword) if li_Success = 0 then Write-Debug loo_Cert.LastErrorText destroy loo_Cert return end if // Get some information about the digital certificate, // then get the private key... // DN = "Distinguished Name" Write-Debug "SubjectDN:" + loo_Cert.SubjectDN Write-Debug "Common Name:" + loo_Cert.SubjectCN Write-Debug "Issuer Common Name:" + loo_Cert.IssuerCN Write-Debug "Serial Number:" + loo_Cert.SerialNumber loo_PrivKey = create oleobject li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey") li_Success = loo_Cert.GetPrivateKey(loo_PrivKey) if li_Success = 0 then Write-Debug loo_Cert.LastErrorText destroy loo_Cert destroy loo_PrivKey return end if // The private key object may be used in any Chilkat methods // (in other objects/classes) that expect a private key argument. // In this case, save the private key to a PKCS8 Encrypted PEM format file: ls_PemPassword = "secret" ls_PemPath = "/Users/chilkat/testData/pem/chilkat_privKey.pem" li_Success = loo_PrivKey.SavePkcs8EncryptedPemFile(ls_PemPassword,ls_PemPath) if li_Success = 0 then Write-Debug loo_PrivKey.LastErrorText destroy loo_Cert destroy loo_PrivKey return end if Write-Debug "Private key saved to PKCS8 Encrypted PEM..." destroy loo_Cert destroy loo_PrivKey |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.