Encrypt a JWE with a Recipient Public Key

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetPublicKey, which sets the public key used to encrypt for a recipient. The example uses RSA-OAEP-256 key management with AES-256-GCM content encryption.

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

'  Protected header: RSA-OAEP-256 key management with AES-256-GCM content encryption.
Dim header As New ChilkatJsonObject
success = header.UpdateString("alg","RSA-OAEP-256")
success = header.UpdateString("enc","A256GCM")
success = jwe.SetProtectedHeader(header)
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 public key.
Dim pubKey As New PublicKey
success = pubKey.LoadFromFile("qa_data/recipient_pubkey.pem")
If (success = 0) Then
    Debug.Print pubKey.LastErrorText
    Exit Sub
End If

'  Set the public key used to encrypt for recipient 0.
success = jwe.SetPublicKey(0,pubKey)
If (success = 0) Then
    Debug.Print jwe.LastErrorText
    Exit Sub
End If

Dim jweCompact As String
jweCompact = jwe.Encrypt("This is the secret content.","utf-8")
If (jwe.LastMethodSuccess = 0) Then
    Debug.Print jwe.LastErrorText
    Exit Sub
End If

Debug.Print jweCompact