(Tcl) RIPEMD Hash a String

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

set content "abcdefghijklmnopqrstuvwxyz"

# The desired output is a hexidecimal string:
CkCrypt2_put_EncodingMode $crypt "hex"

# Set the hash algorithm:
CkCrypt2_put_HashAlgorithm $crypt "ripemd128"

set hashStr [CkCrypt2_hashStringENC $crypt $content]

puts "$hashStr"

# The output is:
# FD2AA607F71DC8F510714922B371834E

CkCrypt2_put_HashAlgorithm $crypt "ripemd160"
set hashStr [CkCrypt2_hashStringENC $crypt $content]
puts "$hashStr"

# The output is:
# F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

CkCrypt2_put_HashAlgorithm $crypt "ripemd256"
set hashStr [CkCrypt2_hashStringENC $crypt $content]
puts "$hashStr"

# The output is:
# 649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

CkCrypt2_put_HashAlgorithm $crypt "ripemd320"
set hashStr [CkCrypt2_hashStringENC $crypt $content]
puts "$hashStr"

# The output is:
# CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B00

delete_CkCrypt2 $crypt