Private Function phpmd5(ByVal s As String) As String
 
        Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
 
        Dim v() As Byte = md5.ComputeHash(System.Text.Encoding.UTF8.GetBytes(s))
        md5.Clear()
        Dim md5str As String = String.Empty
        For Each b As Byte In v
            md5str &= b.ToString("X2").ToLower()
        Next
        Return md5str
 
End Function