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.

Dim success As Boolean
success = False

Dim jwe As New Chilkat.Jwe

//  Load the JWE compact serialization to be decrypted.
Dim jweCompact As String
jweCompact = "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>"
success = jwe.LoadJwe(jweCompact)
If (success = False) Then
    System.DebugLog(jwe.LastErrorText)
    Return
End If

//  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.
Dim base64Key As String
base64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
success = jwe.SetWrappingKey(0,base64Key,"base64")
If (success = False) Then
    System.DebugLog(jwe.LastErrorText)
    Return
End If

//  Decrypt recipient index 0, writing the plaintext bytes into a BinData.
Dim bd As New Chilkat.BinData
success = jwe.DecryptBd(0,bd)
If (success = False) Then
    System.DebugLog(jwe.LastErrorText)
    Return
End If

System.DebugLog("Decrypted " + Str(bd.NumBytes) + " bytes.")