(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_SbJwk
integer li_Success
oleobject loo_Pubkey
oleobject loo_SbJwk2
oleobject loo_Json
oleobject loo_JsonJwk
oleobject loo_Pubkey2

// Imagine we have this JWK:

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

loo_SbJwk = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbJwk.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_SbJwk
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_SbJwk.LoadFile("qa_data/jwk/simple_jwk_rsa.json","utf-8")
if li_Success <> 1 then
    Write-Debug "Failed to load simple JWK file."
    destroy loo_SbJwk
    return
end if

// Loading it into a Chilkat public key object is easy:
loo_Pubkey = create oleobject
// Use "Chilkat_9_5_0.PublicKey" for versions of Chilkat < 10.0.0
li_rc = loo_Pubkey.ConnectToNewObject("Chilkat.PublicKey")

li_Success = loo_Pubkey.LoadFromString(loo_SbJwk.GetAsString())
if li_Success <> 1 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_SbJwk
    destroy loo_Pubkey
    return
end if

Write-Debug "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"
//           }
// }

loo_SbJwk2 = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbJwk2.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_SbJwk2.LoadFile("qa_data/jwk/contained_jwk_rsa.json","utf-8")
if li_Success <> 1 then
    Write-Debug "Failed to load JWK file."
    destroy loo_SbJwk
    destroy loo_Pubkey
    destroy loo_SbJwk2
    return
end if

// Get the "jwk" part of the JSON..
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.Load(loo_SbJwk2.GetAsString())

loo_JsonJwk = loo_Json.ObjectOf("jwk")
if loo_Json.LastMethodSuccess <> 1 then
    Write-Debug "No jwk member exists."
    destroy loo_SbJwk
    destroy loo_Pubkey
    destroy loo_SbJwk2
    destroy loo_Json
    return
end if

loo_Pubkey2 = create oleobject
// Use "Chilkat_9_5_0.PublicKey" for versions of Chilkat < 10.0.0
li_rc = loo_Pubkey2.ConnectToNewObject("Chilkat.PublicKey")

li_Success = loo_Pubkey2.LoadFromString(loo_JsonJwk.Emit())
if li_Success <> 1 then
    Write-Debug loo_Pubkey2.LastErrorText
    destroy loo_SbJwk
    destroy loo_Pubkey
    destroy loo_SbJwk2
    destroy loo_Json
    destroy loo_Pubkey2
    return
end if

Write-Debug "Contained JWK loaded into public key object."

destroy loo_JsonJwk


destroy loo_SbJwk
destroy loo_Pubkey
destroy loo_SbJwk2
destroy loo_Json
destroy loo_Pubkey2