Year Of Dragon!

May the Dragon Year shower all with Happiness, Success and Prosperity!

Gong Xi Fa Cai

Written by admin on January 24th, 2012 with no comments.
Read more articles on Entertainment.

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

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

« Older articles

No newer articles