(PureBasic) Generate an ECC Key (Public and Private)

See more ECC Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPublicKey.pb"
IncludeFile "CkEcc.pb"
IncludeFile "CkPrng.pb"
IncludeFile "CkPrivateKey.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    ; Create a Fortuna PRNG and seed it with system entropy.
    ; This will be our source of random data for generating the ECC private key.
    fortuna.i = CkPrng::ckCreate()
    If fortuna.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    entropy.s = CkPrng::ckGetEntropy(fortuna,32,"base64")
    success.i = CkPrng::ckAddEntropy(fortuna,entropy,"base64")

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

    ; Generate a random ECC private key on the secp256r1 curve.
    ; Chilkat also supports other curves, such as secp384r1, secp521r1, and secp256k1.

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

    success = CkEcc::ckGenKey(ecc,"secp256r1",fortuna,privKey)
    If success = 0
        Debug CkEcc::ckLastErrorText(ecc)
        CkPrng::ckDispose(fortuna)
        CkEcc::ckDispose(ecc)
        CkPrivateKey::ckDispose(privKey)
        ProcedureReturn
    EndIf

    ; Save the private key to PKCS8 encrypted PEM
    ; (The private key can be saved in a variety of different formats. See the online reference documentation.)
    success = CkPrivateKey::ckSavePkcs8EncryptedPemFile(privKey,"pemPassword","qa_output/eccPrivKey.pem")
    If success <> 1
        Debug CkPrivateKey::ckLastErrorText(privKey)
    EndIf

    ; The private key PEM looks like this:

    ; 	-----BEGIN ENCRYPTED PRIVATE KEY-----
    ; 	MIHFMEAGCSqGSIb3DQEFDTAzMBsGCSqGSIb3DQEFDDAOBAhUmn+1/lwCIwICCAAw
    ; 	FAYIKoZIhvcNAwcECPlyNXAXZO+oBIGAIvxvTENXJWbrCwSjh0QNxLecBotUpfI5
    ; 	auOonLmwVMyt1ahMmNyVo/D+pnKQSE41Fg8fApM0DCDKZUOVCCcK1qirIsMPQkGp
    ; 	klPJbvrQRVYgzBtU31uNB5y2wqhrIeepal1HXBvbkUK0nfJMbcdz/XAEIQu2HhTD
    ; 	t6LMScPQld4=
    ; 	-----END ENCRYPTED PRIVATE KEY-----

    ; Now get the public key part from the private key.
    ; (A public key is actually a subset of the private key.)
    pubKey.i = CkPublicKey::ckCreate()
    If pubKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkPrivateKey::ckToPublicKey(privKey,pubKey)

    ; Save the public key to a PEM file.
    ; (The public key can be saved in a variety of different formats. See the online reference documentation.)
    ; For ECC keys, the 1st argument (bPreferPkcs1) is ignored and unused.
    bPreferPkcs1.i = 0
    success = CkPublicKey::ckSavePemFile(pubKey,bPreferPkcs1,"qa_output/eccPubKey.pem")

    ; The public key PEM looks like this:

    ; 	-----BEGIN PUBLIC KEY-----
    ; 	MIIBSzCCAQMGByqGSM49AgEwgfcCAQEwLAYHKoZIzj0BAQIhAP////8AAAABAAAA
    ; 	AAAAAAAAAAAA////////////////MFsEIP////8AAAABAAAAAAAAAAAAAAAA////
    ; 	///////////8BCBaxjXYqjqT57PrvVV2mIa8ZR0GsMxTsPY7zjw+J9JgSwMVAMSd
    ; 	NgiG5wSTamZ44ROdJreBn36QBEEEaxfR8uEsQkf4vOblY6RA8ncDfYEt6zOg9KE5
    ; 	RdiYwpZP40Li/hp/m47n60p8D54WK84zV2sxXs7LtkBoN79R9QIhAP////8AAAAA
    ; 	//////////+85vqtpxeehPO5ysL8YyVRAgEBA0IABGdOH8uM6SfX3mdV+TR0mWp2
    ; 	gfVRPlxWxwhOiowuNByBxmQz7ZR4CJY1XcN2zkUo5pzW73ZhGwgd2XTOvqPqG40=
    ; 	-----END PUBLIC KEY-----
    ; 

    Debug "finished."


    CkPrng::ckDispose(fortuna)
    CkEcc::ckDispose(ecc)
    CkPrivateKey::ckDispose(privKey)
    CkPublicKey::ckDispose(pubKey)


    ProcedureReturn
EndProcedure