(Perl) Load Certificate (.cer) and Private Key (.pvk) generated from makecert

See more Certificates Examples

Demonstrates how to load a certificate (.cer) and private key (.pvk) from the files produced by makecert, such as in the following command:

makecert -sv mycertificate.pvk -n "CN=My Simple Certificate" mycertificate.cer -sky Exchange

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# First load the .cer file.
# The certificate file (.cer) contains only the certificate (does not include the private key)
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("qa_data/certs_and_keys/makecert/mycertificate.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Next, load the .pvk file.
# Note: The password "secret" is what you entered when makecert displayed the dialog asking for a password..
$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadPvkFile("qa_data/certs_and_keys/makecert/mycertificate.pvk","secret");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

# Finally, associate the private key with the certificate.
$success = $cert->SetPrivateKey($privKey);
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# At this point, the certificate can be used for signing.  For example..
$pdf = chilkat::CkPdf->new();

# ....
# ....

$success = $pdf->SetSigningCert($cert);

# ...
# ....

# Some Chilkat classes also provide a method where the cert and private key can be passed separately.
# For example, if SetSigningCert2 is called, then we don't need to explicitly associate the private key with the cert.
$success = $pdf->SetSigningCert2($cert,$privKey);

# ...
# ....