(PowerBuilder) JWE using ECDH-ES+A256KW

See more JSON Web Encryption (JWE) Examples

{
    "kty": "EC",
    "d": "jZCffzVqJjryBH4EoaN0oD-TyLXrW2XHoDdIuPZnk8c",
    "use": "enc",
    "crv": "P-256",
    "kid": "evEK2thJMsWxBYRivXI8ykUf6n6zizLiLCGH3s58wKs",
    "x": "LOakgGvxWBsWbCPLY6Vq6OuBktIqG8POXFXe7ngQ2oM",
    "y": "voJvS6I-Mc4qqmEA_G2hLQqBck3a3vqaJbmzY7YPUD4",
    "alg": "ECDH-ES+A256KW"
}

Also shows how to decrypt.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Json
oleobject loo_Pubkey
oleobject loo_Jwt
oleobject loo_JweProtHdr
oleobject loo_Jwe
string ls_PlainText
string ls_StrJwe
oleobject loo_Privkey
oleobject loo_Jwe2
string ls_DecryptedText

// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// Create the following JSON:
// {
//     "kty": "EC",
//     "d": "jZCffzVqJjryBH4EoaN0oD-TyLXrW2XHoDdIuPZnk8c",
//     "use": "enc",
//     "crv": "P-256",
//     "kid": "evEK2thJMsWxBYRivXI8ykUf6n6zizLiLCGH3s58wKs",
//     "x": "LOakgGvxWBsWbCPLY6Vq6OuBktIqG8POXFXe7ngQ2oM",
//     "y": "voJvS6I-Mc4qqmEA_G2hLQqBck3a3vqaJbmzY7YPUD4",
//     "alg": "ECDH-ES+A256KW"
// }

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("kty","EC")
loo_Json.UpdateString("d","jZCffzVqJjryBH4EoaN0oD-TyLXrW2XHoDdIuPZnk8c")
loo_Json.UpdateString("use","enc")
loo_Json.UpdateString("crv","P-256")
loo_Json.UpdateString("kid","evEK2thJMsWxBYRivXI8ykUf6n6zizLiLCGH3s58wKs")
loo_Json.UpdateString("x","LOakgGvxWBsWbCPLY6Vq6OuBktIqG8POXFXe7ngQ2oM")
loo_Json.UpdateString("y","voJvS6I-Mc4qqmEA_G2hLQqBck3a3vqaJbmzY7YPUD4")
loo_Json.UpdateString("alg","ECDH-ES+A256KW")

loo_Pubkey = create oleobject
li_rc = loo_Pubkey.ConnectToNewObject("Chilkat.PublicKey")

li_Success = loo_Pubkey.LoadFromString(loo_Json.Emit())
if li_Success = 0 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Json
    destroy loo_Pubkey
    return
end if

// Build our protected header:

// 	{
// 	  "alg": "ECDH-ES+A256KW",
// 	  "enc": "A256GCM",
// 	  "exp": 1621957030,
// 	  "cty": "NJWT",
// 	  "epk": {
// 	    "kty": "EC",
// 	    "x": "QLpJ_LpFx-6yJhsb4OvHwU1khLnviiOwYOvmf5clK7w"
// 	    "y": "AJh7pJ3zZKDJkm8rbeG69GBooTosXJgSsvNFH0i3Vxnu"
// 	    "crv": "BP-256"
// 	  }
// 	}

// Use jwt only for getting the current date/time + 3600 seconds.
loo_Jwt = create oleobject
li_rc = loo_Jwt.ConnectToNewObject("Chilkat.Jwt")

loo_JweProtHdr = create oleobject
li_rc = loo_JweProtHdr.ConnectToNewObject("Chilkat.JsonObject")

loo_JweProtHdr.UpdateString("alg","ECDH-ES+A256KW")
loo_JweProtHdr.UpdateString("enc","A256GCM")
loo_JweProtHdr.UpdateInt("exp",loo_Jwt.GenNumericDate(3600))
loo_JweProtHdr.UpdateString("cty","NJWT")
loo_JweProtHdr.UpdateString("epk.kty","EC")
loo_JweProtHdr.UpdateString("epk.x","LOakgGvxWBsWbCPLY6Vq6OuBktIqG8POXFXe7ngQ2oM")
loo_JweProtHdr.UpdateString("epk.y","voJvS6I-Mc4qqmEA_G2hLQqBck3a3vqaJbmzY7YPUD4")
loo_JweProtHdr.UpdateString("epk.crv","P-256")

loo_Jwe = create oleobject
li_rc = loo_Jwe.ConnectToNewObject("Chilkat.Jwe")

loo_Jwe.SetProtectedHeader(loo_JweProtHdr)
loo_Jwe.SetPublicKey(0,loo_Pubkey)

ls_PlainText = "This is the text to be encrypted."
ls_StrJwe = loo_Jwe.Encrypt(ls_PlainText,"utf-8")
if loo_Jwe.LastMethodSuccess <> 1 then
    Write-Debug loo_Jwe.LastErrorText
    destroy loo_Json
    destroy loo_Pubkey
    destroy loo_Jwt
    destroy loo_JweProtHdr
    destroy loo_Jwe
    return
end if

Write-Debug ls_StrJwe

// Let's decrypt...
loo_Privkey = create oleobject
li_rc = loo_Privkey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_Privkey.LoadJwk(loo_Json.Emit())
if li_Success = 0 then
    Write-Debug loo_Privkey.LastErrorText
    destroy loo_Json
    destroy loo_Pubkey
    destroy loo_Jwt
    destroy loo_JweProtHdr
    destroy loo_Jwe
    destroy loo_Privkey
    return
end if

loo_Jwe2 = create oleobject
li_rc = loo_Jwe2.ConnectToNewObject("Chilkat.Jwe")

li_Success = loo_Jwe2.LoadJwe(ls_StrJwe)
if li_Success = 0 then
    Write-Debug loo_Jwe2.LastErrorText
    destroy loo_Json
    destroy loo_Pubkey
    destroy loo_Jwt
    destroy loo_JweProtHdr
    destroy loo_Jwe
    destroy loo_Privkey
    destroy loo_Jwe2
    return
end if

loo_Jwe2.SetPrivateKey(0,loo_Privkey)

//  Decrypt.
ls_DecryptedText = loo_Jwe2.Decrypt(0,"utf-8")
if loo_Jwe2.LastMethodSuccess <> 1 then
    Write-Debug loo_Jwe2.LastErrorText
    destroy loo_Json
    destroy loo_Pubkey
    destroy loo_Jwt
    destroy loo_JweProtHdr
    destroy loo_Jwe
    destroy loo_Privkey
    destroy loo_Jwe2
    return
end if

Write-Debug ls_DecryptedText


destroy loo_Json
destroy loo_Pubkey
destroy loo_Jwt
destroy loo_JweProtHdr
destroy loo_Jwe
destroy loo_Privkey
destroy loo_Jwe2