(Lianja) Load EC Public Key from X,Y Values
Demonstrates how to load an EC public key from X and Y values.
// We have the following x and y values in base64 (for an EC point on the P-256 curve).
x = "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw"
y = "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"
// Build a JWK that looks like this:
// {
// "kty": "EC",
// "crv": "P-256",
// "x": "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw",
// "y": "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"
// }
loJson = createobject("CkJsonObject")
loJson.UpdateString("kty","EC")
loJson.UpdateString("crv","P-256")
loJson.UpdateString("x",x)
loJson.UpdateString("y",y)
// Load from the JWK.
loPubkey = createobject("CkPublicKey")
llSuccess = loPubkey.LoadFromString(loJson.Emit())
if (llSuccess = .F.) then
? loPubkey.LastErrorText
release loJson
release loPubkey
return
endif
? "Success."
release loJson
release loPubkey
|