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

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    // 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 Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End
    Get pvComObject of hoFortuna to vFortuna
    Get pvComObject of hoPrivKey to vPrivKey
    Get ComGenKey Of hoEcc "secp256k1" vFortuna vPrivKey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEcc To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Successfully generated a sec256k1 key."

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