(DataFlex) Get ECC Public Key from ECC Private Key

Demonstrates how to get an ECC public key from an ECC private key.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoPrivKey
    Boolean iSuccess
    Variant vPubKey
    Handle hoPubKey
    String sTemp1
    Boolean bTemp1

    //  We have an ECC private key...
    //  The contents of the private key PEM file look like this:

    //  	-----BEGIN PRIVATE KEY-----
    //  	MIGHAgEAMBMGByqGSM49AgEGCCqGSM49AwEHBG0wawIBAQQg3J8q/24D1sEKGdP9
    //  	72MGYElLGpw/a56Y3t6pfON3uhShRANCAATlSmoizyhAwoYZAOuFBATl07/1RR54
    //  	a1Dzfm16grxJe666AGKR+bSs24hk7TEpaeCTvT8YOOM3l+xKFg7zq6Q9
    //  	-----END PRIVATE KEY-----

    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End
    Get ComLoadPemFile Of hoPrivKey "qa_data/ecc/secp256r1-key-pkcs8.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Get the public key.
    Get ComGetPublicKey Of hoPrivKey To vPubKey
    If (IsComObject(vPubKey)) Begin
        Get Create (RefClass(cComChilkatPublicKey)) To hoPubKey
        Set pvComObject Of hoPubKey To vPubKey
    End
    Get ComLastMethodSuccess Of hoPrivKey To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Save the public key to a PEM file.
    Get ComSavePemFile Of hoPubKey False "qa_data/ecc/secp256r1-pubkey.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPubKey To sTemp1
        Showln sTemp1
        Send Destroy of hoPubKey
        Procedure_Return
    End

    //  The contents of the ECC public key PEM file look like this:

    //  	-----BEGIN PUBLIC KEY-----
    //  	MIIBSzCCAQMGByqGSM49AgEwgfcCAQEwLAYHKoZIzj0BAQIhAP////8AAAABAAAA
    //  	AAAAAAAAAAAA////////////////MFsEIP////8AAAABAAAAAAAAAAAAAAAA////
    //  	///////////8BCBaxjXYqjqT57PrvVV2mIa8ZR0GsMxTsPY7zjw+J9JgSwMVAMSd
    //  	NgiG5wSTamZ44ROdJreBn36QBEEEaxfR8uEsQkf4vOblY6RA8ncDfYEt6zOg9KE5
    //  	RdiYwpZP40Li/hp/m47n60p8D54WK84zV2sxXs7LtkBoN79R9QIhAP////8AAAAA
    //  	//////////+85vqtpxeehPO5ysL8YyVRAgEBA0IABOVKaiLPKEDChhkA64UEBOXT
    //  	v/VFHnhrUPN+bXqCvEl7rroAYpH5tKzbiGTtMSlp4JO9Pxg44zeX7EoWDvOrpD0=
    //  	-----END PUBLIC KEY-----

    Send Destroy of hoPubKey
    Showln "Success."


End_Procedure