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. Perl

use chilkat();

$success = 0;

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

$dsa = chilkat::CkDsa->new();

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

# Save to unencrypted PEM:
$pemStr = $dsa->toPem();
$success = $dsa->SaveText($pemStr,"dsa_priv.pem");
if ($success != 1) {
    print $dsa->lastErrorText() . "\r\n";
    exit;
}

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

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