Hash Algorithms: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

How to create hashes (message digests) for strings.

Download Chilkat Crypt ActiveX

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    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
        PRINT 'Crypt component unlock failed'
        RETURN
      END

    DECLARE @s nvarchar(4000)

    SELECT @s = 'The quick brown fox jumps over the lazy dog'

    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha1'
    EXEC sp_OASetProperty @crypt, 'EncodingMode', 'hex'

    --  Other possible EncodingMode settings are:
    --  "quoted-printable", "base64", and "url"

    DECLARE @hash nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'SHA1:'
    PRINT @hash

    --  Hash using MD2
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'md2'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'MD2:'
    PRINT @hash

    --  Hash using MD5
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'md5'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'MD5:'
    PRINT @hash

    --  Hash using SHA-256
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha256'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'SHA256:'
    PRINT @hash

    --  Hash using SHA-384
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha384'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'SHA384:'
    PRINT @hash

    --  Hash using SHA-512
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha512'
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'SHA512:'
    PRINT @hash

    --  Hash using HAVAL
    --  There are two additional properties relevant to HAVAL:
    --  HavalRounds, and KeyLength.
    --  HavalRounds can have values of 3, 4, or 5.
    --  KeyLength can have values of 128, 160, 192, 224, or 256
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'haval'
    EXEC sp_OASetProperty @crypt, 'HavalRounds', 5
    EXEC sp_OASetProperty @crypt, 'KeyLength', 256
    EXEC sp_OAMethod @crypt, 'HashStringENC', @hash OUT, @s
    PRINT 'Haval:'
    PRINT @hash

    --  Hashes for "The quick brown fox jumps over the lazy dog"

    --  SHA1:
    --  2FD4E1C67A2D28FCED849EE1BB76E7391B93EB12

    --  MD2:
    --  03D85A0D629D2C442E987525319FC471

    --  MD5:
    --  9E107D9D372BB6826BD81D3542A419D6

    --  SHA256:
    --  D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592

    --  SHA384:
    --  CA737F1014A48F4C0B6DD43CB177B0AFD9E5169367544C494011E3317DBF9A509CB1E5DC1E85A941BBEE3D7F2AFBC9B1

    --  SHA512:
    --  07E547D9586F6A73F73FBAC0435ED76951218FB7D0C8D788A309D785436BBB642E93A252A954F23912547D1E8A3B5ED6E1BFD7097821233FA0538F3DB854FEE6

    --  Haval:
    --  B89C551CDFE2E06DBD4CEA2BE1BC7D557416C58EBB4D07CBC94E49F710C55BE4

END
GO