Visual FoxPro

bitzlato.com whoami

See more JSON Web Token (JWT) Examples

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

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

lnSuccess = 0

* 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.
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","...")

loEccKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loEccKey.LoadJwk(loJwk.Emit())
IF (lnSuccess = 0) THEN
    ? loEccKey.LastErrorText
    RELEASE loJwk
    RELEASE loEccKey
    CANCEL
ENDIF

loJwt = CreateObject('Chilkat.Jwt')

* Build the JOSE header
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"
* 	}

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