PowerBuilder Requires Chilkat v11.0.0+

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

See more OAuth2 Examples

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

integer li_rc
integer li_Success
oleobject loo_Http
string ls_JwkStr
oleobject loo_Json
oleobject loo_JsonKey
oleobject loo_PubKey
integer li_NumKeys
integer i

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_JwkStr = loo_Http.QuickGetStr("https://www.googleapis.com/oauth2/v3/certs")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

//  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"
//  	}
//        ]
//      }

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_Json.Load(ls_JwkStr)

loo_JsonKey = create oleobject
li_rc = loo_JsonKey.ConnectToNewObject("Chilkat.JsonObject")

loo_PubKey = create oleobject
li_rc = loo_PubKey.ConnectToNewObject("Chilkat.PublicKey")

li_NumKeys = loo_Json.SizeOfArray("keys")
i = 0
do while i < li_NumKeys
    loo_Json.I = i

    loo_Json.ObjectOf2("keys[i]",loo_JsonKey)

    li_Success = loo_PubKey.LoadFromString(loo_JsonKey.Emit())
    if li_Success = 0 then
        Write-Debug loo_PubKey.LastErrorText
        destroy loo_Http
        destroy loo_Json
        destroy loo_JsonKey
        destroy loo_PubKey
        return
    end if

    Write-Debug string(i)
    Write-Debug loo_PubKey.GetPem(1)
    i = i + 1
loop

Write-Debug "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.


destroy loo_Http
destroy loo_Json
destroy loo_JsonKey
destroy loo_PubKey