Perl Requires Chilkat v11.0.0+

Convert RSA Private Key to Public Key

See more RSA Examples

Demonstrates how to get a public RSA key from a private RSA key. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $privKey = Chilkat2::PrivateKey->new;

# Step 1: Load the private key from a source.
# (Chilkat can load private keys from all types of formats, and from in-memory bytes or encoded strings.
# see the online reference documentation for more options.)
my $success = $privKey->LoadPemFile('qa_data/pem/VP_Private.pem');
if (!$success) {
    print $privKey->LastErrorText, "\n";
    exit;
}

# Step 2: Get the public key object from the private key object.
my $pubKey = Chilkat2::PublicKey->new;
$privKey->ToPublicKey($pubKey);

# Step 3: Save the public key in a desired format.
# (Chilkat can load or save public and private keys in many different formats.  See
# the online reference documentation for more options.)

# Saves to a PKCS8 PEM file.
my $bPreferPkcs1 = 0;
$success = $pubKey->SavePemFile($bPreferPkcs1, 'qa_data/pem/VP_Public.pem');
if (!$pubKey->LastMethodSuccess) {
    print $pubKey->LastErrorText, "\n";
    exit;
}

print "Extracted and saved public key from private key.\n";