(Visual FoxPro) Convert PKCS12 / PFX to Java KeyStore

Converts a PKCS12 / PFX file to a Java keystore (JKS) file.

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

LOCAL loJks
LOCAL loPfx
LOCAL lcPfxPassword
LOCAL lnSuccess
LOCAL lcAlias
LOCAL lcJksPassword

* 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')

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

lcPfxPassword = "secret"

* Load a PKCS12 from a file.
lnSuccess = loPfx.LoadPfxFile("/someDir/my.p12",lcPfxPassword)
IF (lnSuccess <> 1) THEN
    ? loPfx.LastErrorText
    RELEASE loJks
    RELEASE loPfx
    CANCEL
ENDIF

lcAlias = "someAlias"
lcJksPassword = "jksSecret"

* Add the PKCS12 to the empty Java keystore object:
lnSuccess = loJks.AddPfx(loPfx,lcAlias,lcJksPassword)
IF (lnSuccess <> 1) THEN
    ? loJks.LastErrorText
    RELEASE loJks
    RELEASE loPfx
    CANCEL
ENDIF

* Write the Java keystore to a file:
lnSuccess = loJks.ToFile(lcJksPassword,"/jksFiles/my.jks")
IF (lnSuccess <> 1) THEN
    ? loJks.LastErrorText
ELSE
    ? "Successfully converted PKCS12 to JKS"
ENDIF

RELEASE loJks
RELEASE loPfx