Visual FoxPro

Load and Validate a JWS from a String

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.LoadJws, which loads a JWS from its compact serialization string. The example then supplies the MAC key and validates the signature.

Background. Validate returns 1 when the signature or MAC is cryptographically valid, 0 when it is not, or a negative value on error. The key for the signer index must be provided before validating.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loJws
LOCAL lcJwsCompact
LOCAL lcBase64Key
LOCAL v

lnSuccess = 0

loJws = CreateObject('Chilkat.Jws')

*  Load the JWS compact serialization.
lcJwsCompact = "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>"
lnSuccess = loJws.LoadJws(lcJwsCompact)
IF (lnSuccess = 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    CANCEL
ENDIF

*  Provide the HMAC key for signer 0, then validate the signature.  Validate returns 1 when the
*  signature is cryptographically valid, 0 when it is not, or a negative value on error.
lcBase64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
lnSuccess = loJws.SetMacKey(0,lcBase64Key,"base64")
IF (lnSuccess = 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    CANCEL
ENDIF

v = loJws.Validate(0)
IF (v < 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    CANCEL
ENDIF

IF (v <> 1) THEN
    ? "The signature is not valid."
    RELEASE loJws
    CANCEL
ENDIF

? "The signature is valid."

RELEASE loJws