(PureBasic) Convert PKCS12 / PFX to Java KeyStore

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

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

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

    pfxPassword.s = "secret"

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

    alias.s = "someAlias"
    jksPassword.s = "jksSecret"

    ; Add the PKCS12 to the empty Java keystore object:
    success = CkJavaKeyStore::ckAddPfx(jks,pfx,alias,jksPassword)
    If success <> 1
        Debug CkJavaKeyStore::ckLastErrorText(jks)
        CkJavaKeyStore::ckDispose(jks)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    ; Write the Java keystore to a file:
    success = CkJavaKeyStore::ckToFile(jks,jksPassword,"/jksFiles/my.jks")
    If success <> 1
        Debug CkJavaKeyStore::ckLastErrorText(jks)
    Else
        Debug "Successfully converted PKCS12 to JKS"
    EndIf



    CkJavaKeyStore::ckDispose(jks)
    CkPfx::ckDispose(pfx)


    ProcedureReturn
EndProcedure