Xbase++

Decrypt a JWE into BinData

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.DecryptBd, which decrypts a recipient of a loaded JWE and writes the plaintext bytes into a BinData.

Background. This is used when the decrypted content is binary. The recipient key must be provided before decrypting.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oJwe
LOCAL cJweCompact
LOCAL cBase64Key
LOCAL oBd

nSuccess := 0

oJwe := CreateObject("Chilkat.Jwe")

//  Load the JWE compact serialization to be decrypted.
cJweCompact := "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>"
nSuccess := oJwe:LoadJwe(cJweCompact)
IF (nSuccess == 0)
    ? oJwe:LastErrorText
    oJwe:destroy()
    RETURN
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.
cBase64Key := "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
nSuccess := oJwe:SetWrappingKey(0, cBase64Key, "base64")
IF (nSuccess == 0)
    ? oJwe:LastErrorText
    oJwe:destroy()
    RETURN
ENDIF

//  Decrypt recipient index 0, writing the plaintext bytes into a BinData.
oBd := CreateObject("Chilkat.BinData")
nSuccess := oJwe:DecryptBd(0, oBd)
IF (nSuccess == 0)
    ? oJwe:LastErrorText
    oJwe:destroy()
    oBd:destroy()
    RETURN
ENDIF

? "Decrypted " + Str(oBd:NumBytes) + " bytes."

oJwe:destroy()
oBd:destroy()