Classic ASP
Classic ASP
JWE using ECDH-ES+A256KW
See more JSON Web Encryption (JWE) Examples
Create a JWE with the following public/private key pair:
{
"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 Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' 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"
' }
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.UpdateString("kty","EC")
success = json.UpdateString("d","jZCffzVqJjryBH4EoaN0oD-TyLXrW2XHoDdIuPZnk8c")
success = json.UpdateString("use","enc")
success = json.UpdateString("crv","P-256")
success = json.UpdateString("kid","evEK2thJMsWxBYRivXI8ykUf6n6zizLiLCGH3s58wKs")
success = json.UpdateString("x","LOakgGvxWBsWbCPLY6Vq6OuBktIqG8POXFXe7ngQ2oM")
success = json.UpdateString("y","voJvS6I-Mc4qqmEA_G2hLQqBck3a3vqaJbmzY7YPUD4")
success = json.UpdateString("alg","ECDH-ES+A256KW")
set pubkey = Server.CreateObject("Chilkat.PublicKey")
success = pubkey.LoadFromString(json.Emit())
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( pubkey.LastErrorText) & "</pre>"
Response.End
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.
set jwt = Server.CreateObject("Chilkat.Jwt")
set jweProtHdr = Server.CreateObject("Chilkat.JsonObject")
success = jweProtHdr.UpdateString("alg","ECDH-ES+A256KW")
success = jweProtHdr.UpdateString("enc","A256GCM")
success = jweProtHdr.UpdateInt("exp",jwt.GenNumericDate(3600))
success = jweProtHdr.UpdateString("cty","NJWT")
success = jweProtHdr.UpdateString("epk.kty","EC")
success = jweProtHdr.UpdateString("epk.x","LOakgGvxWBsWbCPLY6Vq6OuBktIqG8POXFXe7ngQ2oM")
success = jweProtHdr.UpdateString("epk.y","voJvS6I-Mc4qqmEA_G2hLQqBck3a3vqaJbmzY7YPUD4")
success = jweProtHdr.UpdateString("epk.crv","P-256")
set jwe = Server.CreateObject("Chilkat.Jwe")
success = jwe.SetProtectedHeader(jweProtHdr)
success = jwe.SetPublicKey(0,pubkey)
plainText = "This is the text to be encrypted."
strJwe = jwe.Encrypt(plainText,"utf-8")
If (jwe.LastMethodSuccess <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( jwe.LastErrorText) & "</pre>"
Response.End
End If
Response.Write "<pre>" & Server.HTMLEncode( strJwe) & "</pre>"
' Let's decrypt...
set privkey = Server.CreateObject("Chilkat.PrivateKey")
success = privkey.LoadJwk(json.Emit())
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( privkey.LastErrorText) & "</pre>"
Response.End
End If
set jwe2 = Server.CreateObject("Chilkat.Jwe")
success = jwe2.LoadJwe(strJwe)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( jwe2.LastErrorText) & "</pre>"
Response.End
End If
success = jwe2.SetPrivateKey(0,privkey)
' Decrypt.
decryptedText = jwe2.Decrypt(0,"utf-8")
If (jwe2.LastMethodSuccess <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( jwe2.LastErrorText) & "</pre>"
Response.End
End If
Response.Write "<pre>" & Server.HTMLEncode( decryptedText) & "</pre>"
%>
</body>
</html>