(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Imagine we have this JWK:

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

set sbJwk [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbJwk "qa_data/jwk/simple_jwk_rsa.json" "utf-8"]
if {$success != 1} then {
    puts "Failed to load simple JWK file."
    delete_CkStringBuilder $sbJwk
    exit
}

# Loading it into a Chilkat public key object is easy:
set pubkey [new_CkPublicKey]

set success [CkPublicKey_LoadFromString $pubkey [CkStringBuilder_getAsString $sbJwk]]
if {$success != 1} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkStringBuilder $sbJwk
    delete_CkPublicKey $pubkey
    exit
}

puts "Simple JWK loaded into public key object."

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

set sbJwk2 [new_CkStringBuilder]

set success [CkStringBuilder_LoadFile $sbJwk2 "qa_data/jwk/contained_jwk_rsa.json" "utf-8"]
if {$success != 1} then {
    puts "Failed to load JWK file."
    delete_CkStringBuilder $sbJwk
    delete_CkPublicKey $pubkey
    delete_CkStringBuilder $sbJwk2
    exit
}

# Get the "jwk" part of the JSON..
set json [new_CkJsonObject]

CkJsonObject_Load $json [CkStringBuilder_getAsString $sbJwk2]

# jsonJwk is a CkJsonObject
set jsonJwk [CkJsonObject_ObjectOf $json "jwk"]
if {[CkJsonObject_get_LastMethodSuccess $json] != 1} then {
    puts "No jwk member exists."
    delete_CkStringBuilder $sbJwk
    delete_CkPublicKey $pubkey
    delete_CkStringBuilder $sbJwk2
    delete_CkJsonObject $json
    exit
}

set pubkey2 [new_CkPublicKey]

set success [CkPublicKey_LoadFromString $pubkey2 [CkJsonObject_emit $jsonJwk]]
if {$success != 1} then {
    puts [CkPublicKey_lastErrorText $pubkey2]
    delete_CkStringBuilder $sbJwk
    delete_CkPublicKey $pubkey
    delete_CkStringBuilder $sbJwk2
    delete_CkJsonObject $json
    delete_CkPublicKey $pubkey2
    exit
}

puts "Contained JWK loaded into public key object."

delete_CkJsonObject $jsonJwk


delete_CkStringBuilder $sbJwk
delete_CkPublicKey $pubkey
delete_CkStringBuilder $sbJwk2
delete_CkJsonObject $json
delete_CkPublicKey $pubkey2