Perl

Convert DSA DER Private Key to PEM

See more DSA Examples

Converts a DSA private key from DER format to PEM. Demonstrates how to write both encrypted and unencrypted PEM formatted private keys. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $dsa = Chilkat2::Dsa->new;

# Load a DER private key.
my $success = $dsa->FromDerFile('dsa_priv.der');
if (!$success) {
    print $dsa->LastErrorText, "\n";
    exit;
}

# Save to unencrypted PEM:
my $pemStr = $dsa->ToPem();
$success = $dsa->SaveText($pemStr, 'dsa_priv.pem');
if (!$success) {
    print $dsa->LastErrorText, "\n";
    exit;
}

# Save to encrypted PEM:
$pemStr = $dsa->ToEncryptedPem('myPassword');
$success = $dsa->SaveText($pemStr, 'dsa_privEncrypted.pem');
if (!$success) {
    print $dsa->LastErrorText, "\n";
    exit;
}

print "Finished!\n";