(Tcl) Load an Ed25519 Private Key from Hex

Demonstrates how to load an Ed25519 private key from raw hex bytes.

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 privKey [new_CkPrivateKey]

# We have the hexidecimal encoded bytes of the private key and public key:
set privKeyHex "d4ee72dbf913584ad5b6d8f1f769f8ad3afe7c28cbf1d4fbe097a88f44755842"
set pubKeyHex "19bf44096984cdfe8541bac167dc3b96c85086aa30b6b6cb0c5c38ad703166e1"

# Load these values into the Chilkat private key object:
set success [CkPrivateKey_LoadEd25519 $privKey $privKeyHex $pubKeyHex]
if {$success == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    exit
}

# ---------------------------------------------------------------
# We don't actually need the public key.  If we pass an empty string for the public key,
# Chilkat will automatically compute it.
set privKey2 [new_CkPrivateKey]

set success [CkPrivateKey_LoadEd25519 $privKey2 $privKeyHex ""]

# Let's get the public key to see that it computed the same value.
set sbPubKeyHex [new_CkStringBuilder]

set privKeyHex [CkPrivateKey_getRawHex $privKey2 $sbPubKeyHex]
puts "computed public key = [CkStringBuilder_getAsString $sbPubKeyHex]"

# The output should be:
# computed public key = 19bf44096984cdfe8541bac167dc3b96c85086aa30b6b6cb0c5c38ad703166e1

delete_CkPrivateKey $privKey
delete_CkPrivateKey $privKey2
delete_CkStringBuilder $sbPubKeyHex