Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
Evaluate(Operation: Integer): ABACEvaluateResult;
Operation. Значение основной или специфической операции над объектом. Списки кодов специфических операций содержатся в перечислениях сборки Metabase.
Примечание. Если в цели задан атрибут среды окружения «OPERATION» с условием «IN», то параметр может принимать значение дочерней операции. Например, в цели атрибутного доступа задана операция «2 - Чтение», тогда параметр метода может принимать значение «256 - Чтение дескриптора».
Метод Evaluate возвращает результат доступа субъекта к объекту.
Если в цели задан атрибут среды окружения «OPERATION» с условием «IN», то для вычисления метода Evaluate используйте метод IABACEngine.SetOperations, иначе задайте значение переменной «Operation» аналогично значению в цели атрибутного доступа.
Для выполнения примера должны выполняться условия:
в менеджере безопасности содержится хотя бы один пользователь;
для пользователей добавлен атрибут с идентификатором «ATTR1» и типом данных «Целый»;
в репозитории содержится объект с ключом «12254»;
в структуре атрибутного доступа есть правило:
цель: «OPERATION IN 2»;
условие: «SUBJECT.ATTR1 = 123»;
эффект: разрешить;
вся структура атрибутного доступа переопределена разрешением. Если хотя бы один из результатов вычисления вернет разрешение, то доступ пользователю на выполнение операции над объектом будет разрешен.
Добавьте ссылки на системные сборки: ABAC, Metabase.
Public Class Callback:Object, IABACEvaluateCallback
Public Function AttrValue(Id: String; Var Success: Boolean): Object;
Begin
Success := False;
Return Null;
End Function AttrValue;
Public Function AttrValueRaw(Id:String; Var Result:Variant):Boolean;
Var
Success: Boolean;
Begin
If Id = "ATTR1" Then
Result := 123;
Success := True;
Else
Success := False;
End If;
Return Success;
End Function AttrValueRaw;
End Class Callback;
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Calb: Callback;
Engine: IABACEngine;
Res: ABACEvaluateResult;
User, Obj, Env: IABACAttributeInstances;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
// Получим атрибуты среды окружения
Env := MS.EnvironmentAttributes;
// Получим атрибуты первого пользователя и объекта с ключом «12254»
User := MS.Users.Item(0).Attributes;
Obj := MB.Root.Children.FindByKey(12254).Attributes;
// Выведем в консоль наименование полученного пользователя и объекта
Debug.WriteLine("Пользователь: " + MS.Users.Item(0).Name);
Debug.WriteLine("Объект: " + MB.Root.Children.FindByKey(12254).Name);
// Зададим методы для вычисления доступа пользователя к объекту
Engine := New ABACEngine.Create;
Engine.SetEnvironment(Env);
Engine.SetParams(User, Obj);
Engine.SetCallback(Calb);
Engine.SetOperations(2,4,1);
// Зададим структуру атрибутного доступа, которая содержится в менеджере безопасности
Engine.SetPolicy(MB.Security.Policy.ABACRules);
// Проверим доступ на чтение дескриптора объекта и выведем результат в консоль
Res := Engine.Evaluate(256);
Select Case Res As Integer
Case 0: Debug.WriteLine("Доступ не определен");
Case 1: Debug.WriteLine("Правило не применимо");
Case 2: Debug.WriteLine("Доступ разрешен");
Case 3: Debug.WriteLine("Доступ запрещен");
End Select;
End Sub UserProc;
В результате выполнения примера:
При проверке цели атрибутного доступа будет найден атрибут «ATTR1» без заданного значения.
Вычислитель обратится к функции AttrValue для получения значения атрибута «123».
Проверяется условие после успешного выполнения цели. Условие выполняется при найденном атрибуте «ATTR1» со значением «123».
Чтение дескриптора объекта доступно для пользователя.
В консоль будет выведен результат доступа:
Пользователь: ADMIN
Объект: Системные объекты
Доступ разрешен
См. также: