(Visual FoxPro) Convert PKCS12 / PFX to Java Keystore (JKS)

Loads a PKCS12 / PFX file and saves it to a Java keystore (JKS) file.

Note: This example requires Chilkat v11.0.0 or greater.

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

LOCAL lnSuccess
LOCAL loPfx
LOCAL lcJksPassword
LOCAL lcAlias
LOCAL loJks

lnSuccess = 0

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

loPfx = CreateObject('Chilkat.Pfx')

* Load the PKCS12 from a file
lnSuccess = loPfx.LoadPfxFile("/someDir/my.p12","myPfxPassword")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    CANCEL
ENDIF

lcJksPassword = "myJksPassword"
lcAlias = "firstPrivateKeyAlias"

loJks = CreateObject('Chilkat.JavaKeyStore')

* Convert to a Java keystore object.
* The jksPassword is the password to be used for the JKS private key entries. 
* It may be the same as the PFX password, but can also be different if desired.
lnSuccess = loPfx.ToJksObj(lcAlias,lcJksPassword,loJks)
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    RELEASE loJks
    CANCEL
ENDIF

* Save the Java keystore to a file.
lnSuccess = loJks.ToFile(lcJksPassword,"/myKeystores/my.jks")
IF (lnSuccess <> 1) THEN
    ? loJks.LastErrorText
    RELEASE loJks
    RELEASE loPfx
    RELEASE loJks
    CANCEL
ENDIF

? "Successfully converted PFX to JKS."

RELEASE loPfx
RELEASE loJks