(Perl) Generate an ECC Key

Demonstrates how to generate an ECC key.

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

use chilkat();

#  All Chilkat classes can be unlocked at once at the beginning of a program
#  by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

#  Create a Fortuna PRNG and seed it with system entropy.
#  This will be our source of random data for generating the ECC private key.
$fortuna = chilkat::CkPrng->new();
$entropy = $fortuna->getEntropy(32,"base64");
$success = $fortuna->AddEntropy($entropy,"base64");

$ecc = chilkat::CkEcc->new();

#  Generate a random ECC private key on the secp256r1 curve.
#  Chilkat also supports other curves, such as secp384r1, secp521r1, and secp256k1.

# privKey is a PrivateKey
$privKey = $ecc->GenEccKey("secp256r1",$fortuna);
if ($ecc->get_LastMethodSuccess() != 1) {
    print $ecc->lastErrorText() . "\r\n";
    exit;
}

print $privKey->getXml() . "\r\n";

#  Save the private key to PKCS8 encrypted PEM
#  (The private key can be saved in a variety of different formats. See the online reference documentation.)
$success = $privKey->SavePkcs8EncryptedPemFile("pemPassword","myPemFiles/eccKey123.pem");
if ($success != 1) {
    print $privKey->lastErrorText() . "\r\n";
}

print "finished." . "\r\n";