Lianja

Validate a JWS Using ECDSA P-521 SHA-512

See more JSON Web Signatures (JWS) Examples

Validates a JSON Web Signature (JWS) that uses ECDSA P-521 SHA-512 Lianja

llSuccess = .F.

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

// This example takes a JSON signature in compact serialization format,
// and uses an ECDSA public key to validate and recover the protected header and payload.

// We only need a public key for signature validation.  This is the ECDSA public key
// that is used:

//      {"kty":"EC", 
//       "crv":"P-521", 
//       "x":"AekpBQ8ST8a8VcfVOTNl353vSrDCLLJXmPk06wTjxrrjcBpXp5EOnYG_NjFZ6OvLFV1jSfS9tsz4qUxcWceqwQGk", 
//       "y":"ADSmRA43Z1DSNx_RvcLI87cdL07l6jQyyBXMoxVg_l2Th-x3S1WDhjDly79ajL4Kkd0AZMaZmh9ubmf63e3kyMj2" 
//      } 

loSbPubKey = createobject("CkStringBuilder")
loSbPubKey.Append('{"kty":"EC",')
loSbPubKey.Append('"crv":"P-521",')
loSbPubKey.Append('"x":"AekpBQ8ST8a8VcfVOTNl353vSrDCLLJXmPk06wTjxrrjcBpXp5EOnYG_NjFZ6OvLFV1jSfS9tsz4qUxcWceqwQGk",')
loSbPubKey.Append('"y":"ADSmRA43Z1DSNx_RvcLI87cdL07l6jQyyBXMoxVg_l2Th-x3S1WDhjDly79ajL4Kkd0AZMaZmh9ubmf63e3kyMj2"')
loSbPubKey.Append("}")

loPubKey = createobject("CkPublicKey")
llSuccess = loPubKey.LoadFromString(loSbPubKey.GetAsString())
if (llSuccess = .F.) then
    ? loPubKey.LastErrorText
    release loSbPubKey
    release loPubKey
    return
endif

loJws = createobject("CkJws")

// Set the ECC public key:
lnSignatureIndex = 0
loJws.SetPublicKey(lnSignatureIndex,loPubKey)

// Load the JWS.
loSbJws = createobject("CkStringBuilder")
loSbJws.Append("eyJhbGciOiJFUzUxMiJ9")
loSbJws.Append(".")
loSbJws.Append("UGF5bG9hZA")
loSbJws.Append(".")
loSbJws.Append("AdwMgeerwtHoh-l192l60hp9wAHZFVJbLfD_UxMi70cwnZOYaRI1bKPWROc-mZZq")
loSbJws.Append("wqT2SI-KGDKB34XO0aw_7XdtAG8GaSwFKdCAPZgoXD2YBJZCPEX3xKpRwcdOO8Kp")
loSbJws.Append("EHwJjyqOgzDO7iKvU8vcnwNrmxYbSW9ERBXukOXolLzeO_Jn")

llSuccess = loJws.LoadJwsSb(loSbJws)
if (llSuccess = .F.) then
    ? loJws.LastErrorText
    release loSbPubKey
    release loPubKey
    release loJws
    release loSbJws
    return
endif

// Validate the 1st (and only) signature at index 0..
v = loJws.Validate(lnSignatureIndex)
if (v < 0) then
    // Perhaps Chilkat was not unlocked or the trial expired..
    ? "Method call failed for some other reason."
    ? loJws.LastErrorText
    release loSbPubKey
    release loPubKey
    release loJws
    release loSbJws
    return
endif

if (v = 0) then
    ? "Invalid signature.  The ECC key was incorrect, the JWS was invalid, or both."
    release loSbPubKey
    release loPubKey
    release loJws
    release loSbJws
    return
endif

// If we get here, the signature was validated..
? "Signature validated."
? "--"

// Recover the original content:
? "Recovered content:"
? loJws.GetPayload("utf-8")
? "--"

// Examine the protected header:

loJoseHeader = createobject("CkJsonObject")
llSuccess = loJws.GetProtectedH(lnSignatureIndex,loJoseHeader)
if (llSuccess = .F.) then
    ? loJws.LastErrorText
    release loSbPubKey
    release loPubKey
    release loJws
    release loSbJws
    release loJoseHeader
    return
endif

loJoseHeader.EmitCompact = .F.

? "Protected (JOSE) header:"
? loJoseHeader.Emit()

// Output:
// (the string "Payload" was the content that was signed.)

// 	Signature validated.
// 	--
// 	Recovered content:
// 	Payload
// 	--
// 	Protected (JOSE) header:
// 	{
// 	  "alg": "ES512"
// 	}


release loSbPubKey
release loPubKey
release loJws
release loSbJws
release loJoseHeader