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
(PowerBuilder) Export a Certificate's Private Key to Various FormatsLoads a digital certificate and private key from a PFX file (also known as PKCS#12) and exports the private key to various formats: (1) PKCS8 Encrypted, (2) PKCS8 Encrypted PEM, (3) PKCS8 unencrypted, (4) PKCS8 PEM unencrypted, (5) RSA DER unencrypted, (6) RSA PEM unencrypted, (7) XML.
integer li_rc oleobject loo_Cert string ls_PfxFilename string ls_PfxPassword integer li_Success oleobject loo_PrivKey string ls_Password string ls_Path loo_Cert = create oleobject // Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0 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 <> 1 then Write-Debug loo_Cert.LastErrorText destroy loo_Cert return end if // Get the private key... loo_PrivKey = loo_Cert.ExportPrivateKey() if loo_Cert.LastMethodSuccess = 0 then Write-Debug loo_Cert.LastErrorText destroy loo_Cert return end if // Export to various formats: ls_Password = "secret" // PKCS8 Encrypted DER ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8_enc.der" li_Success = loo_PrivKey.SavePkcs8EncryptedFile(ls_Password,ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if // PKCS8 Encrypted PEM ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8_enc.pem" li_Success = loo_PrivKey.SavePkcs8EncryptedPemFile(ls_Password,ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if // PKCS8 Unencrypted DER ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8.der" li_Success = loo_PrivKey.SavePkcs8File(ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if // PKCS8 Unencrypted PEM ls_Path = "/Users/chilkat/testData/privkeys/chilkat_pkcs8.pem" li_Success = loo_PrivKey.SavePkcs8PemFile(ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if // RSA DER (unencrypted) ls_Path = "/Users/chilkat/testData/privkeys/chilkat_rsa.der" li_Success = loo_PrivKey.SavePkcs1File(ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if // RSA PEM (unencrypted) ls_Path = "/Users/chilkat/testData/privkeys/chilkat_rsa.pem" li_Success = loo_PrivKey.SavePemFile(ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if // XML (unencrypted) ls_Path = "/Users/chilkat/testData/privkeys/chilkat.xml" li_Success = loo_PrivKey.SaveXmlFile(ls_Path) if li_Success <> 1 then Write-Debug loo_PrivKey.LastErrorText destroy loo_PrivKey destroy loo_Cert return end if destroy loo_PrivKey Write-Debug "Private key exported to all formats." destroy loo_Cert |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.