Xbase++ Requires Chilkat v11.0.0+

Generate ECDSA Key and Get Details as XML

See more ECC Examples

Demonstrates how to generate an ECDSA key and gets the parts as XML. Xbase++

LOCAL nSuccess
LOCAL oEcc
LOCAL oFortuna
LOCAL cEntropy
LOCAL oPrivKey
LOCAL oAsn
LOCAL oXml
LOCAL oCrypt
LOCAL cPrivKeyHex

nSuccess := 0

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

oEcc := CreateObject("Chilkat.Ecc")

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

//  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")

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

//  An EC private key has this ASN.1
//  ECPrivateKey ::= SEQUENCE {
//      version        INTEGER { ecPrivkeyVer1(1) } (ecPrivkeyVer1),
//      privateKey     OCTET STRING,
//      parameters [0] ECParameters {{ NamedCurve }} OPTIONAL,
//      publicKey  [1] BIT STRING OPTIONAL (This is the ANSI X9.63 public key format.)

oAsn := CreateObject("Chilkat.Asn")
nSuccess := oAsn:LoadEncoded(oPrivKey:GetPkcs1ENC("base64"), "base64")
IF (nSuccess != 1)
    ? oAsn:LastErrorText
    oEcc:destroy()
    oFortuna:destroy()
    oPrivKey:destroy()
    oAsn:destroy()
    RETURN
ENDIF

oXml := CreateObject("Chilkat.Xml")
oXml:LoadXml(oAsn:AsnToXml())

? oXml:GetXml()

//  The XML looks like this:
//  <?xml version="1.0" encoding="utf-8" ?>
//  <sequence>
//      <int>01</int>
//      <octets>JgJvBG+3wletkJab8iXAkpz0O8/AgWZSpkYVcB7SpnU=</octets>
//      <contextSpecific tag="0" constructed="1">
//          <oid>1.3.132.0.10</oid>
//      </contextSpecific>
//  </sequence>

//  The 32-byte private key is in the octets..
//  Get it as hex.
oCrypt := CreateObject("Chilkat.Crypt2")
cPrivKeyHex := oCrypt:ReEncode(oXml:GetChildContent("octets"), "base64", "hex")

? "EC private key as hex = " + cPrivKeyHex

oEcc:destroy()
oFortuna:destroy()
oPrivKey:destroy()
oAsn:destroy()
oXml:destroy()
oCrypt:destroy()