PowerBuilder

Generate an ECDSA Key

See more ECC Examples

Demonstrates how to generate an ECDSA key. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Fortuna
string ls_Entropy
oleobject loo_Ecc
oleobject loo_PrivKey

li_Success = 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.
loo_Fortuna = create oleobject
li_rc = loo_Fortuna.ConnectToNewObject("Chilkat.Prng")
if li_rc < 0 then
    destroy loo_Fortuna
    MessageBox("Error","Connecting to COM object failed")
    return
end if
ls_Entropy = loo_Fortuna.GetEntropy(32,"base64")
li_Success = loo_Fortuna.AddEntropy(ls_Entropy,"base64")

loo_Ecc = create oleobject
li_rc = loo_Ecc.ConnectToNewObject("Chilkat.Ecc")

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

loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_Ecc.GenKey("secp256r1",loo_Fortuna,loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Ecc.LastErrorText
    destroy loo_Fortuna
    destroy loo_Ecc
    destroy loo_PrivKey
    return
end if

Write-Debug loo_PrivKey.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.)
li_Success = loo_PrivKey.SavePkcs8EncryptedPemFile("pemPassword","myPemFiles/eccKey123.pem")
if li_Success <> 1 then
    Write-Debug loo_PrivKey.LastErrorText
end if

Write-Debug "finished."


destroy loo_Fortuna
destroy loo_Ecc
destroy loo_PrivKey