Encrypt a JWE with a Password (PBES2)

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetPassword, which sets the PBES2 password for a recipient. The example uses PBES2-HS256+A128KW key management with AES-128-GCM content encryption.

Dim success As Boolean = False

Dim jwe As ChilkatJwe
jwe.Initialize

'  Protected header: PBES2 password-based key management with AES-128-GCM content encryption.
Dim header As ChilkatJsonObject
header.Initialize
header.UpdateString("alg", "PBES2-HS256+A128KW")
header.UpdateString("enc", "A128GCM")
success = jwe.SetProtectedHeader(header)
If success = False Then
    Log(jwe.LastErrorText)
    Return
End If


'  Set the PBES2 password for recipient 0.  The password should come from a secure source rather than
'  being hard-coded.
Dim password As String = "myPassword"
success = jwe.SetPassword(0, password)
If success = False Then
    Log(jwe.LastErrorText)
    Return
End If


Dim jweCompact As String = jwe.Encrypt("This is the secret content.", "utf-8")
If jwe.LastMethodSuccess = False Then
    Log(jwe.LastErrorText)
    Return
End If

Log(jweCompact)