(PureBasic) How to Load a JWK Set Published at a Remote URL

Demonstrates how to load a JWK set published at a remote URL. In general, this example can fetch any JSON, or any text (non-binary) document from a remote URL. It uses the Chilkat HTTP API to do it.

Note: This example requires Chilkat v9.5.0.66 or later.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    ; This example assumes the Chilkat HTTP API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; I put a sample JWK set at this URL: https://www.chilkatsoft.com/data/jwk-set.json
    ; You can test this example with it.
    sbJwkSet.i = CkStringBuilder::ckCreate()
    If sbJwkSet.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkHttp::ckQuickGetSb(http,"https://www.chilkatsoft.com/data/jwk-set.json",sbJwkSet)
    If success <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbJwkSet)
        ProcedureReturn
    EndIf

    ; Load the JWK into a JSON object..
    jwkSet.i = CkJsonObject::ckCreate()
    If jwkSet.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(jwkSet,sbJwkSet)
    CkJsonObject::setCkEmitCompact(jwkSet, 0)
    Debug "The full JWK Key Set:"
    Debug CkJsonObject::ckEmit(jwkSet)

    ; Iterate over each key...
    numKeys.i = CkJsonObject::ckSizeOfArray(jwkSet,"keys")
    i.i = 0
    While i < numKeys
        CkJsonObject::setCkI(jwkSet, i)
        Debug "---- JWK " + Str(i) + " ----"
        jwk.i = CkJsonObject::ckObjectOf(jwkSet,"keys[i]")
        CkJsonObject::setCkEmitCompact(jwk, 0)
        Debug CkJsonObject::ckEmit(jwk)
        CkJsonObject::ckDispose(jwk)

        i = i + 1
    Wend

    ; Output:

    ; The full JWK Key Set:
    ; { 
    ;   "keys": [
    ;     { 
    ;       "kty": "EC",
    ;       "crv": "P-256",
    ;       "x": "MKBCTNIcKUSDii11ySs3526iDZ8AiTo7Tu6KPAqv7D4",
    ;       "y": "4Etl6SRW2YiLUrN5vfvVHuhp7x8PxltmWWlbbM4IFyM",
    ;       "d": "870MB6gfuTJ4HtUnUvYMyJpr5eUZNP4Bk43bVdj3eAE",
    ;       "use": "enc",
    ;       "kid": "1"
    ;     },
    ;     { 
    ;       "kty": "RSA",
    ;       "n": "0vx7agoebGcQSuuPiLJXZptN9nndrQmbXEps2aiAFbWhM78LhWx4
    ; cbbfAAtVT86zwu1RK7aPFFxuhDR1L6tSoc_BJECPebWKRXjBZCiFV4n3oknjhMst
    ; n64tZ_2W-5JsGY4Hc5n9yBXArwl93lqt7_RN5w6Cf0h4QyQ5v-65YGjQR0_FDW2Q
    ; vzqY368QQMicAtaSqzs8KJZgnYb9c7d0zgdAZHzu6qMQvRL5hajrn1n91CbOpbIS
    ; D08qNLyrdkt-bFTWhAI4vMQFh6WeZu0fM4lFd2NcRwr3XPksINHaQ-G_xBniIqbw
    ; 0Ls1jF44-csFCur-kEgU8awapJzKnqDKgw",
    ;       "e": "AQAB",
    ;       "d": "X4cTteJY_gn4FYPsXB8rdXix5vwsg1FLN5E3EaG6RJoVH-HLLKD9
    ; M7dx5oo7GURknchnrRweUkC7hT5fJLM0WbFAKNLWY2vv7B6NqXSzUvxT0_YSfqij
    ; wp3RTzlBaCxWp4doFk5N2o8Gy_nHNKroADIkJ46pRUohsXywbReAdYaMwFs9tv8d
    ; _cPVY3i07a3t8MN6TNwm0dSawm9v47UiCl3Sk5ZiG7xojPLu4sbg1U2jx4IBTNBz
    ; nbJSzFHK66jT8bgkuqsk0GjskDJk19Z4qwjwbsnn4j2WBii3RL-Us2lGVkY8fkFz
    ; me1z0HbIkfz0Y6mqnOYtqc0X4jfcKoAC8Q",
    ;       "p": "83i-7IvMGXoMXCskv73TKr8637FiO7Z27zv8oj6pbWUQyLPQBQxtPV
    ; nwD20R-60eTDmD2ujnMt5PoqMrm8RfmNhVWDtjjMmCMjOpSXicFHj7XOuVIYQyqV
    ; WlWEh6dN36GVZYk93N8Bc9vY41xy8B9RzzOGVQzXvNEvn7O0nVbfs",
    ;       "q": "3dfOR9cuYq-0S-mkFLzgItgMEfFzB2q3hWehMuG0oCuqnb3vobLyum
    ; qjVZQO1dIrdwgTnCdpYzBcOfW5r370AFXjiWft_NGEiovonizhKpo9VVS78TzFgx
    ; kIdrecRezsZ-1kYd_s1qDbxtkDEgfAITAG9LUnADun4vIcb6yelxk",
    ;       "dp": "G4sPXkc6Ya9y8oJW9_ILj4xuppu0lzi_H7VTkS8xj5SdX3coE0oim
    ; YwxIi2emTAue0UOa5dpgFGyBJ4c8tQ2VF402XRugKDTP8akYhFo5tAA77Qe_Nmtu
    ; YZc3C3m3I24G2GvR5sSDxUyAN2zq8Lfn9EUms6rY3Ob8YeiKkTiBj0",
    ;       "dq": "s9lAH9fggBsoFR8Oac2R_E2gw282rT2kGOAhvIllETE1efrA6huUU
    ; vMfBcMpn8lqeW6vzznYY5SSQF7pMdC_agI3nG8Ibp1BUb0JUiraRNqUfLhcQb_d9
    ; GF4Dh7e74WbRsobRonujTYN1xCaP6TO61jvWrX-L18txXw494Q_cgk",
    ;       "qi": "GyM_p6JrXySiz1toFgKbWV-JdI3jQ4ypu9rbMWx3rQJBfmt0FoYzg
    ; UIZEVFEcOqwemRN81zoDAaa-Bk0KWNGDjJHZDdDmFhW3AN7lI-puxk_mHZGJ11rx
    ; yR8O55XLSe3SPmRfKwZI6yU24ZxvQKFYItdldUKGzO6Ia6zTKhAVRU",
    ;       "alg": "RS256",
    ;       "kid": "2011-04-29"
    ;     },
    ;     { 
    ;       "kty": "oct",
    ;       "alg": "A128KW",
    ;       "k": "GawgguFyGrWKav7AX4VKUg",
    ;       "kid": "AES KEK"
    ;     },
    ;     { 
    ;       "kty": "oct",
    ;       "k": "AyM1SysPpbyDfgZld3umj1qzKObwVMkoqQ-EstJQLr_T-1qS0gZH75
    ; aKtMN3Yj0iPS4hcgUuTwjAzZr1Z9CAow",
    ;       "kid": "HMAC key used in JWS spec Appendix A.1 example"
    ;     }
    ;   ]
    ; }
    ; 
    ; ---- JWK 0 ----
    ; { 
    ;   "kty": "EC",
    ;   "crv": "P-256",
    ;   "x": "MKBCTNIcKUSDii11ySs3526iDZ8AiTo7Tu6KPAqv7D4",
    ;   "y": "4Etl6SRW2YiLUrN5vfvVHuhp7x8PxltmWWlbbM4IFyM",
    ;   "d": "870MB6gfuTJ4HtUnUvYMyJpr5eUZNP4Bk43bVdj3eAE",
    ;   "use": "enc",
    ;   "kid": "1"
    ; }
    ; 
    ; ---- JWK 1 ----
    ; { 
    ;   "kty": "RSA",
    ;   "n": "0vx7agoebGcQSuuPiLJXZptN9nndrQmbXEps2aiAFbWhM78LhWx4
    ; cbbfAAtVT86zwu1RK7aPFFxuhDR1L6tSoc_BJECPebWKRXjBZCiFV4n3oknjhMst
    ; n64tZ_2W-5JsGY4Hc5n9yBXArwl93lqt7_RN5w6Cf0h4QyQ5v-65YGjQR0_FDW2Q
    ; vzqY368QQMicAtaSqzs8KJZgnYb9c7d0zgdAZHzu6qMQvRL5hajrn1n91CbOpbIS
    ; D08qNLyrdkt-bFTWhAI4vMQFh6WeZu0fM4lFd2NcRwr3XPksINHaQ-G_xBniIqbw
    ; 0Ls1jF44-csFCur-kEgU8awapJzKnqDKgw",
    ;   "e": "AQAB",
    ;   "d": "X4cTteJY_gn4FYPsXB8rdXix5vwsg1FLN5E3EaG6RJoVH-HLLKD9
    ; M7dx5oo7GURknchnrRweUkC7hT5fJLM0WbFAKNLWY2vv7B6NqXSzUvxT0_YSfqij
    ; wp3RTzlBaCxWp4doFk5N2o8Gy_nHNKroADIkJ46pRUohsXywbReAdYaMwFs9tv8d
    ; _cPVY3i07a3t8MN6TNwm0dSawm9v47UiCl3Sk5ZiG7xojPLu4sbg1U2jx4IBTNBz
    ; nbJSzFHK66jT8bgkuqsk0GjskDJk19Z4qwjwbsnn4j2WBii3RL-Us2lGVkY8fkFz
    ; me1z0HbIkfz0Y6mqnOYtqc0X4jfcKoAC8Q",
    ;   "p": "83i-7IvMGXoMXCskv73TKr8637FiO7Z27zv8oj6pbWUQyLPQBQxtPV
    ; nwD20R-60eTDmD2ujnMt5PoqMrm8RfmNhVWDtjjMmCMjOpSXicFHj7XOuVIYQyqV
    ; WlWEh6dN36GVZYk93N8Bc9vY41xy8B9RzzOGVQzXvNEvn7O0nVbfs",
    ;   "q": "3dfOR9cuYq-0S-mkFLzgItgMEfFzB2q3hWehMuG0oCuqnb3vobLyum
    ; qjVZQO1dIrdwgTnCdpYzBcOfW5r370AFXjiWft_NGEiovonizhKpo9VVS78TzFgx
    ; kIdrecRezsZ-1kYd_s1qDbxtkDEgfAITAG9LUnADun4vIcb6yelxk",
    ;   "dp": "G4sPXkc6Ya9y8oJW9_ILj4xuppu0lzi_H7VTkS8xj5SdX3coE0oim
    ; YwxIi2emTAue0UOa5dpgFGyBJ4c8tQ2VF402XRugKDTP8akYhFo5tAA77Qe_Nmtu
    ; YZc3C3m3I24G2GvR5sSDxUyAN2zq8Lfn9EUms6rY3Ob8YeiKkTiBj0",
    ;   "dq": "s9lAH9fggBsoFR8Oac2R_E2gw282rT2kGOAhvIllETE1efrA6huUU
    ; vMfBcMpn8lqeW6vzznYY5SSQF7pMdC_agI3nG8Ibp1BUb0JUiraRNqUfLhcQb_d9
    ; GF4Dh7e74WbRsobRonujTYN1xCaP6TO61jvWrX-L18txXw494Q_cgk",
    ;   "qi": "GyM_p6JrXySiz1toFgKbWV-JdI3jQ4ypu9rbMWx3rQJBfmt0FoYzg
    ; UIZEVFEcOqwemRN81zoDAaa-Bk0KWNGDjJHZDdDmFhW3AN7lI-puxk_mHZGJ11rx
    ; yR8O55XLSe3SPmRfKwZI6yU24ZxvQKFYItdldUKGzO6Ia6zTKhAVRU",
    ;   "alg": "RS256",
    ;   "kid": "2011-04-29"
    ; }
    ; 
    ; ---- JWK 2 ----
    ; { 
    ;   "kty": "oct",
    ;   "alg": "A128KW",
    ;   "k": "GawgguFyGrWKav7AX4VKUg",
    ;   "kid": "AES KEK"
    ; }
    ; 
    ; ---- JWK 3 ----
    ; { 
    ;   "kty": "oct",
    ;   "k": "AyM1SysPpbyDfgZld3umj1qzKObwVMkoqQ-EstJQLr_T-1qS0gZH75
    ; aKtMN3Yj0iPS4hcgUuTwjAzZr1Z9CAow",
    ;   "kid": "HMAC key used in JWS spec Appendix A.1 example"
    ; }
    ; 


    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbJwkSet)
    CkJsonObject::ckDispose(jwkSet)


    ProcedureReturn
EndProcedure