(Visual FoxPro) Convert Java KeyStore to PEM

Loads a Java keystore file and saves the trusted certificate entries to a PEM file.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJks
LOCAL lcJksPassword
LOCAL lnSuccess
LOCAL loFac
LOCAL lnNumCerts
LOCAL i
LOCAL loCert
LOCAL lcPem

* This requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JavaKeyStore')
loJks = CreateObject('Chilkat.JavaKeyStore')

lcJksPassword = "myJksPassword"

* 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 that the keystore has not been modified.
lnSuccess = loJks.LoadFile(lcJksPassword,"/someDir/keyStore.jks")
IF (lnSuccess <> 1) THEN
    ? loJks.LastErrorText
    RELEASE loJks
    CANCEL
ENDIF

* Open/create the output PEM file. 
* This example uses Chilkat's file access class for writing the output file.
* You may replace the file I/O lines of code with whatever is most convenient for you.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
lnSuccess = loFac.OpenForWrite("/pemFiles/caCerts.pem")
IF (lnSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loJks
    RELEASE loFac
    CANCEL
ENDIF

lnNumCerts = loJks.NumTrustedCerts

* Iterate over the trusted certs, get the PEM for each,
* and append it to the output file.
i = 0
DO WHILE i < lnNumCerts
    loCert = loJks.GetTrustedCert(i)

    * Get the certificate in PEM format.  
    lcPem = loCert.ExportCertPem()

    * Append the PEM string to the open file.
    * The PEM contains only us-ascii chars..
    lnSuccess = loFac.AppendAnsi(lcPem)
    IF (lnSuccess <> 1) THEN
        ? loFac.LastErrorText
        RELEASE loCert
        RELEASE loJks
        RELEASE loFac
        CANCEL
    ENDIF

    RELEASE loCert
    i = i + 1
ENDDO

* Close the output file.
loFac.FileClose()

? "Trusted certificates saved to PEM."

RELEASE loJks
RELEASE loFac