Load PEM Public/Private Key into RSA Object

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

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$rsa = new chilkat::CkRsa();

$success = $rsa->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

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

$success = $pubkey->LoadOpenSslPem($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 = new chilkat::CkPrivateKey();

#  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!" . "\n";