PureBasic

secp256k1 Key Generation and Keccak-256

See more ECC Examples

Starting in v11.0.0, Chilkat supports both secp256k1 key generation and Keccak-256 directly. These algorithms are typically used for Bitcoin and Ethereum. PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkEcc.pb"
IncludeFile "CkPrng.pb"
IncludeFile "CkPrivateKey.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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 ECDSA 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 ECDSA private key on the secp256k1 curve.
    privKey.i = CkPrivateKey::ckCreate()
    If privKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    Debug "Successfully generated a sec256k1 key."

    ; Show how to compute the Keccak-256 hash in a few ways.
    sb.i = CkStringBuilder::ckCreate()
    If sb.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sb,"hello")

    Debug "keccak-256: " + CkStringBuilder::ckGetHash(sb,"keccak-256","hex_lower","utf-8")

    ; Output:
    ; keccak-256: 1c8aff950685c2ed4bc3174f3472287b56d9517b9c948127319a09a7a36deac8

    ; To keccak-256 hash binary data
    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckAppendEncoded(bd,"00010203040506","hex")

    Debug "keccak-256: " + CkBinData::ckGetHash(bd,"keccak-256","hex_lower")

    ; Output:
    ; keccak-256: 801560412425120fa609be232d6fa71c7f64f42aee7977267687dcc0a2f5aa63


    CkPrng::ckDispose(fortuna)
    CkEcc::ckDispose(ecc)
    CkPrivateKey::ckDispose(privKey)
    CkStringBuilder::ckDispose(sb)
    CkBinData::ckDispose(bd)


    ProcedureReturn
EndProcedure