IAuthenticationStandardUser.ComparePassword(String) Method

XAF_how-to-allow-a-user-to-select-the-authentication-type-at-runtime-e2371/CS/Solution73.Module/Authentication.cs#L80

IAuthenticationStandardUser user = (IAuthenticationStandardUser)objectSpace.FindObject(UserType, new BinaryOperator("UserName", logonParameters.UserName));
if (user == null || !user.ComparePassword(logonParameters.Password)) {
    throw new AuthenticationException(logonParameters.UserName, SecurityExceptionLocalizer.GetExceptionMessage(SecurityExceptionId.RetypeTheInformation));

XAF_how-to-allow-a-user-to-select-the-authentication-type-at-runtime-e2371/VB/Solution73.Module/Authentication.vb#L108

Dim user As IAuthenticationStandardUser = DirectCast(objectSpace.FindObject(UserType, New BinaryOperator("UserName", fLogonParameters.UserName)), IAuthenticationStandardUser)
If user Is Nothing OrElse (Not user.ComparePassword(fLogonParameters.Password)) Then
    Throw New AuthenticationException(fLogonParameters.UserName, SecurityExceptionLocalizer.GetExceptionMessage(SecurityExceptionId.RetypeTheInformation))

XAF_how-to-implement-a-security-system-user-based-on-an-existing-business-class-ef-t390221/VB/ImplementCustomUserBasedOnExistingClassEF.Module/BusinessObjects/Employee.vb#L48

Public Property StoredPassword() As String
Private Function IAuthenticationStandardUser_ComparePassword(ByVal password As String) As Boolean Implements IAuthenticationStandardUser.ComparePassword
    Dim passwordCryptographer As New PasswordCryptographer()

XAF_how-to-implement-a-security-system-user-based-on-an-existing-business-class-xpo-e4160/VB/EmployeeAsUserExample.Module/BusinessObjects/Employee.vb#L88

    Public Function ComparePassword(ByVal password As String) As Boolean _
Implements IAuthenticationStandardUser.ComparePassword
        Return PasswordCryptographer.VerifyHashedPasswordDelegate(Me.StoredPassword, password)