DataFlex

Convert PKCS12 / PFX to Java KeyStore

See more Java KeyStore (JKS) Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoJks
    Variant vPfx
    Handle hoPfx
    String sPfxPassword
    String sAlias
    String sJksPassword
    String sTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatJavaKeyStore)) To hoJks
    If (Not(IsComObjectCreated(hoJks))) Begin
        Send CreateComObject of hoJks
    End

    Get Create (RefClass(cComChilkatPfx)) To hoPfx
    If (Not(IsComObjectCreated(hoPfx))) Begin
        Send CreateComObject of hoPfx
    End

    Move "secret" To sPfxPassword

    // Load a PKCS12 from a file.
    Get ComLoadPfxFile Of hoPfx "/someDir/my.p12" sPfxPassword To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPfx To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move "someAlias" To sAlias
    Move "jksSecret" To sJksPassword

    // Add the PKCS12 to the empty Java keystore object:
    Get pvComObject of hoPfx to vPfx
    Get ComAddPfx Of hoJks vPfx sAlias sJksPassword To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoJks To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the Java keystore to a file:
    Get ComToFile Of hoJks sJksPassword "/jksFiles/my.jks" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoJks To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Successfully converted PKCS12 to JKS"
    End



End_Procedure