snipplrCallback({"title":"VB.NET md5 Hash","source":"
  1. Public<\/span> Function<\/span> MD5(<\/span>ByVal<\/span> str<\/span> As<\/span> String<\/span>)<\/span> As<\/span> String<\/span><\/div><\/li>
  2.         Dim<\/span> ASCIIenc As<\/span> New<\/span> ASCIIEncoding<\/div><\/li>
  3.         Dim<\/span> strReturn<\/div><\/li>
  4.         Dim<\/span> ByteSource(<\/span>)<\/span> As<\/span> Byte<\/span> =<\/span> ASCIIenc.GetBytes<\/span>(<\/span>str<\/span>)<\/span><\/div><\/li>
  5.         Dim<\/span> Md5Hash As<\/span> New<\/span> MD5CryptoServiceProvider<\/div><\/li>
  6.         Dim<\/span> ByteHash(<\/span>)<\/span> As<\/span> Byte<\/span> =<\/span> Md5Hash.ComputeHash<\/span>(<\/span>ByteSource)<\/span><\/div><\/li>
  7.         For<\/span> Each<\/span> b As<\/span> Byte<\/span> In ByteHash<\/div><\/li>
  8.             strReturn &=<\/span> b.ToString<\/span>(<\/span>"x2"<\/span>)<\/span><\/div><\/li>
  9.         Next<\/span><\/div><\/li>
  10.         Return<\/span> strReturn<\/div><\/li>
  11.     End<\/span> Function<\/span><\/div><\/li><\/ol><\/pre>","link":"http:\/\/snipplr.com\/view\/33680\/vbnet-md5-hash\/","id":"33680"});