Xbase++ Requires Chilkat v11.0.0+

Generate an ECDSA Key

See more ECC Examples

Demonstrates how to generate an ECDSA key. Xbase++

LOCAL nSuccess
LOCAL oFortuna
LOCAL cEntropy
LOCAL oEcc
LOCAL oPrivKey

nSuccess := 0

//  This 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.
oFortuna := CreateObject("Chilkat.Prng")
cEntropy := oFortuna:GetEntropy(32, "base64")
nSuccess := oFortuna:AddEntropy(cEntropy, "base64")

oEcc := CreateObject("Chilkat.Ecc")

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

oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oEcc:GenKey("secp256r1", oFortuna, oPrivKey)
IF (nSuccess == 0)
    ? oEcc:LastErrorText
    oFortuna:destroy()
    oEcc:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

? oPrivKey:GetXml()

//  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.)
nSuccess := oPrivKey:SavePkcs8EncryptedPemFile("pemPassword", "myPemFiles/eccKey123.pem")
IF (nSuccess != 1)
    ? oPrivKey:LastErrorText
ENDIF

? "finished."

oFortuna:destroy()
oEcc:destroy()
oPrivKey:destroy()