Visual FoxPro

Sign a JWS with a Certificate

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetSigningCert, which sets the certificate whose associated private key is used to create a signature.

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. The certificate must have an accessible private key. This is convenient when the signing identity is held as a certificate (for example loaded from a PFX).

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loJws
LOCAL loHeader
LOCAL lnBIncludeBom
LOCAL lcPfxPassword
LOCAL loCert
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.
*  The PFX password should come from a secure source rather than being hard-coded.
lcPfxPassword = "myPfxPassword"

*  Load a certificate that has an associated private key, then set it as the signing certificate for
*  signature 0.  The certificate's private key is used to create the signature.
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/signer.pfx",lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loJws
    RELEASE loHeader
    RELEASE loCert
    CANCEL
ENDIF

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

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

? lcJwsCompact

RELEASE loJws
RELEASE loHeader
RELEASE loCert