IMetabaseSecurity.HashPassword

Синтаксис

HashPassword(Password: String): String;

Параметры

Password - пароль, который должен быть хеширован.

Описание

Метод HashPassword осуществляет хэширование пароля.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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.

См. также:

IMetabaseSecurity