PowerBuilder

Load ECC Private Key from JWK Format (JSON Web Key)

See more ECC Examples

Demonstrates how to load an ECC private key from JWK (JSON Web Key) format.

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

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Json
string ls_JwkStr
oleobject loo_PrivKey

li_Success = 0

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

// First build a JWK sample to load..
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("kty","EC")
loo_Json.UpdateString("crv","P-256")
loo_Json.UpdateString("x","oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE")
loo_Json.UpdateString("y","vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU")
loo_Json.UpdateString("d","EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM")

// The JSON contains the following:
// { 
//   "kty": "EC",
//   "crv": "P-256",
//   "x": "oBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxE",
//   "y": "vvQyxZkUjJQUPU_0bCy3Pj5qQdfu8jwEfqEeYGZ95CU",
//   "d": "EbVzfPnZPxfAyxqEZV05laAoJAl-_6Xt2O4mOB611sM"
// }

// Note: The JSON can contain other members, such as "use", "kid", or anything else.  These will be ignored.
loo_Json.EmitCompact = 0

// Show the JWK string to be loaded:
ls_JwkStr = loo_Json.Emit()

loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_PrivKey.LoadJwk(ls_JwkStr)
if li_Success <> 1 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Json
    destroy loo_PrivKey
    return
end if

// OK.. the JWK is loaded.  It can be used in whatever way desired...

// The key can be retrieved in any other format, such as XML or PEM..
Write-Debug loo_PrivKey.GetXml()

// XML output:
// <ECCKeyValue curve="secp256r1">MHcCAQEEIBG1c3z52T8XwMsahGVdOZWgKCQJfv+l7djuJjgetdbDoAoGCCqGSM49AwEHoEQDQgAEoBUyo8CQAFPeYPvv78ylh5MwFZjTCLQeb042TjiMJxG+9DLFmRSMlBQ9T/RsLLc+PmpB1+7yPAR+oR5gZn3kJQ==</ECCKeyValue>

Write-Debug loo_PrivKey.GetPkcs8EncryptedPem("secret")

// PEM output
// 
// -----BEGIN ENCRYPTED PRIVATE KEY-----
// MIHFMEAGCSqGSIb3DQEFDTAzMBsGCSqGSIb3DQEFDDAOBAiku9rUjavLQQICCAAw
// FAYIKoZIhvcNAwcECGsl/5nLai+JBIGAVIqKAdfcRQNLl1t3x+n8OZ92d1H+qgjS
// Hs83wn2joJK4nlqy+rzosZxQ3e8NTJQyUEWZWcjqMj/N0phS3QWtcD/qbda5oEcv
// QgtU60cZ4ql3truefAmlZz2PdpOfqtYhxlvjJQxnyojn4ntj69OwLOt9SZbaBQQi
// KUL8KXT4Pq8=
// -----END ENCRYPTED PRIVATE KEY-----


destroy loo_Json
destroy loo_PrivKey