(Perl) Load PEM Public/Private Key into RSA Object

Demonstrates how to load a PEM key into the Chilkat RSA object.

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

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$rsa = chilkat::CkRsa->new();

# First demonstrate importing a PEM public key:
$publicKeyPem = "PEM public-key data goes here";
$pubkey = chilkat::CkPublicKey->new();

$success = $pubkey->LoadFromString($publicKeyPem);
if ($success != 1) {
    print $pubkey->lastErrorText() . "\r\n";
    exit;
}

$publicKeyXml = $pubkey->getXml();

$success = $rsa->ImportPublicKey($publicKeyXml);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# Demonstrate importing a PEM private key:
$privateKeyPem = "PEM private-key data goes here";
$privkey = chilkat::CkPrivateKey->new();

# If the private key PEM is protected with a password, then 
# call LoadEncryptedPem.  Otherwise call LoadPem.
$success = $privkey->LoadPem($privateKeyPem);
if ($success != 1) {
    print $privkey->lastErrorText() . "\r\n";
    exit;
}

$privateKeyXml = $privkey->getXml();
$success = $rsa->ImportPrivateKey($privateKeyXml);
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

print "OK!" . "\r\n";