ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Лабораторная работа №2. Тема: Работа по установлению подлинности объектов.
Тема: Работа по установлению подлинности объектов.
Цель: Выработка навыков применения методов аутентификации при доступе к программам и информации, подлежащей защите
Отчет:
1. Разработали форму для ввода пароля для входа в программу.
Если пароль неверный, то программа закрывается. Если пароль верный,то открывается форма для аутентификация пользователя с целью доступа к информации. Предусмотрели возможность для троекратного ввода неправильного пароля
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if form3.Table1.locate('Login;Parol',vararrayof([Edit1.Text,Edit2.Text]),[])
then
begin
form4.table1.append;
form4.table1.fieldbyname('Namesab').value:='вход в систему';
form4.table1.fieldbyname('Login').value:=edit1.text;
form4.table1.fieldbyname('Data').value:=now();
form4.table1.fieldbyname('Vremy').value:=time();
form4.table1.post;
form4.table1.refresh;
form4.table1.refresh;
form4.table1.refresh;
form2.Show;
form1.visible:=false;
end;
if not form3.Table1.locate('Login;Parol',vararrayof([Edit1.Text,Edit2.Text]),[])
then
begin
i:=i+1;
if i=1 then
begin
form4.table1.append;
form4.table1.fieldbyname('Namesab').value:='вероятность НСД';
form4.table1.fieldbyname('Login').value:=edit1.text;
form4.table1.fieldbyname('Data').value:=now();
form4.table1.fieldbyname('Vremy').value:=time();
form4.table1.post;
form4.table1.refresh;
form4.table1.refresh;
form4.table1.refresh;
form1.edit1.clear;
form1.edit2.clear;
end;
if i=2 then
begin
form4.table1.append;
form4.table1.fieldbyname('Namesab').value:='вероятность НСД(2 попытка)';
form4.table1.fieldbyname('Login').value:=edit1.text;
form4.table1.fieldbyname('Data').value:=now();
form4.table1.fieldbyname('Vremy').value:=time();
form4.table1.post;
form4.table1.refresh;
form4.table1.refresh;
form4.table1.refresh;
form1.edit1.clear;
form1.edit2.clear;
end;
if i=3 then
begin
form4.table1.append;
form4.table1.fieldbyname('Namesab').value:='вероятность НСД';
form4.table1.fieldbyname('Login').value:=edit1.text;
form4.table1.fieldbyname('Data').value:=now();
form4.table1.fieldbyname('Vremy').value:=time();
form4.table1.post;
form4.table1.refresh;
form4.table1.refresh;
form4.table1.refresh;
form1.edit1.clear;
form1.edit2.clear;
form1.Close;
end;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=0;
end;
end.
2. Форму для аутентификации пользователя с целью доступа к информации, подлежащей защите.
3. Форму,содержащую возможности доступа к информации, подлежащей защите
Не нашли, что искали? Воспользуйтесь поиском: