![]() |
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
(Visual FoxPro) Convert PEM to JKS (Java KeyStore)Converts a PEM containing private key(s) and certificates into a JKS (Java KeyStore) formatted file. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loPem LOCAL lcPassword LOCAL lcPemContent LOCAL lcAlias LOCAL lcJksPassword LOCAL loJks lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loPem = CreateObject('Chilkat.Pem') * Load the PEM from a file. * If the PEM is encrypted, provide a password. Otherwise pass an empty string for the password. lcPassword = "myPassword" lnSuccess = loPem.LoadPemFile("../myPemFiles/myPem.pem",lcPassword) IF (lnSuccess = 0) THEN ? loPem.LastErrorText RELEASE loPem CANCEL ENDIF * Note: If the app already has the PEM pre-loaded in a string variable, then load it * by calling LoadPem instead. lcPemContent = "... the PEM contents ..." lnSuccess = loPem.LoadPem(lcPemContent,lcPassword) * Check for success as before.. * Convert to a JavaKeyStore object. * The alias, if a non-empty string, will be applied to the 1st private key or * certificate. All other keys and/or certificates will be assigned an auto-generated * alias. lcAlias = "anything_I_want_here" * This is the passord that will be required to access the created JKS. lcJksPassword = "myJksSecret" loJks = CreateObject('Chilkat.JavaKeyStore') lnSuccess = loPem.ToJksObj(lcAlias,lcJksPassword,loJks) IF (lnSuccess = 0) THEN ? loPem.LastErrorText RELEASE loPem RELEASE loJks CANCEL ENDIF * Save the JKS to a file. The password passed here is used for the keyed hash of the * entire JKS file. This may be different (if desired) than the password for individual private keys * contained within the JKS. lnSuccess = loJks.ToFile(lcJksPassword,"../myJksFiles/myJks.jks") IF (lnSuccess = 0) THEN ? loJks.LastErrorText RELEASE loPem RELEASE loJks CANCEL ENDIF RELEASE loPem RELEASE loJks |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.