(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    String x
    String y
    Handle hoJson
    Handle hoPubkey
    String sTemp1



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

    // Build a JWK that looks like this:

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "kty" "EC" To iSuccess
    Get ComUpdateString Of hoJson "crv" "P-256" To iSuccess
    Get ComUpdateString Of hoJson "x" x To iSuccess
    Get ComUpdateString Of hoJson "y" y To iSuccess

    // Load from the JWK.
    Get Create (RefClass(cComChilkatPublicKey)) To hoPubkey
    If (Not(IsComObjectCreated(hoPubkey))) Begin
        Send CreateComObject of hoPubkey
    End
    Get ComEmit Of hoJson To sTemp1
    Get ComLoadFromString Of hoPubkey sTemp1 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPubkey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure