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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $cert = Chilkat2::Cert->new;
my $success = $cert->LoadFromFile('c:/certs_and_keys/certAbc.pem');
# Assume success...

my $privKey = Chilkat2::PrivateKey->new;
$success = $privKey->LoadAnyFormatFile('c:/certs_and_keys/certAbc_key.pem', '');
# Assume success...

my $crypt = Chilkat2::Crypt2->new;

$crypt->CryptAlgorithm('pki');

# ...
# ...

$success = $crypt->SetDecryptCert2($cert, $privKey);
if (!$success) {
    print $crypt->LastErrorText, "\n";
    exit;
}

print "Success.\n";