Load a JWE from a StringBuilder

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.LoadJweSb, which loads a JWE from a StringBuilder (here read from a file) so it can be decrypted.

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

Dim success As Long
success = 0

Dim jwe As New ChilkatJwe

'  The file path is relative to the application's current working directory.  An absolute path may
'  also be used.  Supply the path appropriate to your own environment.

'  Load the JWE text from a file into a StringBuilder.
Dim sbJwe As New ChilkatStringBuilder
Dim bLoaded As Long
bLoaded = sbJwe.LoadFile("qa_data/message.jwe","utf-8")
If (bLoaded <> 1) Then
    Debug.Print "Failed to load the JWE file."
    Exit Sub
End If

'  Load the JWE from the StringBuilder.
success = jwe.LoadJweSb(sbJwe)
If (success = 0) Then
    Debug.Print jwe.LastErrorText
    Exit Sub
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 = 0) Then
    Debug.Print jwe.LastErrorText
    Exit Sub
End If

Dim content As String
content = jwe.Decrypt(0,"utf-8")
If (jwe.LastMethodSuccess = 0) Then
    Debug.Print jwe.LastErrorText
    Exit Sub
End If

Debug.Print content