'Get a string MD5 format
Function GETMD5 (Byval Strign As String) AS String
Return System.Web.Security.FormsAuthentication.HashPasswordforstoringInfigfile (Strvalue, "MD5")
END FUNCTION