Visual FoxPro

Encrypt a JWE with a Symmetric Wrapping Key

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetWrappingKey, which sets the symmetric key-wrapping key for a recipient. The key bytes are supplied in a named encoding such as hex or base64.

Background. AES key wrapping protects the content-encryption key with a shared symmetric key. Both parties must possess the same wrapping key.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loJwe
LOCAL loHeader
LOCAL lcBase64Key
LOCAL lcJweCompact

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

*  Set the symmetric key-wrapping key for recipient 0.  The key bytes are provided in the named
*  encoding (here base64).  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

lcJweCompact = loJwe.Encrypt("This is the secret content.","utf-8")
IF (loJwe.LastMethodSuccess = 0) THEN
    ? loJwe.LastErrorText
    RELEASE loJwe
    RELEASE loHeader
    CANCEL
ENDIF

? lcJweCompact

RELEASE loJwe
RELEASE loHeader