(Visual FoxPro) 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

LOCAL loJks
LOCAL lcPassword
LOCAL lnSuccess
LOCAL loChain
LOCAL loCert
LOCAL loCrypt

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JavaKeyStore')
loJks = CreateObject('Chilkat.JavaKeyStore')
lcPassword = "secret"
lnSuccess = loJks.LoadFile(lcPassword,"qa_data/jks/test_secret.jks")
IF (lnSuccess <> 1) THEN
    ? loJks.LastErrorText
    RELEASE loJks
    CANCEL
ENDIF

* Make sure we have a private key.
IF (loJks.NumPrivateKeys < 1) THEN
    ? "No private key available."
    RELEASE loJks
    CANCEL
ENDIF

* -------------------------------------------------------------------------
* Get the certificate chain associated with the 1st (and probably only) private key in the JKS.
loChain = loJks.GetCertChain(0)
IF (loJks.LastMethodSuccess <> 1) THEN
    ? loJks.LastErrorText
    RELEASE loJks
    CANCEL
ENDIF

loCert = loChain.GetCert(0)
IF (loChain.LastMethodSuccess <> 1) THEN
    ? loChain.LastErrorText
    RELEASE loChain
    RELEASE loJks
    CANCEL
ENDIF

RELEASE loChain

* Verify again that this cert has a private key.
IF (loCert.HasPrivateKey() <> 1) THEN
    ? "Certificate has no associated private key."
    RELEASE loCert
    RELEASE loJks
    CANCEL
ENDIF

* 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..

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
lnSuccess = loCrypt.SetSigningCert(loCert)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loJks
    RELEASE loCrypt
    CANCEL
ENDIF

* ...
* ...

RELEASE loCert

RELEASE loJks
RELEASE loCrypt