Xbase++ Requires Chilkat v11.0.0+

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 Xbase++

LOCAL nSuccess
LOCAL oSbPubKey
LOCAL oPubKey
LOCAL oJws
LOCAL nSignatureIndex
LOCAL oSbJws
LOCAL v
LOCAL oJoseHeader

nSuccess := 0

//  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" 
//       } 

oSbPubKey := CreateObject("Chilkat.StringBuilder")
oSbPubKey:Append('{"kty":"EC",')
oSbPubKey:Append('"crv":"P-521",')
oSbPubKey:Append('"x":"AekpBQ8ST8a8VcfVOTNl353vSrDCLLJXmPk06wTjxrrjcBpXp5EOnYG_NjFZ6OvLFV1jSfS9tsz4qUxcWceqwQGk",')
oSbPubKey:Append('"y":"ADSmRA43Z1DSNx_RvcLI87cdL07l6jQyyBXMoxVg_l2Th-x3S1WDhjDly79ajL4Kkd0AZMaZmh9ubmf63e3kyMj2"')
oSbPubKey:Append("}")

oPubKey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubKey:LoadFromString(oSbPubKey:GetAsString())
IF (nSuccess == 0)
    ? oPubKey:LastErrorText
    oSbPubKey:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

oJws := CreateObject("Chilkat.Jws")

//  Set the ECC public key:
nSignatureIndex := 0
oJws:SetPublicKey(nSignatureIndex, oPubKey)

//  Load the JWS.
oSbJws := CreateObject("Chilkat.StringBuilder")
oSbJws:Append("eyJhbGciOiJFUzUxMiJ9")
oSbJws:Append(".")
oSbJws:Append("UGF5bG9hZA")
oSbJws:Append(".")
oSbJws:Append("AdwMgeerwtHoh-l192l60hp9wAHZFVJbLfD_UxMi70cwnZOYaRI1bKPWROc-mZZq")
oSbJws:Append("wqT2SI-KGDKB34XO0aw_7XdtAG8GaSwFKdCAPZgoXD2YBJZCPEX3xKpRwcdOO8Kp")
oSbJws:Append("EHwJjyqOgzDO7iKvU8vcnwNrmxYbSW9ERBXukOXolLzeO_Jn")

nSuccess := oJws:LoadJwsSb(oSbJws)
IF (nSuccess == 0)
    ? oJws:LastErrorText
    oSbPubKey:destroy()
    oPubKey:destroy()
    oJws:destroy()
    oSbJws:destroy()
    RETURN
ENDIF

//  Validate the 1st (and only) signature at index 0..
v := oJws:Validate(nSignatureIndex)
IF (v < 0)
    //  Perhaps Chilkat was not unlocked or the trial expired..
    ? "Method call failed for some other reason."
    ? oJws:LastErrorText
    oSbPubKey:destroy()
    oPubKey:destroy()
    oJws:destroy()
    oSbJws:destroy()
    RETURN
ENDIF

IF (v == 0)
    ? "Invalid signature.  The ECC key was incorrect, the JWS was invalid, or both."
    oSbPubKey:destroy()
    oPubKey:destroy()
    oJws:destroy()
    oSbJws:destroy()
    RETURN
ENDIF

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

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

//  Examine the protected header:

oJoseHeader := CreateObject("Chilkat.JsonObject")
nSuccess := oJws:GetProtectedH(nSignatureIndex, oJoseHeader)
IF (nSuccess == 0)
    ? oJws:LastErrorText
    oSbPubKey:destroy()
    oPubKey:destroy()
    oJws:destroy()
    oSbJws:destroy()
    oJoseHeader:destroy()
    RETURN
ENDIF

oJoseHeader:EmitCompact := 0

? "Protected (JOSE) header:"
? oJoseHeader:Emit()

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

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

oSbPubKey:destroy()
oPubKey:destroy()
oJws:destroy()
oSbJws:destroy()
oJoseHeader:destroy()