Classic ASP

Set JWE Additional Authenticated Data from BinData

See more JSON Web Encryption (JWE) Examples

Demonstrates Jwe.SetAadBd, which sets external Additional Authenticated Data (AAD) to the exact bytes held in a BinData.

Background. AAD is integrity-protected but not encrypted. Passing an empty BinData clears any previously configured AAD.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set jwe = Server.CreateObject("Chilkat.Jwe")

'  Protected header: AES key-wrap with AES-256-GCM content encryption.
set header = Server.CreateObject("Chilkat.JsonObject")
success = header.UpdateString("alg","A256KW")
success = header.UpdateString("enc","A256GCM")
success = jwe.SetProtectedHeader(header)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( jwe.LastErrorText) & "</pre>"
    Response.End
End If

'  The 256-bit key-wrapping key (base64) for recipient index 0.  In production, obtain the key from a
'  secure source rather than hard-coding it.
base64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU="
success = jwe.SetWrappingKey(0,base64Key,"base64")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( jwe.LastErrorText) & "</pre>"
    Response.End
End If

'  Set external Additional Authenticated Data (AAD) to the exact bytes in a BinData.  Passing an empty
'  BinData clears any previously configured AAD.
set bdAad = Server.CreateObject("Chilkat.BinData")
success = bdAad.AppendString("context-info-v1","utf-8")
success = jwe.SetAadBd(bdAad)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( jwe.LastErrorText) & "</pre>"
    Response.End
End If

set sbContent = Server.CreateObject("Chilkat.StringBuilder")
success = sbContent.Append("This is the secret content.")
set sbJwe = Server.CreateObject("Chilkat.StringBuilder")
success = jwe.EncryptSb(sbContent,"utf-8",sbJwe)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( jwe.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( sbJwe.GetAsString()) & "</pre>"

%>
</body>
</html>