Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2013, 23:07   #1
Чайничек.
Пользователь
 
Регистрация: 07.06.2011
Сообщений: 11
По умолчанию мандатная политика безопасности. назначить рандомно уровни

нужно назначить объектам уровни конфиденциальности (случайно). не подскажете как? вот небольшая часть моего кода
Код:
var i:byte;
begin
	ClrScr;
	initObjs;
	writeln ('УРОВНИ ДОПУСКА ПОЛЬЗОВАТЕЛЕЙ : ');
	writeln ('Пользователь системы: General | ОВ   | ');
	writeln ('Пользователь системы: Boss    | СС   | ');
	writeln ('Пользователь системы: Admin   | С    | ');
	writeln ('Пользователь системы: Sec     | ДСП  | '); 
	writeln ('Пользователь системы: Ghost   | НС   | ');
	writeln;
	writeln ('УРОВНИ КОНФИДЕНЦИАЛЬНОСТИ ОБЪЕКТОВ : ');  //тут то и нужно что-то делать
	
	repeat
	
	
		write('User:\ ');
		readln(com);
		if (com = 'quit\') then
			Break;
		if isUser(com) then begin
			Msg('Login complete. User:\ ' + cu.Name + '  Level:\ ' + SecLevels[cu.Level]);
			Process;
		end else begin
			Msg('Доступ запрещен.\');
		end;
	until false;
	Msg('Finish.\');
end.
Чайничек. вне форума Ответить с цитированием
Старый 15.04.2013, 21:53   #2
PathTheir
Пользователь
 
Аватар для PathTheir
 
Регистрация: 14.04.2013
Сообщений: 62
По умолчанию

Я так понимаю, что делать вы это будете в initObjs для cu.Level

В начале процедуры указываете Randomize; - инициализацию генератора псевдо-случайных чисел.
Затем присваиваете cu.Level такое значение Random(x) + 1, где будет сгенерировано число от 1 до x включительно
PathTheir вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Политика безопасности Незлобин Безопасность, Шифрование 4 13.12.2012 13:52
уровни в БД Deniska12 Помощь студентам 1 21.03.2012 12:08
уровни Deniska12 PHP 1 21.03.2012 11:56
Уровни доступа linux Hemul PHP 0 24.08.2011 17:33
Текущая политика безопасности не позволяет получать доступ к файловой системе. JavaScript studenth JavaScript, Ajax 12 06.10.2007 13:04