Classic ASP
Load JWK into PublicKey Object

See more JSON Web Signatures (JWS) Examples
Demonstrates how to load a Java Web Key (JWK) into a Chilkat public key object.
Chilkat Classic ASP Downloads

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

' Imagine we have this JWK:

' {
' "kty":"RSA",
' "kid":"bilbo.baggins@hobbiton.example",
' "use":"sig",
' "n":"26381066103266289976070039679240841999340706859156341823971393693544846472963839705790075117105560154606562987481050889935247188300178764426769543782451174831475924241862817098997865881169498995546309260357488285676768114714548754913374731868063116787903918383610614912211576698081222844057810710088656983077876282582286966085572172471849443305250452393766960762340311496052418952315081937000716222751229644449475751932222180738210988190709824209639002026650048655399108647971010890335494074025258268035713167380057822555485524738518699437692145859633592396626258745090144803752145540471688039673495588314804430463791",
' "e":"65537"
' }
' 

set sbJwk = Server.CreateObject("Chilkat.StringBuilder")
success = sbJwk.LoadFile("qa_data/jwk/simple_jwk_rsa.json","utf-8")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load simple JWK file.") & "</pre>"
    Response.End
End If

' Loading it into a Chilkat public key object is easy:
set pubkey = Server.CreateObject("Chilkat.PublicKey")
success = pubkey.LoadFromString(sbJwk.GetAsString())
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pubkey.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Simple JWK loaded into public key object.") & "</pre>"

' ----------------------------------------------------------------------------------------------------------
' Demonstrate how to load a JWK that is contained within JSON into a public key object.

' {
'   "alg":"RS256",
'   "jwk":  {
'           "kty":"RSA",
'           "kid":"bilbo.baggins@hobbiton.example",
'           "use":"sig",
'           "n":"26381066103266289976070039679240841999340706859156341823971393693544846472963839705790075117105560154606562987481050889935247188300178764426769543782451174831475924241862817098997865881169498995546309260357488285676768114714548754913374731868063116787903918383610614912211576698081222844057810710088656983077876282582286966085572172471849443305250452393766960762340311496052418952315081937000716222751229644449475751932222180738210988190709824209639002026650048655399108647971010890335494074025258268035713167380057822555485524738518699437692145859633592396626258745090144803752145540471688039673495588314804430463791",
'           "e":"65537"
'           }
' }

set sbJwk2 = Server.CreateObject("Chilkat.StringBuilder")
success = sbJwk2.LoadFile("qa_data/jwk/contained_jwk_rsa.json","utf-8")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( sbJwk2.LastErrorText) & "</pre>"
    Response.End
End If

' Get the "jwk" part of the JSON..
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.Load(sbJwk2.GetAsString())

set jsonJwk = Server.CreateObject("Chilkat.JsonObject")
success = json.ObjectOf2("jwk",jsonJwk)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( json.LastErrorText) & "</pre>"
    Response.End
End If

set pubkey2 = Server.CreateObject("Chilkat.PublicKey")
success = pubkey2.LoadFromString(jsonJwk.Emit())
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pubkey2.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Contained JWK loaded into public key object.") & "</pre>"

%>
</body>
</html>