Classic ASP
bitzlato.com whoami

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

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 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.
set jwk = Server.CreateObject("Chilkat.JsonObject")
success = jwk.UpdateString("kty","EC")
success = jwk.UpdateString("crv","P-256")
success = jwk.UpdateString("x","...")
success = jwk.UpdateString("y","...")
success = jwk.UpdateString("d","...")

set eccKey = Server.CreateObject("Chilkat.PrivateKey")
success = eccKey.LoadJwk(jwk.Emit())
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( eccKey.LastErrorText) & "</pre>"
    Response.End
End If

set jwt = Server.CreateObject("Chilkat.Jwt")

' Build the JOSE header
set jose = Server.CreateObject("Chilkat.JsonObject")
success = jose.AppendString("format","compact")
success = jose.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"
' 	}

set claims = Server.CreateObject("Chilkat.JsonObject")
success = claims.AppendString("jti","555D9123")
success = claims.AppendString("email","your_email@example.com")

' Set the timestamp of when the JWT was created to now minus 60 seconds
curDateTime = jwt.GenNumericDate(-60)
success = claims.AddIntAt(-1,"iat",curDateTime)

' Set the "not process before" timestamp to now minus 60 seconds
success = claims.AddIntAt(-1,"nbf",curDateTime)

' Set the timestamp defining an expiration time (end time) for the token
' to be now + 1 hour (3600 seconds)
success = claims.AddIntAt(-1,"exp",curDateTime + 3600)

success = claims.AppendString("aud","usr")

' Produce the smallest possible JWT:
jwt.AutoCompact = 1

' Create the JWT token.  This is where the RSA signature is created.
jwt_token = jwt.CreateJwtPk(jose.Emit(),claims.Emit(),eccKey)

Response.Write "<pre>" & Server.HTMLEncode( jwt_token) & "</pre>"

' Send the HTTPS GET with the jwt_token used for Authorization.
set http = Server.CreateObject("Chilkat.Http")
http.AuthToken = jwt_token
responseStr = http.QuickGetStr("https://bitzlato.com/api/auth/whoami")
If (http.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "status code = " & http.LastStatus) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( responseStr) & "</pre>"

%>
</body>
</html>