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

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @crypt int
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    --  Any string argument automatically begins the 30-day trial.
    DECLARE @success int

    EXEC sp_OAMethod @crypt, 'UnlockComponent', @success OUT, '30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @crypt, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    DECLARE @content nvarchar(4000)

    SELECT @content = 'abcdefghijklmnopqrstuvwxyz'

    --  The desired output is a hexidecimal string:
    EXEC sp_OASetProperty @crypt, 'EncodingMode', 'hex'

    --  Set the hash algorithm:
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'ripemd128'

    DECLARE @hashStr nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'HashStringENC', @hashStr OUT, @content


    PRINT @hashStr

    --  The output is:
    --  FD2AA607F71DC8F510714922B371834E

    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'ripemd160'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hashStr OUT, @content

    PRINT @hashStr

    --  The output is:
    --  F71C27109C692C1B56BBDCEB5B9D2865B3708DBC

    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'ripemd256'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hashStr OUT, @content

    PRINT @hashStr

    --  The output is:
    --  649D3034751EA216776BF9A18ACC81BC7896118A5197968782DD1FD97D8D5133

    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'ripemd320'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hashStr OUT, @content

    PRINT @hashStr

    --  The output is:
    --  CABDB1810B92470A2093AA6BCE05952C28348CF43FF60841975166BB40ED234004B8824463E6B009

END
GO