(PureBasic) Convert PKCS12 / PFX to Java Keystore (JKS)

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJavaKeyStore.pb"
IncludeFile "CkPfx.pb"

Procedure ChilkatExample()

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

    pfx.i = CkPfx::ckCreate()
    If pfx.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load the PKCS12 from a file
    success.i = CkPfx::ckLoadPfxFile(pfx,"/someDir/my.p12","myPfxPassword")
    If success <> 1
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    jksPassword.s = "myJksPassword"
    alias.s = "firstPrivateKeyAlias"

    jks.i

    ; 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.
    jks = CkPfx::ckToJavaKeyStore(pfx,alias,jksPassword)
    If CkPfx::ckLastMethodSuccess(pfx) = 0
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    ; Save the Java keystore to a file.
    success = CkJavaKeyStore::ckToFile(jks,jksPassword,"/myKeystores/my.jks")
    If success <> 1
        Debug CkJavaKeyStore::ckLastErrorText(jks)
        CkJavaKeyStore::ckDispose(jks)

        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    CkJavaKeyStore::ckDispose(jks)

    Debug "Successfully converted PFX to JKS."


    CkPfx::ckDispose(pfx)


    ProcedureReturn
EndProcedure