Computing Hash for SHA1

I have received a question asking for How I can compute a SHA1 hash.
You can use this function or similar to get 160bit hash.


    ' Computing Hash for SHA1
    Function SHA1(ByVal dataStream As StringAs Byte()
        Dim Ascii As New ASCIIEncoding
        Dim tmpsource(dataStream.Length) As Byte
        tmpsource = Ascii.GetBytes(dataStream)
        Dim sha As New SHA1CryptoServiceProvider()
        Return sha.ComputeHash(tmpsource)
    End Function

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.