RIPEMD Hash a String

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

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcContent
LOCAL lcHashStr

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCrypt.LastErrorText)
    QUIT
ENDIF

lcContent = "abcdefghijklmnopqrstuvwxyz"

*  The desired output is a hexidecimal string:
loCrypt.EncodingMode = "hex"

*  Set the hash algorithm:
loCrypt.HashAlgorithm = "ripemd128"

lcHashStr = loCrypt.HashStringENC(lcContent)

? lcHashStr

*  The output is:
*  FD2AA607F71DC8F510714922B371834E

loCrypt.HashAlgorithm = "ripemd160"
lcHashStr = loCrypt.HashStringENC(lcContent)
? lcHashStr

*  The output is:
*  F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

loCrypt.HashAlgorithm = "ripemd256"
lcHashStr = loCrypt.HashStringENC(lcContent)
? lcHashStr

*  The output is:
*  649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

loCrypt.HashAlgorithm = "ripemd320"
lcHashStr = loCrypt.HashStringENC(lcContent)
? lcHashStr

*  The output is:
*  CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B009