RIPEMD Hash a String

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

Download: Chilkat .NET Assemblies

Dim crypt As New Chilkat.Crypt2()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = crypt.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox(crypt.LastErrorText)
    Exit Sub
End If


Dim content As String
content = "abcdefghijklmnopqrstuvwxyz"

'  The desired output is a hexidecimal string:
crypt.EncodingMode = "hex"

'  Set the hash algorithm:
crypt.HashAlgorithm = "ripemd128"

Dim hashStr As String
hashStr = crypt.HashStringENC(content)

TextBox1.Text = TextBox1.Text & hashStr & vbCrLf

'  The output is:
'  FD2AA607F71DC8F510714922B371834E

crypt.HashAlgorithm = "ripemd160"
hashStr = crypt.HashStringENC(content)
TextBox1.Text = TextBox1.Text & hashStr & vbCrLf

'  The output is:
'  F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

crypt.HashAlgorithm = "ripemd256"
hashStr = crypt.HashStringENC(content)
TextBox1.Text = TextBox1.Text & hashStr & vbCrLf

'  The output is:
'  649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

crypt.HashAlgorithm = "ripemd320"
hashStr = crypt.HashStringENC(content)
TextBox1.Text = TextBox1.Text & hashStr & vbCrLf

'  The output is:
'  CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B009