Xbase++

Get ECC Public Key in JWK Format (JSON Web Key)

See more ECC Examples

Demonstrates how to get an ECC public key in JWK (JSON Web Key) format.

Note: This example requires Chilkat v9.5.0.66 or later.

Xbase++

LOCAL nSuccess
LOCAL oSbPem
LOCAL oPubKey
LOCAL cJwk
LOCAL oJson

nSuccess := 0

//  Note: This example requires Chilkat v9.5.0.66 or later.

//  Load a PEM file into memory.
oSbPem := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbPem:LoadFile("qa_data/pem/ecc_public.pem", "utf-8")
IF (nSuccess != 1)
    ? "Failed to load PEM file."
    oSbPem:destroy()
    RETURN
ENDIF

//  Load the PEM into a public key object.
oPubKey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubKey:LoadFromString(oSbPem:GetAsString())
IF (nSuccess != 1)
    ? oPubKey:LastErrorText
    oSbPem:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

//  Get the public key in JWK format:
cJwk := oPubKey:GetJwk()

//  The GetJwk method will return the JWK in the most compact JSON format possible,
//  as a single line with no extra whitespace.  To get a more human-readable JWK (for this example),
//  load into a Chilkat JSON object and emit non-compact:

oJson := CreateObject("Chilkat.JsonObject")
oJson:Load(cJwk)
oJson:EmitCompact := 0
? "ECC Public Key in JWK format:"
? oJson:Emit()

//  Sample output:
//  { 
//    "kty": "EC",
//    "crv": "P-256",
//    "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
//    "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU"
//  }
//  
//  Additional information can be added like this:
oJson:AppendString("use", "enc")
oJson:AppendString("kid", "123ABC")

//  Now examine the JSON:
? oJson:Emit()

//  { 
//    "kty": "EC",
//    "crv": "P-256",
//    "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
//    "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU",
//    "use": "enc",
//    "kid": "123ABC"
//  }

oSbPem:destroy()
oPubKey:destroy()
oJson:destroy()