(DataFlex) Convert PEM to JKS (Java KeyStore)

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

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

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

    // The Chilkat PEM class was introduced in v9.5.0.49.  
    // It requires the bundle to be unlocked, as shown above.
    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 <> True) 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 ComToJks Of hoPem sAlias sJksPassword To vJks
    If (IsComObject(vJks)) Begin
        Get Create (RefClass(cComChilkatJavaKeyStore)) To hoJks
        Set pvComObject Of hoJks To vJks
    End
    Get ComLastMethodSuccess Of hoPem To bTemp1
    If (bTemp1 = 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 <> True) Begin
        Get ComLastErrorText Of hoJks To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Send Destroy of hoJks


End_Procedure