Sign a JWS with a Private Key

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetPrivateKey, which sets the private key used to create a signature. The example uses RS256 (RSASSA-PKCS1-v1_5 with SHA-256).

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

LOCAL nSuccess
LOCAL oJws
LOCAL oHeader
LOCAL nBIncludeBom
LOCAL oPrivKey
LOCAL cJwsCompact

nSuccess := 0

oJws := CreateObject("Chilkat.Jws")

//  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
oHeader := CreateObject("Chilkat.JsonObject")
oHeader:UpdateString("alg", "RS256")
nSuccess := oJws:SetProtectedHeader(0, oHeader)
IF (nSuccess == 0)
    ? oJws:LastErrorText
    oJws:destroy()
    oHeader:destroy()
    RETURN
ENDIF

nBIncludeBom := 0
nSuccess := oJws:SetPayload("This is the content to sign.", "utf-8", nBIncludeBom)
IF (nSuccess == 0)
    ? oJws:LastErrorText
    oJws:destroy()
    oHeader:destroy()
    RETURN
ENDIF

//  The file path is relative to the application's current working directory.  An absolute path
//  may also be used.  Supply the path appropriate to your own environment.
//  Load the signer's private key and set it for signature 0.
oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPrivKey:LoadPemFile("qa_data/signer_privkey.pem")
IF (nSuccess == 0)
    ? oPrivKey:LastErrorText
    oJws:destroy()
    oHeader:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

nSuccess := oJws:SetPrivateKey(0, oPrivKey)
IF (nSuccess == 0)
    ? oJws:LastErrorText
    oJws:destroy()
    oHeader:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

cJwsCompact := oJws:CreateJws()
IF (oJws:LastMethodSuccess == 0)
    ? oJws:LastErrorText
    oJws:destroy()
    oHeader:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

? cJwsCompact

oJws:destroy()
oHeader:destroy()
oPrivKey:destroy()