Decrypt a JWE into a StringBuilder

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.DecryptSb, which decrypts a recipient of a loaded JWE and writes the plaintext into a StringBuilder.

Dim success As Boolean = False

Dim jwe As ChilkatJwe
jwe.Initialize

'  Load the JWE compact serialization to be decrypted.
Dim jweCompact As String = "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>"
success = jwe.LoadJwe(jweCompact)
If success = False Then
    Log(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 = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
success = jwe.SetWrappingKey(0, base64Key, "base64")
If success = False Then
    Log(jwe.LastErrorText)
    Return
End If


'  Decrypt recipient index 0, writing the plaintext into a StringBuilder.
Dim sbContent As ChilkatStringBuilder
sbContent.Initialize
success = jwe.DecryptSb(0, "utf-8", sbContent)
If success = False Then
    Log(jwe.LastErrorText)
    Return
End If

Log(sbContent.GetAsString)