(PowerBuilder) Create JWT Using RSA (RS256, RS384, or RS512)

Demonstrates how to create a JWT using an RSA private key. This is for JOSE headers with an "alg" of RS256, RS384, or RS512. When RSA is used, the private key signs (creates) the JWT, and the public key is for verification.

This example also demonstrates how to include time constraints:

• nbf: Not Before Time
• exp: Expiration Time
• iat: Issue At Time

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

integer li_rc
oleobject loo_PrivKey
integer li_Success
oleobject loo_Jwt
oleobject loo_Jose
oleobject loo_Claims
integer li_CurDateTime
string ls_Token

// Demonstrates how to create a JWT using an RSA private key.

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

loo_PrivKey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")
if li_rc < 0 then
    destroy loo_PrivKey
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Load an RSA private key from a PEM file.
li_Success = loo_PrivKey.LoadEncryptedPemFile("qa_data/pem/rsa_passwd.pem","passwd")
if li_Success <> 1 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_PrivKey
    return
end if

loo_Jwt = create oleobject
// Use "Chilkat_9_5_0.Jwt" for versions of Chilkat < 10.0.0
li_rc = loo_Jwt.ConnectToNewObject("Chilkat.Jwt")

// Build the JOSE header
loo_Jose = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Jose.ConnectToNewObject("Chilkat.JsonObject")

// Use RS256.  Pass the string "RS384" or "RS512" to use RSA with SHA-384 or SHA-512.
li_Success = loo_Jose.AppendString("alg","RS256")
li_Success = loo_Jose.AppendString("typ","JWT")

// Now build the JWT claims (also known as the payload)
loo_Claims = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Claims.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_Claims.AppendString("iss","http://example.org")
li_Success = loo_Claims.AppendString("sub","John")
li_Success = loo_Claims.AppendString("aud","http://example.com")

// Set the timestamp of when the JWT was created to now.
li_CurDateTime = loo_Jwt.GenNumericDate(0)
li_Success = loo_Claims.AddIntAt(-1,"iat",li_CurDateTime)

// Set the "not process before" timestamp to now.
li_Success = loo_Claims.AddIntAt(-1,"nbf",li_CurDateTime)

// Set the timestamp defining an expiration time (end time) for the token
// to be now + 1 hour (3600 seconds)
li_Success = loo_Claims.AddIntAt(-1,"exp",li_CurDateTime + 3600)

// Produce the smallest possible JWT:
loo_Jwt.AutoCompact = 1

// Create the JWT token.  This is where the RSA signature is created.
ls_Token = loo_Jwt.CreateJwtPk(loo_Jose.Emit(),loo_Claims.Emit(),loo_PrivKey)

Write-Debug ls_Token


destroy loo_PrivKey
destroy loo_Jwt
destroy loo_Jose
destroy loo_Claims