Convert string to MD5 hash

Thought this could be useful in near future, reposting this for my own reference:

‘ calculate the MD5 hash of a given string
‘ the string is first converted to a byte array
Public Function MD5CalcString(ByVal strData As String) As String

Dim objMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim arrData() As Byte
Dim arrHash() As Byte

‘ first convert the string to bytes (using UTF8 encoding for unicode characters)
arrData = System.Text.Encoding.UTF8.GetBytes(strData)

‘ hash contents of this byte array
arrHash = objMD5.ComputeHash(arrData)

‘ thanks objects
objMD5 = Nothing

‘ return formatted hash
Return ByteArrayToString(arrHash)

End Function

‘ utility function to convert a byte array into a hex string
Private Function ByteArrayToString(ByVal arrInput() As Byte) As String

Dim strOutput As New System.Text.StringBuilder(arrInput.Length)

For i As Integer = 0 To arrInput.Length – 1
strOutput.Append(arrInput(i).ToString(“X2″))
Next

Return strOutput.ToString().ToLower

End Function

Keywords:

Written by admin on January 5th, 2012 with no comments.
Read more articles on Personal and Programming and Web.

Related articles

No comments

There are still no comments on this article.

Leave your comment...

If you want to leave your comment on this article, simply fill out the next form:




You can use these XHTML tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> .