(Visual FoxPro) Download Google OAuth2 Certs (JWK) and Load into Chilkat PublicKey Objects

Demonstrates how to download the JWK from https://www.googleapis.com/oauth2/v3/certs and load the public keys into Chilkat public key objects.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lcJwkStr
LOCAL loJson
LOCAL lnSuccess
LOCAL lnNumKeys
LOCAL i
LOCAL loJsonKey
LOCAL loPubKey

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

lcJwkStr = loHttp.QuickGetStr("https://www.googleapis.com/oauth2/v3/certs")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* We have the following:

*     {
*       "keys": [
* 	{
* 	  "kid": "e8732db06287515556213b80acbcfd08cfb302a9",
* 	  "n": "4RIrO30287Wsq3gqXCMkUYMVAeI3H8...w2mbMNEBQ",
* 	  "kty": "RSA",
* 	  "e": "AQAB",
* 	  "alg": "RS256",
* 	  "use": "sig"
* 	},
* 	{
* 	  "kid": "8462a71da4f6d611fc0fecf0fc4ba9c37d65e6cd",
* 	  "e": "AQAB",
* 	  "n": "xT_ngLZNmT5GBtJZeTB...Ft4gK0eoFi0d3l8bcw",
* 	  "alg": "RS256",
* 	  "use": "sig",
* 	  "kty": "RSA"
* 	}
*       ]
*     }

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.Load(lcJwkStr)

lnNumKeys = loJson.SizeOfArray("keys")
i = 0
DO WHILE i < lnNumKeys
    loJson.I = i
    loJsonKey = loJson.ObjectOf("keys[i]")
    * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
    loPubKey = CreateObject('Chilkat.PublicKey')
    lnSuccess = loPubKey.LoadFromString(loJsonKey.Emit())
    IF (lnSuccess = 0) THEN
        ? loPubKey.LastErrorText
        RELEASE loHttp
        RELEASE loJson
        RELEASE loPubKey
        CANCEL
    ENDIF

    ? STR(i)
    ? loPubKey.GetPem(1)
    RELEASE loJsonKey
    i = i + 1
ENDDO

? "Success."

* Sample output:

* 0
* -----BEGIN RSA PUBLIC KEY-----
* MIIBCgKCAQEA4RIrO30287Wsq3gqXCMkUYMVAeI3H8LVE6IXR1krdFeGnZLiGUPw
* cbkeVpXf3lmJdsStOg+jijces2DZCfPyIBiQuLYfxxmAZE6ErJ0QJFg1stwli2Pz
* 9ncYhFoqi8pXr7kEzEJBTzX4thuw56ydbGsshSEznPXoerCJOc7UI2+n0wFCWQ4Y
* LHbh/PrWt4vdadyUUUW/QpQHXQLdD8q/Qwqdj0O9zlJE7R6Elw2E9EqnHyIGu1hm
* LxhqrTru1M18SUhONYbVskV/BCEdVKs//X96849HorWQDCAgVMWfGsdMVq55FAdJ
* 680N5UmQDRynIZ4+PeNGN4S9iw2mbMNEBQIDAQAB
* -----END RSA PUBLIC KEY-----
* 
* 1
* -----BEGIN RSA PUBLIC KEY-----
* MIIBCgKCAQEAxT/ngLZNmT5GBdkLtJZjNeTB+8B5yWgrq/e5eMZ1hrZhcmLK+dSn
* IkpOPV8/OekV67EnQ7I4II2rcNJnHGrGKZziXO3XN2gtUHE+mBJC99oULSbX/QwB
* Kz7gC/IBPq9EuxTt6Oq6fPkVQ9DbRIgWJSEGBF/KRaNl3kyAlIZfpY7XgHyJTTv8
* E7yAcYKPR+36gzdl+ps0sDLKzUuAtZNq8llK0u80z6AtAUIYwWdkEhM9upy6keKI
* TasIxcsO7M6kZPINUSbh6t5VAm8FuqRmxpgg+9c9/GQSGd89InVypoVzWLQ+wOGg
* 5G4H6JqIgtj0TRFt4gK0eoFi2U0d3l8bcwIDAQAB
* -----END RSA PUBLIC KEY-----
* 
* Success.

RELEASE loHttp
RELEASE loJson
RELEASE loPubKey