(Perl) Load EC Public Key from X,Y Values

Demonstrates how to load an EC public key from X and Y values.

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

use chilkat();



# We have the following x and y values in base64 (for an EC point on the P-256 curve).
$x = "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw";
$y = "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU";

# Build a JWK that looks like this:

# {
#   "kty": "EC",
#   "crv": "P-256",
#   "x": "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw",
#   "y": "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("kty","EC");
$json->UpdateString("crv","P-256");
$json->UpdateString("x",$x);
$json->UpdateString("y",$y);

# Load from the JWK.
$pubkey = chilkat::CkPublicKey->new();
$success = $pubkey->LoadFromString($json->emit());
if ($success == 0) {
    print $pubkey->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";