![]() |
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) Get the Certificate with Private Key from a Java KeyStoreSee more Java KeyStore (JKS) ExamplesLoad a Chilkat certificate object from a Java KeyStore.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 example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Most of the time a .jks contains one certificate with it's associated private key. ' (Similar to how a .pfx/.p12 usually contains a particular certificate with private key.) ' This example demonstrates how to get the certificate with private key such that it can be used ' by other Chilkat classes wherever a cert w/ private key is needed. set jks = CreateObject("Chilkat.JavaKeyStore") password = "secret" success = jks.LoadFile(password,"qa_data/jks/test_secret.jks") If (success = 0) Then outFile.WriteLine(jks.LastErrorText) WScript.Quit End If ' Make sure we have a private key. If (jks.NumPrivateKeys < 1) Then outFile.WriteLine("No private key available.") WScript.Quit End If ' ------------------------------------------------------------------------- ' Get the certificate chain associated with the 1st (and probably only) private key in the JKS. set chain = CreateObject("Chilkat.CertChain") success = jks.CertChainAt(0,chain) If (success = 0) Then outFile.WriteLine(jks.LastErrorText) WScript.Quit End If set cert = CreateObject("Chilkat.Cert") success = chain.CertAt(0,cert) If (success = 0) Then outFile.WriteLine(chain.LastErrorText) WScript.Quit End If ' Verify again that this cert has a private key. If (cert.HasPrivateKey() <> 1) Then outFile.WriteLine("Certificate has no associated private key.") WScript.Quit End If ' We now have the cert object with it's associated private key, and it can be used in other Chilkat classes where needed. ' For example.. set crypt = CreateObject("Chilkat.Crypt2") success = crypt.SetSigningCert(cert) If (success = 0) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit End If ' ... ' ... outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.