Perl Requires Chilkat v9.5.0.66+

Get ECC Private Key in JWK Format (JSON Web Key)

See more ECC Examples

Demonstrates how to get an ECC private key in JWK (JSON Web Key) format. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Load a PEM file into memory.
my $sbPem = Chilkat2::StringBuilder->new;
my $success = $sbPem->LoadFile('qa_data/pem/ecc_privKey.pem', 'utf-8');
if (!$success) {
    print "Failed to load PEM file.\n";
    exit;
}

# Load the PEM into a private key object.
my $privKey = Chilkat2::PrivateKey->new;
$success = $privKey->LoadPem($sbPem->GetAsString());
if (!$success) {
    print $privKey->LastErrorText, "\n";
    exit;
}

# Get the private key in JWK format:
my $jwk = $privKey->GetJwk();

# The GetJwk method will return the JWK in the most compact JSON format possible,
# as a single line with no extra whitespace.  To get a more human-readable JWK (for this example),
# load into a Chilkat JSON object and emit non-compact:

my $json = Chilkat2::JsonObject->new;
$json->Load($jwk);
$json->EmitCompact(0);
print "ECC Private Key in JWK format:\n";
print $json->Emit(), "\n";

# Sample output:
# {
#   "kty": "EC",
#   "crv": "P-256",
#   "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
#   "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU",
#   "d": "EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM"
# }
#

# Additional information can be added like this:
$json->AppendString('use', 'enc');
$json->AppendString('kid', '123ABC');

# Now examine the JSON:
print $json->Emit(), "\n";

# {
#   "kty": "EC",
#   "crv": "P-256",
#   "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
#   "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU",
#   "d": "EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM",
#   "use": "enc",
#   "kid": "123ABC"
# }