VBScript

RIPEMD Hash a String

See more Encryption Examples

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

set crypt = CreateObject("Chilkat.Crypt2")

content = "abcdefghijklmnopqrstuvwxyz"

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

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

hashStr = crypt.HashStringENC(content)

outFile.WriteLine(hashStr)

' The output is:
' FD2AA607F71DC8F510714922B371834E

crypt.HashAlgorithm = "ripemd160"
hashStr = crypt.HashStringENC(content)
outFile.WriteLine(hashStr)

' The output is:
' F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

crypt.HashAlgorithm = "ripemd256"
hashStr = crypt.HashStringENC(content)
outFile.WriteLine(hashStr)

' The output is:
' 649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

crypt.HashAlgorithm = "ripemd320"
hashStr = crypt.HashStringENC(content)
outFile.WriteLine(hashStr)

' The output is:
' CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B00

outFile.Close