(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set eddsa [new_CkEdDSA]

set prng [new_CkPrng]

set privKey [new_CkPrivateKey]

# Generates a new eddsa key and stores it in privKey.
set success [CkEdDSA_GenEd25519Key $eddsa $prng $privKey]
if {$success == 0} then {
    puts [CkEdDSA_lastErrorText $eddsa]
    delete_CkEdDSA $eddsa
    delete_CkPrng $prng
    delete_CkPrivateKey $privKey
    exit
}

# Examine the ed25519 key in JWK format;
set jwk [CkPrivateKey_getJwk $privKey]

set json [new_CkJsonObject]

CkJsonObject_Load $json $jwk
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# 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.

delete_CkEdDSA $eddsa
delete_CkPrng $prng
delete_CkPrivateKey $privKey
delete_CkJsonObject $json