Xbase++

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

See more ECC Examples

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

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

Xbase++

LOCAL nSuccess
LOCAL oSbPem
LOCAL oPrivKey
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_privKey.pem", "utf-8")
IF (nSuccess != 1)
    ? "Failed to load PEM file."
    oSbPem:destroy()
    RETURN
ENDIF

//  Load the PEM into a private key object.
oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPrivKey:LoadPem(oSbPem:GetAsString())
IF (nSuccess != 1)
    ? oPrivKey:LastErrorText
    oSbPem:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

//  Get the private key in JWK format:
cJwk := oPrivKey: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 Private Key in JWK format:"
? oJson:Emit()

//  Sample output:
//  { 
//    "kty": "EC",
//    "crv": "P-256",
//    "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
//    "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU",
//    "d": "EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM"
//  }
//  

//  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",
//    "d": "EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM",
//    "use": "enc",
//    "kid": "123ABC"
//  }

oSbPem:destroy()
oPrivKey:destroy()
oJson:destroy()