(DataFlex) RIPEMD Hash a String

Demonstrates how to RIPEMD hash a string using RIPEMD-128, RIPEMD-160, RIPEMD-256, and RIPEMD-320.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sContent
    String sHashStr

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

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

    Move "abcdefghijklmnopqrstuvwxyz" To sContent

    // The desired output is a hexidecimal string:
    Set ComEncodingMode Of hoCrypt To "hex"

    // Set the hash algorithm:
    Set ComHashAlgorithm Of hoCrypt To "ripemd128"

    Get ComHashStringENC Of hoCrypt sContent To sHashStr

    Showln sHashStr

    // The output is:
    // FD2AA607F71DC8F510714922B371834E

    Set ComHashAlgorithm Of hoCrypt To "ripemd160"
    Get ComHashStringENC Of hoCrypt sContent To sHashStr
    Showln sHashStr

    // The output is:
    // F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

    Set ComHashAlgorithm Of hoCrypt To "ripemd256"
    Get ComHashStringENC Of hoCrypt sContent To sHashStr
    Showln sHashStr

    // The output is:
    // 649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

    Set ComHashAlgorithm Of hoCrypt To "ripemd320"
    Get ComHashStringENC Of hoCrypt sContent To sHashStr
    Showln sHashStr

    // The output is:
    // CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B00


End_Procedure