Visual FoxPro

Load JWK into PublicKey Object

See more JSON Web Signatures (JWS) Examples

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

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

lnSuccess = 0

* Imagine we have this JWK:

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

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:
loPubkey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubkey.LoadFromString(loSbJwk.GetAsString())
IF (lnSuccess = 0) 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"
*           }
* }

loSbJwk2 = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbJwk2.LoadFile("qa_data/jwk/contained_jwk_rsa.json","utf-8")
IF (lnSuccess = 0) THEN
    ? loSbJwk2.LastErrorText
    RELEASE loSbJwk
    RELEASE loPubkey
    RELEASE loSbJwk2
    CANCEL
ENDIF

* Get the "jwk" part of the JSON..
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loSbJwk2.GetAsString())

loJsonJwk = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.ObjectOf2("jwk",loJsonJwk)
IF (lnSuccess = 0) THEN
    ? loJson.LastErrorText
    RELEASE loSbJwk
    RELEASE loPubkey
    RELEASE loSbJwk2
    RELEASE loJson
    RELEASE loJsonJwk
    CANCEL
ENDIF

loPubkey2 = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubkey2.LoadFromString(loJsonJwk.Emit())
IF (lnSuccess = 0) THEN
    ? loPubkey2.LastErrorText
    RELEASE loSbJwk
    RELEASE loPubkey
    RELEASE loSbJwk2
    RELEASE loJson
    RELEASE loJsonJwk
    RELEASE loPubkey2
    CANCEL
ENDIF

? "Contained JWK loaded into public key object."

RELEASE loSbJwk
RELEASE loPubkey
RELEASE loSbJwk2
RELEASE loJson
RELEASE loJsonJwk
RELEASE loPubkey2