(Perl) Convert DSA DER Private Key to PEM

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

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

use chilkat();

# 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";