(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

$jwkStr = $http->quickGetStr("https://www.googleapis.com/oauth2/v3/certs");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

$json = chilkat::CkJsonObject->new();
$success = $json->Load($jwkStr);

$numKeys = $json->SizeOfArray("keys");
$i = 0;
while ($i < $numKeys) {
    $json->put_I($i);
    # jsonKey is a JsonObject
    $jsonKey = $json->ObjectOf("keys[i]");
    $pubKey = chilkat::CkPublicKey->new();
    $success = $pubKey->LoadFromString($jsonKey->emit());
    if ($success == 0) {
        print $pubKey->lastErrorText() . "\r\n";
        exit;
    }

    print $i . "\r\n";
    print $pubKey->getPem(1) . "\r\n";

    $i = $i + 1;
}

print "Success." . "\r\n";

# 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.