.net中的md5函数

 

     Public   Function  md5( ByVal   str   As   String ,  ByVal  code  As   Integer )  As   String
         ' ---------传说中的MD5加密
         If  code  =   16   Then
             Return  System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile( str ,  " MD5 " ).ToLower().Substring( 8 ,  16 )
         ElseIf  code  =   32   Then
             Return  System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile( str ,  " MD5 " )
         Else
             Return   " 00000000000000000000000000000000 "
         End   If
     End Function