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.

SVN Error: Can’t open ‘temp/tempfile.tmp’: Access is denied

Was trying to check in a new folder but got rejected with the error as per subject. Searching through Google found out the error was infamous with McAfee due to file-protection. If you’ve access to McAfee, you probably might want to disable it first, then reactivate it after SVN check in. But if that is not possible, like in my case due to company policy and access right, I am left for other alternate option.

I am checking in subfolder by subfolders and apparently this could work. Not sure if there is a better way but if anyone have had this fixed previously, do share here.

Thanks.

Written by admin on December 27th, 2011 with no comments.
Read more articles on Programming and Web.

« Older articles

No newer articles