DataFlex

Convert PEM to JKS (Java KeyStore)

See more PEM Examples

Converts a PEM containing private key(s) and certificates into a JKS (Java KeyStore) formatted file. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoPem
    String sPassword
    String sPemContent
    String sAlias
    String sJksPassword
    Variant vJks
    Handle hoJks
    String sTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatPem)) To hoPem
    If (Not(IsComObjectCreated(hoPem))) Begin
        Send CreateComObject of hoPem
    End

    // Load the PEM from a file.
    // If the PEM is encrypted, provide a password.  Otherwise pass an empty string for the password.
    Move "myPassword" To sPassword
    Get ComLoadPemFile Of hoPem "../myPemFiles/myPem.pem" sPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPem To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Note: If the app already has the PEM pre-loaded in a string variable, then load it 
    // by calling LoadPem instead.  
    Move "... the PEM contents ..." To sPemContent
    Get ComLoadPem Of hoPem sPemContent sPassword To iSuccess
    // Check for success as before..

    // Convert to a JavaKeyStore object.
    // The alias, if a non-empty string, will be applied to the 1st private key or 
    // certificate.  All other keys and/or certificates will be assigned an auto-generated
    // alias.
    Move "anything_I_want_here" To sAlias

    // This is the passord that will be required to access the created JKS.
    Move "myJksSecret" To sJksPassword
    Get Create (RefClass(cComChilkatJavaKeyStore)) To hoJks
    If (Not(IsComObjectCreated(hoJks))) Begin
        Send CreateComObject of hoJks
    End
    Get pvComObject of hoJks to vJks
    Get ComToJksObj Of hoPem sAlias sJksPassword vJks To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPem To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Save the JKS to a file.  The password passed here is used for the keyed hash of the
    // entire JKS file.  This may be different (if desired) than the password for individual private keys
    // contained within the JKS.  
    Get ComToFile Of hoJks sJksPassword "../myJksFiles/myJks.jks" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoJks To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure