(Visual FoxPro) Load EC Public Key from X,Y Values

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

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

LOCAL lnSuccess
LOCAL x
LOCAL y
LOCAL loJson
LOCAL loPubkey

* 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"
* }

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("kty","EC")
loJson.UpdateString("crv","P-256")
loJson.UpdateString("x",x)
loJson.UpdateString("y",y)

* Load from the JWK.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubkey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubkey.LoadFromString(loJson.Emit())
IF (lnSuccess = 0) THEN
    ? loPubkey.LastErrorText
    RELEASE loJson
    RELEASE loPubkey
    CANCEL
ENDIF

? "Success."

RELEASE loJson
RELEASE loPubkey