Xojo Plugin

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.

Xojo Plugin

Dim success As Boolean
success = False

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

// Load a PEM file into memory.
Dim sbPem As New Chilkat.StringBuilder
success = sbPem.LoadFile("qa_data/pem/ecc_privKey.pem","utf-8")
If (success <> True) Then
    System.DebugLog("Failed to load PEM file.")
    Return
End If

// Load the PEM into a private key object.
Dim privKey As New Chilkat.PrivateKey
success = privKey.LoadPem(sbPem.GetAsString())
If (success <> True) Then
    System.DebugLog(privKey.LastErrorText)
    Return
End If

// Get the private key in JWK format:
Dim jwk As String
jwk = privKey.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:

Dim json As New Chilkat.JsonObject
success = json.Load(jwk)
json.EmitCompact = False
System.DebugLog("ECC Private Key in JWK format:")
System.DebugLog(json.Emit())

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

// Additional information can be added like this:
success = json.AppendString("use","enc")
success = json.AppendString("kid","123ABC")

// Now examine the JSON:
System.DebugLog(json.Emit())

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