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

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

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

# 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 == 0) {
    print $pubkey->lastErrorText() . "\r\n";
    exit;
}

$success = $rsa->UsePublicKey($pubkey);
if ($success == 0) {
    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 == 0) {
    print $privkey->lastErrorText() . "\r\n";
    exit;
}

$success = $rsa->UsePrivateKey($privkey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

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