Perl Requires Chilkat v11.0.0+

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

use chilkat();

$success = 0;

#  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.
$jks = chilkat::CkJavaKeyStore->new();
$password = "secret";
$success = $jks->LoadFile($password,"qa_data/jks/test_secret.jks");
if ($success == 0) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

#  Make sure we have a private key.
if ($jks->get_NumPrivateKeys() < 1) {
    print "No private key available." . "\r\n";
    exit;
}

#  -------------------------------------------------------------------------
#  Get the certificate chain associated with the 1st (and probably only) private key in the JKS.

$chain = chilkat::CkCertChain->new();
$success = $jks->CertChainAt(0,$chain);
if ($success == 0) {
    print $jks->lastErrorText() . "\r\n";
    exit;
}

$cert = chilkat::CkCert->new();
$success = $chain->CertAt(0,$cert);
if ($success == 0) {
    print $chain->lastErrorText() . "\r\n";
    exit;
}

#  Verify again that this cert has a private key.
if ($cert->HasPrivateKey() != 1) {
    print "Certificate has no associated private key." . "\r\n";
    exit;
}

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

$crypt = chilkat::CkCrypt2->new();
$success = $crypt->SetSigningCert($cert);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

#  ...
#  ...