(Perl) Load JWK into PublicKey Object

Demonstrates how to load a Java Web Key (JWK) into a Chilkat public key object.

Note: This example requires Chilkat v9.5.0.66 or greater.

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

use chilkat();

#  Imagine we have this JWK:

#  {
#  "kty":"RSA",
#  "kid":"bilbo.baggins@hobbiton.example",
#  "use":"sig",
#  "n":"26381066103266289976070039679240841999340706859156341823971393693544846472963839705790075117105560154606562987481050889935247188300178764426769543782451174831475924241862817098997865881169498995546309260357488285676768114714548754913374731868063116787903918383610614912211576698081222844057810710088656983077876282582286966085572172471849443305250452393766960762340311496052418952315081937000716222751229644449475751932222180738210988190709824209639002026650048655399108647971010890335494074025258268035713167380057822555485524738518699437692145859633592396626258745090144803752145540471688039673495588314804430463791",
#  "e":"65537"
#  }
# 

$sbJwk = chilkat::CkStringBuilder->new();
$success = $sbJwk->LoadFile("qa_data/jwk/simple_jwk_rsa.json","utf-8");
if ($success != 1) {
    print "Failed to load simple JWK file." . "\r\n";
    exit;
}

#  Loading it into a Chilkat public key object is easy:
$pubkey = chilkat::CkPublicKey->new();
$success = $pubkey->LoadFromString($sbJwk->getAsString());
if ($success != 1) {
    print $pubkey->lastErrorText() . "\r\n";
    exit;
}

print "Simple JWK loaded into public key object." . "\r\n";

#  ----------------------------------------------------------------------------------------------------------
#  Demonstrate how to load a JWK that is contained within JSON into a public key object.

#  {
#    "alg":"RS256",
#    "jwk":  {
#            "kty":"RSA",
#            "kid":"bilbo.baggins@hobbiton.example",
#            "use":"sig",
#            "n":"26381066103266289976070039679240841999340706859156341823971393693544846472963839705790075117105560154606562987481050889935247188300178764426769543782451174831475924241862817098997865881169498995546309260357488285676768114714548754913374731868063116787903918383610614912211576698081222844057810710088656983077876282582286966085572172471849443305250452393766960762340311496052418952315081937000716222751229644449475751932222180738210988190709824209639002026650048655399108647971010890335494074025258268035713167380057822555485524738518699437692145859633592396626258745090144803752145540471688039673495588314804430463791",
#            "e":"65537"
#            }
#  }

$sbJwk2 = chilkat::CkStringBuilder->new();
$success = $sbJwk2->LoadFile("qa_data/jwk/contained_jwk_rsa.json","utf-8");
if ($success != 1) {
    print "Failed to load JWK file." . "\r\n";
    exit;
}

#  Get the "jwk" part of the JSON..
$json = chilkat::CkJsonObject->new();
$json->Load($sbJwk2->getAsString());

# jsonJwk is a JsonObject
$jsonJwk = $json->ObjectOf("jwk");
if ($json->get_LastMethodSuccess() != 1) {
    print "No jwk member exists." . "\r\n";
    exit;
}

$pubkey2 = chilkat::CkPublicKey->new();
$success = $pubkey2->LoadFromString($jsonJwk->emit());
if ($success != 1) {
    print $pubkey2->lastErrorText() . "\r\n";
    exit;
}

print "Contained JWK loaded into public key object." . "\r\n";