比如
Dim str = "qqqq"Dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5")msgbox(s)