[VB.NET]MD5

<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

Function GetMd5Hash(ByVal input As String, ByVal coda As Integer) As String

        Dim md5Hasher As New MD5CryptoServiceProvider()

        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))

        Dim sBuilder As New StringBuilder()

        Dim i As Integer

        If coda = 16 Then

            For i = 4 To 11

                sBuilder.Append(data(i).ToString("x2"))

            Next i

        Else '32位

            For i = 0 To 15

                sBuilder.Append(data(i).ToString("x2"))

            Next i

        End If

        Return sBuilder.ToString()

End Function

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />