(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

'  Imagine we have this JWK:

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

Dim sbJwk As Chilkat.StringBuilder
Set sbJwk = Chilkat.NewStringBuilder

success = sbJwk.LoadFile("qa_data/jwk/simple_jwk_rsa.json","utf-8")
If (success <> True) Then
    Debug.Print "Failed to load simple JWK file."
    Exit Sub
End If

'  Loading it into a Chilkat public key object is easy:
Dim pubkey As Chilkat.PublicKey
Set pubkey = Chilkat.NewPublicKey
success = pubkey.LoadFromString(sbJwk.GetAsString())
If (success <> True) Then
    Debug.Print pubkey.LastErrorText
    Exit Sub
End If

Debug.Print "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"
'            }
'  }

Dim sbJwk2 As Chilkat.StringBuilder
Set sbJwk2 = Chilkat.NewStringBuilder
success = sbJwk2.LoadFile("qa_data/jwk/contained_jwk_rsa.json","utf-8")
If (success <> True) Then
    Debug.Print "Failed to load JWK file."
    Exit Sub
End If

'  Get the "jwk" part of the JSON..
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
success = json.Load(sbJwk2.GetAsString())


Set jsonJwk = json.ObjectOf("jwk")
If (json.LastMethodSuccess <> True) Then
    Debug.Print "No jwk member exists."
    Exit Sub
End If

Dim pubkey2 As Chilkat.PublicKey
Set pubkey2 = Chilkat.NewPublicKey
success = pubkey2.LoadFromString(jsonJwk.Emit())
If (success <> True) Then
    Debug.Print pubkey2.LastErrorText
    Exit Sub
End If

Debug.Print "Contained JWK loaded into public key object."