(Visual FoxPro) 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

LOCAL loSbJwk
LOCAL lnSuccess
LOCAL loPubkey
LOCAL loSbJwk2
LOCAL loJson
LOCAL loJsonJwk
LOCAL loPubkey2

* Imagine we have this JWK:

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJwk = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbJwk.LoadFile("qa_data/jwk/simple_jwk_rsa.json","utf-8")
IF (lnSuccess <> 1) THEN
    ? "Failed to load simple JWK file."
    RELEASE loSbJwk
    CANCEL
ENDIF

* Loading it into a Chilkat public key object is easy:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubkey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubkey.LoadFromString(loSbJwk.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loPubkey.LastErrorText
    RELEASE loSbJwk
    RELEASE loPubkey
    CANCEL
ENDIF

? "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"
*           }
* }

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJwk2 = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbJwk2.LoadFile("qa_data/jwk/contained_jwk_rsa.json","utf-8")
IF (lnSuccess <> 1) THEN
    ? "Failed to load JWK file."
    RELEASE loSbJwk
    RELEASE loPubkey
    RELEASE loSbJwk2
    CANCEL
ENDIF

* Get the "jwk" part of the JSON..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loSbJwk2.GetAsString())

loJsonJwk = loJson.ObjectOf("jwk")
IF (loJson.LastMethodSuccess <> 1) THEN
    ? "No jwk member exists."
    RELEASE loSbJwk
    RELEASE loPubkey
    RELEASE loSbJwk2
    RELEASE loJson
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubkey2 = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubkey2.LoadFromString(loJsonJwk.Emit())
IF (lnSuccess <> 1) THEN
    ? loPubkey2.LastErrorText
    RELEASE loSbJwk
    RELEASE loPubkey
    RELEASE loSbJwk2
    RELEASE loJson
    RELEASE loPubkey2
    CANCEL
ENDIF

? "Contained JWK loaded into public key object."

RELEASE loJsonJwk

RELEASE loSbJwk
RELEASE loPubkey
RELEASE loSbJwk2
RELEASE loJson
RELEASE loPubkey2