Lianja

Convert PKCS12 / PFX to Java KeyStore

See more Java KeyStore (JKS) Examples

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

llSuccess = .F.

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

loJks = createobject("CkJavaKeyStore")

loPfx = createobject("CkPfx")

lcPfxPassword = "secret"

// Load a PKCS12 from a file.
llSuccess = loPfx.LoadPfxFile("/someDir/my.p12",lcPfxPassword)
if (llSuccess <> .T.) then
    ? loPfx.LastErrorText
    release loJks
    release loPfx
    return
endif

lcAlias = "someAlias"
lcJksPassword = "jksSecret"

// Add the PKCS12 to the empty Java keystore object:
llSuccess = loJks.AddPfx(loPfx,lcAlias,lcJksPassword)
if (llSuccess <> .T.) then
    ? loJks.LastErrorText
    release loJks
    release loPfx
    return
endif

// Write the Java keystore to a file:
llSuccess = loJks.ToFile(lcJksPassword,"/jksFiles/my.jks")
if (llSuccess <> .T.) then
    ? loJks.LastErrorText
else
    ? "Successfully converted PKCS12 to JKS"
endif



release loJks
release loPfx