(DataFlex) Get the Certificate with Private Key from a Java KeyStore

See more Java KeyStore (JKS) Examples

Load a Chilkat certificate object from a Java KeyStore.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJks
    String sPassword
    Boolean iSuccess
    Variant vChain
    Handle hoChain
    Variant vCert
    Handle hoCert
    Handle hoCrypt
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    // Most of the time a .jks contains one certificate with it's associated private key.
    // (Similar to how a .pfx/.p12 usually contains a particular certificate with private key.)
    // This example demonstrates how to get the certificate with private key such that it can be used
    // by other Chilkat classes wherever a cert w/ private key is needed.
    Get Create (RefClass(cComChilkatJavaKeyStore)) To hoJks
    If (Not(IsComObjectCreated(hoJks))) Begin
        Send CreateComObject of hoJks
    End
    Move "secret" To sPassword
    Get ComLoadFile Of hoJks sPassword "qa_data/jks/test_secret.jks" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoJks To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Make sure we have a private key.
    Get ComNumPrivateKeys Of hoJks To iTemp1
    If (iTemp1 < 1) Begin
        Showln "No private key available."
        Procedure_Return
    End

    // -------------------------------------------------------------------------
    // Get the certificate chain associated with the 1st (and probably only) private key in the JKS.
    Get ComGetCertChain Of hoJks 0 To vChain
    If (IsComObject(vChain)) Begin
        Get Create (RefClass(cComChilkatCertChain)) To hoChain
        Set pvComObject Of hoChain To vChain
    End
    Get ComLastMethodSuccess Of hoJks To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoJks To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComGetCert Of hoChain 0 To vCert
    If (IsComObject(vCert)) Begin
        Get Create (RefClass(cComChilkatCert)) To hoCert
        Set pvComObject Of hoCert To vCert
    End
    Get ComLastMethodSuccess Of hoChain To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoChain To sTemp1
        Showln sTemp1
        Send Destroy of hoChain
        Procedure_Return
    End

    Send Destroy of hoChain

    // Verify again that this cert has a private key.
    Get ComHasPrivateKey Of hoCert To bTemp1
    If (bTemp1 <> True) Begin
        Showln "Certificate has no associated private key."
        Send Destroy of hoCert
        Procedure_Return
    End

    // We now have the cert object with it's associated private key, and it can be used in other Chilkat classes where needed.
    // For example..

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End
    Get ComSetSigningCert Of hoCrypt vCert To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCrypt To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Send Destroy of hoCert


End_Procedure