Decrypt a JWE with a Private Key

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetPrivateKey, which sets the private key used to decrypt a recipient of a loaded JWE.

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

'  Load the JWE compact serialization to be decrypted.
Dim jweCompact As String
jweCompact = "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>"
success = jwe.LoadJwe(jweCompact)
If (success = 0) Then
    Debug.Print jwe.LastErrorText
    Exit Sub
End If

'  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 recipient's private key.
Dim privKey As New PrivateKey
success = privKey.LoadPemFile("qa_data/recipient_privkey.pem")
If (success = 0) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

'  Set the private key used to decrypt recipient 0.
success = jwe.SetPrivateKey(0,privKey)
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