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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set jwe = CreateObject("Chilkat.Jwe")

'  Load the JWE compact serialization to be decrypted.
jweCompact = "eyJhbGciOiJBMjU2S1ciLCJlbmMiOiJBMjU2R0NNIn0.<...>.<iv>.<ciphertext>.<tag>"
success = jwe.LoadJwe(jweCompact)
If (success = 0) Then
    outFile.WriteLine(jwe.LastErrorText)
    WScript.Quit
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.
set privKey = CreateObject("Chilkat.PrivateKey")
success = privKey.LoadPemFile("qa_data/recipient_privkey.pem")
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

'  Set the private key used to decrypt recipient 0.
success = jwe.SetPrivateKey(0,privKey)
If (success = 0) Then
    outFile.WriteLine(jwe.LastErrorText)
    WScript.Quit
End If

content = jwe.Decrypt(0,"utf-8")
If (jwe.LastMethodSuccess = 0) Then
    outFile.WriteLine(jwe.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(content)

outFile.Close