МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН
КАЗАХСКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ им. К.И. САТПАЕВА
ИНСТИТУТ ИНФОРМАЦИОННЫХ ТЕХНОЛОГИЙ
Кафедра Вычислительной техники
Лабораторная работа №3
Тема: ______________________________
№
|
Качество выполнения работы |
Диапазоноценки |
Получено,
%
|
1
|
Выполнение и активность обучающегося |
0 – 50% |
2
|
Оформление работы |
0 – 20% |
3
|
Умение пользоваться справочниками, технической литературой, учебно-методическим комплексом дисциплины, конспектами лекции |
0 – 5% |
4
|
Умение пользоваться техническими средствами |
0 – 5% |
5
|
Защита работы |
0 – 20% |
Итого: |
0 – 100% |
Проверила:
Мынбаева Л.Н.
Выполнила:
Исаханова Д.Е.
ВПбП-07-1р
Алматы 2009
Задание
:
Написать программу входа пользователем в систему через пароль. Язык программы - любой. Разработанная программа должна содержать следующие пункты: вход в систему через ввод и проверку пароля, а также регистрацию пользователя, при этом заносит имя и пароль пользователя в базу данных. При вводе неверного пароля – система блокируется.
Листинг программы:
unit
Unit
1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
StaticText1: TStaticText;
StaticText2: TStaticText;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Image1: TImage;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.dbedit1.Clear; form2.dbedit2.Clear;
form2.dbedit3.Clear; form2.dbedit4.Clear;
Form2.Edit1.Clear; Form2.Show;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form3.Show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, jpeg, ExtCtrls, Grids,
DBGrids, Buttons;
type
TForm2 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
StaticText1: TStaticText;
StaticText2: TStaticText;
DBEdit3: TDBEdit;
StaticText3: TStaticText;
StaticText4: TStaticText;
Edit1: TEdit;
Button1: TButton;
DBEdit4: TDBEdit;
StaticText5: TStaticText;
Button2: TButton;
Image1: TImage;
Button3: TButton;
Label1: TLabel;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.Text:=Inttostr(random(1000+2000));
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if DataModule4.AdoTable1.Modified then
DataModule4.AdoTable1.Post;
Close;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
DataModule4.adoTable1.Insert;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
Dbedit3.Text:=Edit1.Text;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, ShellApi;
type
TForm3 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Button2: TButton;
Image1: TImage;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
m: integer;
implementation
uses Unit1, Unit2, Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
if (datamodule4.AdoTable1.FieldValues['Пароль']= Edit2.Text) and
(datamodule4.AdoTable1.FieldValues['Имя']= Edit1.Text)
then
begin
Application.MessageBox('Вход в систему выполнен. Вы верно ввели данные');
ShellExecute(Handle, 'open','c:windowsnotepad.exe', nil, nil, SW_SHOWNORMAL);
end
else
begin
Application.MessageBox('Входвневыполнен. Вы не верно ввели данные');
Form3.Edit2.Clear;
m:=m+1;
end;
if (m=3) then
begin
Application.MessageBox(‘Вы 3 разаввелиневерныйпароль. Вход в систему будет заблокирован');
Close;
Form1.BitBtn2.Visible:=false;
end;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
m:=0;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Close;
end;
end.
Реализация:
Программа написана на Delphi.
Выберите действие:
Пользователь вводит данные о себе, выбирает пароль, и щелкает по кнопке Registration.
Затем на форме 1 выбирает действие Войти в систему.
Вводит свое имя и пароль.
И открывается приложение, в нашем случае – Блокнот.
База данных:
При неверном вводе пароля 3 раза:
Кнопка для входа в систему исчезает.
Другие работы по теме:
Электронные деньги ЯndexДеньги
Министерство транспорта и связи Украины Донецкий институт железнодорожного транспорта Кафедра «Учёт и аудит» Индивидуальная работа По дисциплине «Финансовый учёт»
Словари
Словари - справочники, которые предоставляют лингвистическую информацию о словах. Они могут быть категоризированы согласно типу пользователя, для которого они предназначены, их освещение, их цель, их принципы организации, и среда, в которой представлена информация.
Защита почтовых сообщений
Электронной почтой пользуются сотни тысяч людей, и большинство из них наивно полагают, что Интернет сохранит их переписку конфиденциальной.
Автозагрузка в Windows XP
Существует немало способов автозагрузки программ. Ниже приведены несколько вариантов для ознакомления, возможно это поможет вам, если возникнет необходимость найти и удалить какую-либо программу из автозагрузки.
Команды системного администратора
В этой статье собраны основные команды прописываемые в командной строке Windows NT/2000/XP для выполнения определенной сетевой функции.
Создание splash-заставки
Думаю многие знают, что такое splash-картинка, но все же поясню: это картинка, которая предшествует запуску основной программы и обычно отображается во время загрузки программы
Использование макросов для программирования в MS ACCESS
Постановка задачи. Использование макросов в конкретном приложении предлагается рассмотреть на примере следующей задачи. При открытии базы данных "АРМ FORMSNAVIGATOR 1.0" сначала на экран выводится приглашение к работе и затем открывается основное окно навигатора.
Bruteforce как средство передачи информации
Технология передачи информации за счет перебора представляет собой передачу относительно небольшого объема информации, возможно, дающей ключ к более широким перспективам. Например, мы можем себе представить перебор пароля на архив.
Информационная безопасность
Этические и правовые основы использования средств новых информационных технологий. Необходимость обеспечения информационной безопасности от компьютерных "взломов" банков, пиратства и распространения вирусов. Уровни защиты, выбор и установка пароля.
Защищенность выборки символов
Анализ вероятности входа в систему злоумышленником с одной и трех попыток. Вероятности входа в систему при фиксированной и случайной длине выборки. Исследование и расчет защищенности (надёжности) метода при подглядываниях. Оптимизация длины выборки.
Система передачи сообщений при непрерывной работе SMTP-сервера
Протокол для поддержания системы передачи сообщений, обеспечение непрерывной работы SMTP-сервера. Примеры использования команды LIST, работа через протокол POP3, особенности авторизации. Условия работы режима "обновление". Пример сеанса с POP3 сервером.
Разработка программы, генерирующей пароли пользователей
Количественная оценка стойкости пароля. Создание программы на базе разработанного алгоритма. Экспериментальная проверка количественных оценок стойкости пароля. Понятие и назначение интерфейса. Методы защиты от несанкционированного доступа к информации.
Разработка почтового клиента для операционной системы Windows
Доступ пользователей сети к электронным сообщениям, хранящимся на сервере. Описание программы, аутентификация простая, APOP и AUTH-аутентификация. Реализация функций, руководство пользователя, алгоритмы функционирования программы, графический интерфейс.
Разработка базы данных "Гостиничный комплекс"
Разработка и создание информационной базы данных в СУБД MS Access, которая будет содержать: сведения о гостинице; сведения о составе номеров в гостинице и обстановке в них; регистрацию покупателей в гостинице; ведение учета покупателей и данных о них.
Протокол TACASC+
Компоненты технологий, направленных на обеспечение безопасности данных. Аутентификация (с авторизацией), сохранение целостности данных, активная проверка установленной политики безопасности. Версии приложений и принцип работы сервера защиты TACACS.
Аутентификация пользователей
Трансляция полей формы. Метод аутентификации в Web как требование к посетителям предоставить имя пользователя и пароль. Форма для передачи данных. Использование базу данных для хранения паролей. Разработка сценарий для аутентификации посетителей.
Открытая Система Образовательных Тестов
Понятие и характеристика открытой системы образовательных тестов (ОСОТ). Ее преимущества и недостатки, их сущность. Алгоритм работы с системой, детальное описание процесса. Установка системы на сервер и ее использование. Изложение алгоритма решения.
Настройка механизмов контроля входа
Лабораторная Работа На тему: Настройка механизмов контроля входа 1. Теоретическое введение Настройка механизмов контроля входа осуществляется в несколько этапов, последовательность которых приведена в таблице 1.
Хеш-функции в криптосистемах
Саратовский Государственный Университет им. Н. Г. Чернышевского Курсовая работа «Хеш-функции в криптосистемах» Выполнил: студент 112гр. КниИТ Иванченко Е. С.
Команды системного администратора
В этой статье собраны основные команды прописываемые в командной строке Windows NT/2000/XP для выполнения определенной сетевой функции. Пример вида <имя> ,практически пишется как имя. Чтобы запустить командную строку необходимо нажать Пуск - Выполнить ввести "cmd" Enter или OK.
Управление пользователями и группами
Лабораторная Работа На тему: УПРАВЛЕНИЕ ПОЛЬЗОВАТЕЛЯМИ И ГРУППАМИ 1. Администратор безопасности компьютера Любой пользователь компьютера, при соблюдении перечисленных ниже условий, может быть назначен администратором безопасности компьютера по умолчанию:
Специальные функции архиватора RAR
Специальные функции архиватора Доклад подготовила Комарова М.И. Институт иформационных технологий СЕГРИС 2004 г. 1. Работа с в полноэкранном режиме. Работа с файлами
по Кибернетика
Содержание Задание на практику 2 Часть 1. Настроить файл-сервер в операционной системе Debian Linux 4.0 для небольшой компании 2 Часть 2. Настроить и протестировать Веб-сервер для хранения корпоративного сайта компании испольуя при этом http-сервер Apache2 с поддержкой PHP5, СУБД MySQL, и ftp-сервер vsftpd в операционной системе Debian GNU/Linux 2
Сессии в PHP
С самого начала PHP все приняли на ура, но как только на этом языке стали создавать достаточно крупные проекты, разработчики столкнулись с новой проблемой - в PHP отсутствовало понятие глобальных переменных.