quote:

---

Originally posted by GhostnetworksBut we can't use strict 2.0 models at least for a while,

---

quote:

---

since we're aiming to provide 1.1 backwards compatibility. Right now we're trying to emulate the same functionality in 1.1

---

quote:

---

I really like the DNN / PHPNuke integration idea, but right now we're having growing pains with just the Snitz implementaion

---

'## Overload of System.Web.Security for Membership Provider
'## Methods for commonly used Provider functions

Namespace System.Web.Security
	Public MustInherit Class MembershipProvider
		Inherits ProviderBase '## Base Provider abstract
		
		'## Login Method
		Public MustOverride Function Validate(ByVal UserName As String, ByVal Password As String) As Boolean
		
		'## Register new user
		Public MustOverride Sub CreateUser(ByVal Username As String, ByVal Password As String, ByVal Email As String)
		
		'## Delete user
		Public MustOverride Sub DeleteUser(ByVal Username As String, ByVal DeleteAllRelatedData As Boolean) As Boolean
		
		'## Restore login/posting privileges
		Public MustOverride Function UnlockUser(ByVal Username As String) As Boolean
		
		'## Update user/profile info
		Public MustOverride Sub UpdateUser(ByVal user As MembershipUser)
		
		'## Reset a user password
		Public MustOverride Function ChangePassword(ByVal Username As String, ByVal OldPassword As String, ByVal NewPassword As String) As Boolean
		
		'## Change the password question
		Public MustOverride Function ChangePasswordQuestionAndAnswer(ByVal Username As String, ByVal Password As String, ByVal NewPasswordQuestion As String, ByVal NewPasswordAnswer As String) As Boolean
		
		'## Maximum invalid password entries
		Public MustOverride ReadOnly Property MaxInvalidPasswordAttempts() As Integer
		
		'## Only one email per user
		Public MustOverride ReadOnly Property RequiresUniqueEmail() As Boolean
		
		'## Login attempt limit including passwords and user provided reminders
		Public MustOverride ReadOnly Property PasswordAttemptWindow() As Integer
		
		'## Get user by key/ID and online activity value
		Public MustOverride Function GetUser(ByVal providerUserKey As Object, ByVal userIsOnline As Boolean) As MembershipUser 
		
		'## Get user by name and online activity value
		Public MustOverride Function GetUser(ByVal username As String, ByVal userIsOnline As Boolean) As MembershipUser 
		
		'## Total users online
		Public MustOverride Function GetNumberOfUsersOnline() As Integer
		
		'## Find a specific user by email address
		Public MustOverride Function GetUserNameByEmail(ByVal Email As String) As String

		'## All Users
		Public MustOverride Function GetAllUsers(ByVal PageIndex As Integer, ByVal PageSize As Integer, ByRef TotalRecords As Integer) As MembershipUserCollection
		
		Protected Overridable Function EncryptPassword(ByVal password As Byte()) As Byte()
		'## Encryption Function
		End Function

	End Class
End Namespace

		'## Minimum allowed password length
		Public MustOverride ReadOnly Property MinRequiredPasswordLength() As Integer

'## Get user by key/ID and update online activity value
Public Shared Function GetUser(ByVal ProviderUserKey As Object, ByVal UserIsOnline As Boolean) As MembershipUser 
	Dim Provider As MembershipProvider = MembershipProvider.Instance
	Return Provider.GetUser(ProviderUserKey, UserIsOnline)
End Function

'## Get user by name and update online activity value
Public Shared Function GetUser(ByVal Username As String, ByVal UserIsOnline As Boolean) As MembershipUser
	Dim Provider As MembershipProvider = MembershipProvider.Instance
	Return Provider.GetUser(Username, UserIsOnline)
End Function