(Tcl) Load EC Public Key from X,Y Values

Demonstrates how to load an EC public key from X and Y values.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll



# We have the following x and y values in base64 (for an EC point on the P-256 curve).
set x "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw"
set y "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"

# Build a JWK that looks like this:

# {
#   "kty": "EC",
#   "crv": "P-256",
#   "x": "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw",
#   "y": "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "kty" "EC"
CkJsonObject_UpdateString $json "crv" "P-256"
CkJsonObject_UpdateString $json "x" $x
CkJsonObject_UpdateString $json "y" $y

# Load from the JWK.
set pubkey [new_CkPublicKey]

set success [CkPublicKey_LoadFromString $pubkey [CkJsonObject_emit $json]]
if {$success == 0} then {
    puts [CkPublicKey_lastErrorText $pubkey]
    delete_CkJsonObject $json
    delete_CkPublicKey $pubkey
    exit
}

puts "Success."

delete_CkJsonObject $json
delete_CkPublicKey $pubkey