(PureBasic) Generate an ECC Key

Demonstrates how to generate an ECC key.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkGlobal.pb"
IncludeFile "CkEcc.pb"
IncludeFile "CkPrng.pb"
IncludeFile "CkPrivateKey.pb"

Procedure ChilkatExample()

    ;  All Chilkat classes can be unlocked at once at the beginning of a program
    ;  by calling UnlockBundle.  It requires a Bundle unlock code.
    chilkatGlob.i = CkGlobal::ckCreate()
    If chilkatGlob.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkGlobal::ckUnlockBundle(chilkatGlob,"Anything for 30-day trial.")
    If success <> 1
        Debug CkGlobal::ckLastErrorText(chilkatGlob)
        CkGlobal::ckDispose(chilkatGlob)
        ProcedureReturn
    EndIf

    ;  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 = 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 = CkEcc::ckGenEccKey(ecc,"secp256r1",fortuna)
    If CkEcc::ckLastMethodSuccess(ecc) <> 1
        Debug CkEcc::ckLastErrorText(ecc)
        CkGlobal::ckDispose(chilkatGlob)
        CkPrng::ckDispose(fortuna)
        CkEcc::ckDispose(ecc)
        ProcedureReturn
    EndIf

    Debug CkPrivateKey::ckGetXml(privKey)

    ;  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","myPemFiles/eccKey123.pem")
    If success <> 1
        Debug CkPrivateKey::ckLastErrorText(privKey)
    EndIf

    CkPrivateKey::ckDispose(privKey)

    Debug "finished."


    CkGlobal::ckDispose(chilkatGlob)
    CkPrng::ckDispose(fortuna)
    CkEcc::ckDispose(ecc)


    ProcedureReturn
EndProcedure