(PowerBuilder) Generate an Ed25519 Key Pair

Demonstrates how to generate a new Ed25519 public/private key pair.

Note: This example requires Chilkat v9.5.0.83 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Eddsa
oleobject loo_Prng
oleobject loo_PrivKey
integer li_Success
string ls_Jwk
oleobject loo_Json

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Eddsa = create oleobject
// Use "Chilkat_9_5_0.EdDSA" for versions of Chilkat < 10.0.0
li_rc = loo_Eddsa.ConnectToNewObject("Chilkat.EdDSA")
if li_rc < 0 then
    destroy loo_Eddsa
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Prng = create oleobject
// Use "Chilkat_9_5_0.Prng" for versions of Chilkat < 10.0.0
li_rc = loo_Prng.ConnectToNewObject("Chilkat.Prng")

loo_PrivKey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

// Generates a new eddsa key and stores it in privKey.
li_Success = loo_Eddsa.GenEd25519Key(loo_Prng,loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Eddsa.LastErrorText
    destroy loo_Eddsa
    destroy loo_Prng
    destroy loo_PrivKey
    return
end if

// Examine the ed25519 key in JWK format;
ls_Jwk = loo_PrivKey.GetJwk()

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.Load(ls_Jwk)
loo_Json.EmitCompact = 0
Write-Debug loo_Json.Emit()

// Sample output:
// {
//   "kty": "OKP",
//   "crv": "Ed25519",
//   "x": "SE2Kne5xt51z1eciMH2T2ftDQp96Gl6FhY6zSQujiP0",
//   "d": "O-eRXewadF0sNyB0U9omcnt8Qg2ZmeK3WSXPYgqe570",
//   "use": "sig"
// }

// In the above JWK, x is the public key, y is the private key.
// Both are 32 bytes and are base64-url encoded.


destroy loo_Eddsa
destroy loo_Prng
destroy loo_PrivKey
destroy loo_Json