(Visual FoxPro) bitzlato.com whoami

Demonstrates sending a request to the bitzlato.com whoami endpoint using an ES256 JWT token for authentication.

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

LOCAL lnSuccess
LOCAL loJwk
LOCAL loEccKey
LOCAL loJwt
LOCAL loJose
LOCAL loClaims
LOCAL lnCurDateTime
LOCAL lcJwt_token
LOCAL loHttp
LOCAL lcResponseStr

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

*  Use the following ECC key loaded from JWK format.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJwk = CreateObject('Chilkat.JsonObject')
lnSuccess = loJwk.UpdateString("kty","EC")
lnSuccess = loJwk.UpdateString("crv","P-256")
lnSuccess = loJwk.UpdateString("x","...")
lnSuccess = loJwk.UpdateString("y","...")
lnSuccess = loJwk.UpdateString("d","...")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loEccKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loEccKey.LoadJwk(loJwk.Emit())
IF (lnSuccess = 0) THEN
    ? loEccKey.LastErrorText
    RELEASE loJwk
    RELEASE loEccKey
    CANCEL
ENDIF

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

* Build the JOSE header
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJose = CreateObject('Chilkat.JsonObject')
lnSuccess = loJose.AppendString("format","compact")
lnSuccess = loJose.AppendString("alg","ES256")

* Now build the JWT claims (also known as the payload)

* Our JWT claims will contain members as shown here:

* 	{
* 	  "email":"your_email@example.com",
* 	  "aud":"usr",
* 	  "iat":"1588286154",
* 	  "jti":"555D9123"
* 	}

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loClaims = CreateObject('Chilkat.JsonObject')
loClaims.AppendString("jti","555D9123")
loClaims.AppendString("email","your_email@example.com")

* Set the timestamp of when the JWT was created to now minus 60 seconds
lnCurDateTime = loJwt.GenNumericDate(-60)
lnSuccess = loClaims.AddIntAt(-1,"iat",lnCurDateTime)

* Set the "not process before" timestamp to now minus 60 seconds
lnSuccess = loClaims.AddIntAt(-1,"nbf",lnCurDateTime)

* Set the timestamp defining an expiration time (end time) for the token
* to be now + 1 hour (3600 seconds)
lnSuccess = loClaims.AddIntAt(-1,"exp",lnCurDateTime + 3600)

loClaims.AppendString("aud","usr")

* Produce the smallest possible JWT:
loJwt.AutoCompact = 1

* Create the JWT token.  This is where the RSA signature is created.
lcJwt_token = loJwt.CreateJwtPk(loJose.Emit(),loClaims.Emit(),loEccKey)

? lcJwt_token

* Send the HTTPS GET with the jwt_token used for Authorization.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loHttp.AuthToken = lcJwt_token
lcResponseStr = loHttp.QuickGetStr("https://bitzlato.com/api/auth/whoami")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJwk
    RELEASE loEccKey
    RELEASE loJwt
    RELEASE loJose
    RELEASE loClaims
    RELEASE loHttp
    CANCEL
ENDIF

? "status code = " + STR(loHttp.LastStatus)
? lcResponseStr

RELEASE loJwk
RELEASE loEccKey
RELEASE loJwt
RELEASE loJose
RELEASE loClaims
RELEASE loHttp