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.

Local $bSuccess = False

$oJwe = ObjCreate("Chilkat.Jwe")

;  Protected header: PBES2 password-based key management with AES-128-GCM content encryption.
$oHeader = ObjCreate("Chilkat.JsonObject")
$oHeader.UpdateString("alg","PBES2-HS256+A128KW")
$oHeader.UpdateString("enc","A128GCM")
$bSuccess = $oJwe.SetProtectedHeader($oHeader)
If ($bSuccess = False) Then
    ConsoleWrite($oJwe.LastErrorText & @CRLF)
    Exit
EndIf

;  Set the PBES2 password for recipient 0.  The password should come from a secure source rather than
;  being hard-coded.
Local $sPassword = "myPassword"
$bSuccess = $oJwe.SetPassword(0,$sPassword)
If ($bSuccess = False) Then
    ConsoleWrite($oJwe.LastErrorText & @CRLF)
    Exit
EndIf

Local $sJweCompact = $oJwe.Encrypt("This is the secret content.","utf-8")
If ($oJwe.LastMethodSuccess = False) Then
    ConsoleWrite($oJwe.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($sJweCompact & @CRLF)