(DataFlex) 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.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vFortuna
    Handle hoFortuna
    String sEntropy
    Boolean iSuccess
    Handle hoEcc
    Variant vPrivKey
    Handle hoPrivKey
    Handle hoSb
    Handle hoBd
    String sTemp1
    Boolean bTemp1

    // 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.
    Get Create (RefClass(cComChilkatPrng)) To hoFortuna
    If (Not(IsComObjectCreated(hoFortuna))) Begin
        Send CreateComObject of hoFortuna
    End
    Get ComGetEntropy Of hoFortuna 32 "base64" To sEntropy
    Get ComAddEntropy Of hoFortuna sEntropy "base64" To iSuccess

    Get Create (RefClass(cComChilkatEcc)) To hoEcc
    If (Not(IsComObjectCreated(hoEcc))) Begin
        Send CreateComObject of hoEcc
    End

    // Generate a random ECDSA private key on the secp256k1 curve.
    Get pvComObject of hoFortuna to vFortuna
    Get ComGenEccKey Of hoEcc "secp256k1" vFortuna To vPrivKey
    If (IsComObject(vPrivKey)) Begin
        Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
        Set pvComObject Of hoPrivKey To vPrivKey
    End
    Get ComLastMethodSuccess Of hoEcc To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoEcc To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Successfully generated a sec256k1 key."

    Send Destroy of hoPrivKey

    // Show how to compute the Keccak-256 hash in a few ways.
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End
    Get ComAppend Of hoSb "hello" To iSuccess

    Get ComGetHash Of hoSb "keccak-256" "hex_lower" "utf-8" To sTemp1
    Showln "keccak-256: " sTemp1

    // Output:
    // keccak-256: 1c8aff950685c2ed4bc3174f3472287b56d9517b9c948127319a09a7a36deac8

    // To keccak-256 hash binary data
    Get Create (RefClass(cComChilkatBinData)) To hoBd
    If (Not(IsComObjectCreated(hoBd))) Begin
        Send CreateComObject of hoBd
    End
    Get ComAppendEncoded Of hoBd "00010203040506" "hex" To iSuccess

    Get ComGetHash Of hoBd "keccak-256" "hex_lower" To sTemp1
    Showln "keccak-256: " sTemp1

    // Output:
    // keccak-256: 801560412425120fa609be232d6fa71c7f64f42aee7977267687dcc0a2f5aa63


End_Procedure