![]() |
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
(VBScript) 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.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set jks = CreateObject("Chilkat.JavaKeyStore") ' 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. success = jks.LoadFile("jksFilePassword","/someDir/keyStore.jks") If (success = 0) Then outFile.WriteLine(jks.LastErrorText) WScript.Quit End If ' Find out how many of each type of entry: numTrustedCerts = jks.NumTrustedCerts numPrivateKeys = jks.NumPrivateKeys set cert = CreateObject("Chilkat.Cert") ' For each trusted certificate, access it by getting ' it as a cert object. Also get the alias associated with the certificate. outFile.WriteLine("Trusted Certs:") i = 0 Do While i < numTrustedCerts success = jks.TrustedCertAt(i,cert) outFile.WriteLine(jks.GetTrustedCertAlias(i) & ": " & cert.SubjectDN) i = i + 1 Loop set privKey = CreateObject("Chilkat.PrivateKey") set certChain = CreateObject("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. outFile.WriteLine("Private Keys:") i = 0 Do While i < numPrivateKeys success = jks.PrivateKeyAt("jksFilePassword",i,privKey) outFile.WriteLine(jks.GetPrivateKeyAlias(i)) success = jks.CertChainAt(i,certChain) ' The 1st certificate in the chain is the one associated with the private key. success = certChain.CertAt(0,cert) outFile.WriteLine(cert.SubjectDN) i = i + 1 Loop outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.