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

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPublicKey.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i

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

    ; Build a JWK that looks like this:

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

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"kty","EC")
    CkJsonObject::ckUpdateString(json,"crv","P-256")
    CkJsonObject::ckUpdateString(json,"x",x)
    CkJsonObject::ckUpdateString(json,"y",y)

    ; Load from the JWK.
    pubkey.i = CkPublicKey::ckCreate()
    If pubkey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkPublicKey::ckLoadFromString(pubkey,CkJsonObject::ckEmit(json))
    If success = 0
        Debug CkPublicKey::ckLastErrorText(pubkey)
        CkJsonObject::ckDispose(json)
        CkPublicKey::ckDispose(pubkey)
        ProcedureReturn
    EndIf

    Debug "Success."


    CkJsonObject::ckDispose(json)
    CkPublicKey::ckDispose(pubkey)


    ProcedureReturn
EndProcedure