![]() |
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 Java KeyStore and Access ContentsLoads a Java keystore file and iterates over the contents. A Java keystore (.jks) file can contain one or more trusted root certificate entries and/or one or more private key entries. Each private key entry includes an associated certificate chain. Note: This example requires Chilkat v11.0.0 or greater.
integer li_rc integer li_Success oleobject loo_Jks integer li_NumTrustedCerts integer li_NumPrivateKeys oleobject loo_Cert string ls_Alias integer i oleobject loo_PrivKey oleobject loo_CertChain li_Success = 0 // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Jks = create oleobject li_rc = loo_Jks.ConnectToNewObject("Chilkat.JavaKeyStore") if li_rc < 0 then destroy loo_Jks MessageBox("Error","Connecting to COM object failed") return end if // Load the Java keystore from a file. The JKS file password is used // to verify the keyed digest that is found at the very end of the keystore. // It verifies there has been no tampering with the file. li_Success = loo_Jks.LoadFile("jksFilePassword","/someDir/keyStore.jks") if li_Success = 0 then Write-Debug loo_Jks.LastErrorText destroy loo_Jks return end if // Find out how many of each type of entry: li_NumTrustedCerts = loo_Jks.NumTrustedCerts li_NumPrivateKeys = loo_Jks.NumPrivateKeys loo_Cert = create oleobject li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert") // For each trusted certificate, access it by getting // it as a cert object. Also get the alias associated with the certificate. Write-Debug "Trusted Certs:" i = 0 do while i < li_NumTrustedCerts li_Success = loo_Jks.TrustedCertAt(i,loo_Cert) Write-Debug loo_Jks.GetTrustedCertAlias(i) + ": " + loo_Cert.SubjectDN i = i + 1 loop loo_PrivKey = create oleobject li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey") loo_CertChain = create oleobject li_rc = loo_CertChain.ConnectToNewObject("Chilkat.CertChain") // For each private key entry, get the private key and // the associated certificate chain. // Each private key is password protected. Usually it is the same // password as used for the keyed digest of the entire JKS. // However, this does not have to be. The password is passed // here to handle the possibility of each private key requiring // a different password. Write-Debug "Private Keys:" i = 0 do while i < li_NumPrivateKeys loo_Jks.PrivateKeyAt("jksFilePassword",i,loo_PrivKey) Write-Debug loo_Jks.GetPrivateKeyAlias(i) loo_Jks.CertChainAt(i,loo_CertChain) // The 1st certificate in the chain is the one associated with the private key. loo_CertChain.CertAt(0,loo_Cert) Write-Debug loo_Cert.SubjectDN i = i + 1 loop destroy loo_Jks destroy loo_Cert destroy loo_PrivKey destroy loo_CertChain |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.