Perl

Example: Crypt2.SetDecryptCert2 method

Demonstrates how to call the SetDecryptCert2 method. This example loads the certificate and private key from PEM files:

PEM Format

Certificate file (cert.pem or cert.crt):

-----BEGIN CERTIFICATE-----
MIID... (base64-encoded data)
-----END CERTIFICATE-----

Private key file (key.pem or key.key):

-----BEGIN PRIVATE KEY-----
MIIE... (base64-encoded data)
-----END PRIVATE KEY-----

Perl

use chilkat();

$success = 0;

$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("c:/certs_and_keys/certAbc.pem");
# Assume success...

$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem");
# Assume success...

$crypt = chilkat::CkCrypt2->new();

$crypt->put_CryptAlgorithm("pki");

# ...
# ...

$success = $crypt->SetDecryptCert2($cert,$privKey);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";