Dim Hash As Byte() = _
new System.Security.Cryptography.MD5CryptoServiceProvider().ComputeHash(arg)
Dim i As Long
Dim RetStr As String = ""
For i = 0 To UBound(Hash)
RetStr &= Format(Hash(i), "00")
Next
Return RetStr
출처 : http://blog.naver.com/gewehr43?Redirect=Log&logNo=100035915336
