(SQL Server) Hash File: SHA-1, HAVAL, MD2, MD5, SHA-256, SHA-384, SHA-512

Computing the hash for a file of any size.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- This example assumes the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @crypt int
    -- Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Any type of file may be hashed.
    -- There is  no size limitation because the file is consumed
    -- in streaming mode internally.
    DECLARE @filename nvarchar(4000)

    SELECT @filename = 'something.zip'

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

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

    DECLARE @hash nvarchar(4000)
    EXEC sp_OAMethod @crypt, 'HashFileENC', @hash OUT, @filename

    PRINT 'SHA1:'

    PRINT @hash

    -- Hash using MD2
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'md2'
    EXEC sp_OAMethod @crypt, 'HashFileENC', @hash OUT, @filename

    PRINT 'MD2:'

    PRINT @hash

    -- Hash using MD5
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'md5'
    EXEC sp_OAMethod @crypt, 'HashFileENC', @hash OUT, @filename

    PRINT 'MD5:'

    PRINT @hash

    -- Hash using SHA-256
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha256'
    EXEC sp_OAMethod @crypt, 'HashFileENC', @hash OUT, @filename

    PRINT 'SHA256:'

    PRINT @hash

    -- Hash using SHA-384
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha384'
    EXEC sp_OAMethod @crypt, 'HashFileENC', @hash OUT, @filename

    PRINT 'SHA384:'

    PRINT @hash

    -- Hash using SHA-512
    EXEC sp_OASetProperty @crypt, 'HashAlgorithm', 'sha512'
    EXEC sp_OAMethod @crypt, 'HashFileENC', @hash OUT, @filename

    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, 'HashFileENC', @hash OUT, @filename

    PRINT 'Haval:'

    PRINT @hash

    EXEC @hr = sp_OADestroy @crypt


END
GO