Visual FoxPro

Set a Per-Recipient JWE Header

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetRecipientHeader, which sets the per-recipient unprotected header for a recipient index.

Background. Per-recipient headers carry recipient-specific values such as a key id (kid), and are used with the JSON serialization forms that support multiple recipients.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loJwe
LOCAL loHeader
LOCAL lcBase64Key
LOCAL loRecipHeader
LOCAL loSbContent
LOCAL loSbJwe

lnSuccess = 0

loJwe = CreateObject('Chilkat.Jwe')

*  Protected header: AES key-wrap with AES-256-GCM content encryption.
loHeader = CreateObject('Chilkat.JsonObject')
loHeader.UpdateString("alg","A256KW")
loHeader.UpdateString("enc","A256GCM")
lnSuccess = loJwe.SetProtectedHeader(loHeader)
IF (lnSuccess = 0) THEN
    ? loJwe.LastErrorText
    RELEASE loJwe
    RELEASE loHeader
    CANCEL
ENDIF

*  The 256-bit key-wrapping key (base64) for recipient index 0.  In production, obtain the key from a
*  secure source rather than hard-coding it.
lcBase64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
lnSuccess = loJwe.SetWrappingKey(0,lcBase64Key,"base64")
IF (lnSuccess = 0) THEN
    ? loJwe.LastErrorText
    RELEASE loJwe
    RELEASE loHeader
    CANCEL
ENDIF

*  Set the per-recipient unprotected header for recipient 0, for example a key id used to identify
*  which key a recipient should use.
loRecipHeader = CreateObject('Chilkat.JsonObject')
loRecipHeader.UpdateString("kid","recipient-key-1")
lnSuccess = loJwe.SetRecipientHeader(0,loRecipHeader)
IF (lnSuccess = 0) THEN
    ? loJwe.LastErrorText
    RELEASE loJwe
    RELEASE loHeader
    RELEASE loRecipHeader
    CANCEL
ENDIF

loSbContent = CreateObject('Chilkat.StringBuilder')
loSbContent.Append("This is the secret content.")
loSbJwe = CreateObject('Chilkat.StringBuilder')
lnSuccess = loJwe.EncryptSb(loSbContent,"utf-8",loSbJwe)
IF (lnSuccess = 0) THEN
    ? loJwe.LastErrorText
    RELEASE loJwe
    RELEASE loHeader
    RELEASE loRecipHeader
    RELEASE loSbContent
    RELEASE loSbJwe
    CANCEL
ENDIF

? loSbJwe.GetAsString()

RELEASE loJwe
RELEASE loHeader
RELEASE loRecipHeader
RELEASE loSbContent
RELEASE loSbJwe