IPasswordHistory.Insert

Синтаксис

Insert(PasswordHash: String);

Параметры

PasswordHash - пользовательский пароль, который был хэширован.

Описание

Метод Insert осуществляет добавление пароля в начало истории.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором «Button1», компонента EditBox с идентификатором «EditBox1» и компонента Memo с идентификатором «Memo1». Пример выполняется при нажатии на кнопку.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

Mb: IMetabase;

MbUser: IMetabaseUser;

MbSecurity: IMetabaseSecurity;

HashP: String;

MbPassHistory: IPasswordHistory;

Begin

Mb := MetabaseClass.Active;

MbSecurity := Mb.Security;

MbUser := MbSecurity.ResolveName("ADMIN") As IMetabaseUser;

HashP := MbSecurity.HashPassword(EditBox1.Text);

MbPassHistory := MbUser.PasswordHistory;

If MbPassHistory.Contains(HashP) Then

Memo1.Lines.Add("Пароль '" + EditBox1.Text + "' уже содержится в истории");

Else MbPassHistory.Insert(HashP);

Memo1.Lines.Add("Пароль '" + EditBox1.Text + "' добавлен в историю");

End If;

MbSecurity.Apply;

End Sub Button1OnClick;

После выполнения примера пароль, введенный пользователем в компонент EditBox, будет проверен на вхождение в историю паролей. Результат проверки будет выведен в компонент Memo.

См. также:

IPasswordHistory