Xbase++

Convert PKCS12 / PFX to Java KeyStore

See more Java KeyStore (JKS) Examples

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

LOCAL nSuccess
LOCAL oJks
LOCAL oPfx
LOCAL cPfxPassword
LOCAL cAlias
LOCAL cJksPassword

nSuccess := 0

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

oJks := CreateObject("Chilkat.JavaKeyStore")

oPfx := CreateObject("Chilkat.Pfx")

cPfxPassword := "secret"

//  Load a PKCS12 from a file.
nSuccess := oPfx:LoadPfxFile("/someDir/my.p12", cPfxPassword)
IF (nSuccess != 1)
    ? oPfx:LastErrorText
    oJks:destroy()
    oPfx:destroy()
    RETURN
ENDIF

cAlias := "someAlias"
cJksPassword := "jksSecret"

//  Add the PKCS12 to the empty Java keystore object:
nSuccess := oJks:AddPfx(oPfx, cAlias, cJksPassword)
IF (nSuccess != 1)
    ? oJks:LastErrorText
    oJks:destroy()
    oPfx:destroy()
    RETURN
ENDIF

//  Write the Java keystore to a file:
nSuccess := oJks:ToFile(cJksPassword, "/jksFiles/my.jks")
IF (nSuccess != 1)
    ? oJks:LastErrorText
ELSE
    ? "Successfully converted PKCS12 to JKS"
ENDIF

oJks:destroy()
oPfx:destroy()