- or creating a simple Google IAP client using JOSE and a service account key file.
Google offers a massive amount of services and APIs to these, and I doubt anyone has the full overview unless they are in that domain naming space 24/7, and the same would be true for Amazon, Microsoft and other offerings.
In this example, I am using Googles IAP (Identity-Aware Proxy) to get an OIDC token that can be used to authorise the requests sent by a service account.
And a disclaimer: This is a conceptual example, for more secure and correct use one should not store any form of keys - so for that look into something like Workforce identity federation - which gives the same short-lived OIDC tokens, with the help of an identity provider. But for the purpose of the example - less is more.
First you would need to create or get the service account key file by using the Google Cloud console to create a new key for the service account, and download and store that in a safe place. The Grijjy guys did a similar example years back, where they used a PEM key based from the P12 file.
I just created a class to load our json key into to extract the values needed, and by using the JOSE library, I did a customer header and claim/payload - which was signed as the example given by the bash shell script in Googles documentation here: Get OpenID Connect Id token from key file.
Since the signing requires RS256, it does disqualify some of the other libraries, but JOSE does support that.
The Google API Client libraries and Cloud Client Libraries tend to use what they call the Application Default Credentials (ADC) strategy, and to mimic that, I added a bit of code that should cover the 3 desktop OSs.
You can read more about ADC here: Google Application Default Credentials
One requirement of the signing is the OpenSSL libraries - JOSE does use these. You could of course also "just" use the EVP_DigestSignXXX functions from the SSLEAY library, and wrap what you needed, but JOSE does such a nice job of that, so why bother.
Adding a scope will give an access_token, whereas without it you will only get the id_token which is the OIDC token.
I did add an expiration check on the OIDC token, and it does seem to do the job of not having to request the token more than needed - but it might not be the perfect way.
The OIDC token is used as a bearer token for the actual requests to the service the proxy works for, so I added some HTTP methods as sample - and they just return an IHTTPResponse interface.
So an example of use would be something like:
procedure TForm1.Button1Click(Sender: TObject);
IAPClient := TIAPClient.Create(cSERVICE_ACCOUNT_KEY, cIAP_CLIENT_ID, cURL);
Memo1.Text := IAPClient.IdToken;
// Memo1.Text := IAPClient.Get('/companies').ContentAsString();
The IdToken property should not be public, and the client code is just meant as a starting point - since it does solve the painful bit - signing and authentication.
The code for the conceptual IAPClient can be found as a gist here: Delphi Google IAPClient
Requirements are also:
JOSE library: https://github.com/paolo-rossi/delphi-jose-jwt
The appropriate OpenSSL dlls: https://github.com/IndySockets/OpenSSL-Binaries
An implementation of TOAuth2Authenticator with this might have been a good idea, but ...
Well I hope it will at least get you on the right track, if you need to go through an IAP. There is no check for an unsuccessful attempt to get the OIDC token - it will just return an empty string - so that is meant as homework.