Visual FoxPro

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.

Background. Public-key JWS signs with a private key so that anyone holding the corresponding public key can verify the signature.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loJws
LOCAL loHeader
LOCAL lnBIncludeBom
LOCAL loPrivKey
LOCAL lcJwsCompact

lnSuccess = 0

loJws = CreateObject('Chilkat.Jws')

*  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
loHeader = CreateObject('Chilkat.JsonObject')
loHeader.UpdateString("alg","RS256")
lnSuccess = loJws.SetProtectedHeader(0,loHeader)
IF (lnSuccess = 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    RELEASE loHeader
    CANCEL
ENDIF

lnBIncludeBom = 0
lnSuccess = loJws.SetPayload("This is the content to sign.","utf-8",lnBIncludeBom)
IF (lnSuccess = 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    RELEASE loHeader
    CANCEL
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.
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadPemFile("qa_data/signer_privkey.pem")
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loJws
    RELEASE loHeader
    RELEASE loPrivKey
    CANCEL
ENDIF

lnSuccess = loJws.SetPrivateKey(0,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    RELEASE loHeader
    RELEASE loPrivKey
    CANCEL
ENDIF

lcJwsCompact = loJws.CreateJws()
IF (loJws.LastMethodSuccess = 0) THEN
    ? loJws.LastErrorText
    RELEASE loJws
    RELEASE loHeader
    RELEASE loPrivKey
    CANCEL
ENDIF

? lcJwsCompact

RELEASE loJws
RELEASE loHeader
RELEASE loPrivKey