Создание программного приложения 'Шифрование информации'

Создание программного приложения 'Шифрование информации'

Содержание

Введение

1. ОПРЕДЕЛЕНИЕ ОСНОВНЫХ ТРЕБОВАНИЙ К ПРОДУКТУ

.1 Техническое задание на разработку обучающего приложения «Архитектура системного блока»

.2 Обоснование выбора среды разработки

. СОЗДАНИЕ ПРОГРАММНОГО ПРИЛОЖЕНИЯ «Архитектура системного блока»

.1 Общие сведения

.2 Функциональное назначение

2.3 Описание логической структуры

.4 Свойства форм и компонентов

.5 Руководство системного программиста

.5.1 Запуск и работа в программе

.5.2 Редактирование и добавление материала

2.5.3 Работа с программой тестирования

.6 Руководство пользователя

.6.1 Запуск и работа в программе

Заключение

Список литературы

Приложение 1

Приложение 2

Приложение 3

Приложение 4

Приложение 5

ВВЕДЕНИЕ

В современном мире защита информации - одна из самых актуальных тем в сфере безопасности. Существует множество способов защиты информации. Например: защита паролем, с помощью определенного программного обеспечения, шифрование. Последнее меня заинтересовало больше всего так, как грамотное шифрование информации - один из наиболее эффективных способов защиты.

Шифрование - обратимое преобразование информации в целях сокрытия от неавторизованных <https://ru.wikipedia.org/wiki/%D0%90%D0%B2%D1%82%D0%BE%D1%80%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D1%8F> лиц, с предоставлением, в это же время, авторизованным <https://ru.wikipedia.org/wiki/%D0%90%D0%B2%D1%82%D0%BE%D1%80%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D1%8F> пользователям доступа к ней. Главным образом, шифрование служит задачей соблюдения конфиденциальности <https://ru.wikipedia.org/wiki/%D0%9A%D0%BE%D0%BD%D1%84%D0%B8%D0%B4%D0%B5%D0%BD%D1%86%D0%B8%D0%B0%D0%BB%D1%8C%D0%BD%D0%BE%D1%81%D1%82%D1%8C> передаваемой информации. Важной особенностью любого алгоритма шифрования является использование ключа <https://ru.wikipedia.org/wiki/%D0%9A%D0%BB%D1%8E%D1%87_(%D0%BA%D1%80%D0%B8%D0%BF%D1%82%D0%BE%D0%B3%D1%80%D0%B0%D1%84%D0%B8%D1%8F)>, который утверждает выбор конкретного преобразования из совокупности возможных для данного алгоритма

При изучении этой темы на занятия по информационной безопасности я столкнулся с такой поблемой, как нехватка учебного пособия именно в разделе «Шифрование информации». Таким образом я, получив тему по курсовой работе «Шифрование информации» я решил создать электронное учебное пособие по данной теме в среде программирования Delphi.

Объектом исследования является: программное приложение.

Предметом является: программное приложение «Шифрование информации».

 Целью курсового проекта является: создание электронного учебного пособия «Шифрование информации».

Задачи:

1.      Изучить и проанализировать литературу по теме;

2.      Дать определение обучающему приложению;

.        Разработать техническое задание;

.        Обосновать выбор среды разработки приложения;

.        Создать электронное пособие «Шифрование информации».

Электронное учебное пособие (электронный учебник) - это продукт образовательного характера, который может быть воспроизведен (использован) только с помощью средств информатики (в том числе и компьютера), соответствующий утвержденной программе обучения или программе, разработанной автором для предложенного курса. Данное программное приложение может быть использовано для обучения начинающих программистов.

1. ОПРЕДЕЛЕНИЕ ОСНОВНЫХ ТРЕБОВАНИЙ К ПРОДУКТУ

.1 Техническое задание на разработку программного приложения «Шифрование информации»

информационный безопасность программа шифрование

Основания для разработки

Основанием для проведения разработки является выполнение курсового проектирования в соответствии с учебным планом на 2013-2014 учебный год по специальности 230115 «Программирование в компьютерных системах».

Назначение и область применения

Программа предоставляет возможность получить необходимые знания при изучении темы «Шифрование информации».

Требования к функциональным характеристикам

Программа должна обеспечивать возможность выполнения перечисленных ниже функций:

При вызове начальной формы, должна появиться следующая форма, в которой будут, выполняться следующие функции:

Функция навигации через:

·        содержание;

·        гиперссылки;

·        меню.

Требования к надежности

Надёжность программы зависит от:

·        уровня подготовки пользователей;

·        используемых аппаратных и программных средств;

·        соблюдения условий эксплуатации программы.

От надежности зависит общая производительность и эффективность программы. Программа должна выполнять поставленные перед ней задачи.

Требования к маркировке и упаковке

Требования не предъявляются.

Требования к транспортированию и хранению

При транспортировании и хранении программного обеспечения должна быть предусмотрена защита носителя, на котором хранится данное ПО, от попадания пыли и атмосферных осадков. Климатические условия транспортирования и хранения определяются требованиями к носителю.

Требования к составу и параметрам технических средств

Рекомендуемые системные требования:

·        Операционная система: Microsoft Windows XP/7/8;

·        Процессор: Pentium IV 2.0Hz,;

·        Оперативная память: 30 МБ;

·        Жесткий диск: 30 МБ;

·        Разрешение экрана: 1024 x 1280;

·        Устройство для чтения компакт - дисков;

·        Устройства взаимодействия с пользователем: клавиатура и мышь.

Дополнительные требования не предъявляются.

Условия эксплуатации

Надежность программы также зависит от условий ее эксплуатации, она должна производиться на исправном компьютере, не содержащем вирусов, и других вредоносных программ.

Требования к квалификации и численности персонала

Минимальное количество персонала: персонал не требуется так, как данное приложение предназначено для преподавателя и обучающегося.

Минимальный уровень знаний пользователя ПК:

.        Использовать манипулятор-мышь для работы с элементами графического пользовательского интерфейса;

.        Пользователь должен уметь работать в операционной системе.

Требования к программной документации

Состав программной документации должен включать в себя:

–       Техническое задание;

Стадии и этапы разработки (Таблица 1)

Таблица 1

Порядок контроля и приемки

Виды испытаний:

1.      Приемо-сдаточные испытания должны проводиться на объекте Заказчика в оговоренные сроки;

.        Приемо-сдаточные испытания программы должны проводиться, согласно разработанной исполнителем и согласованной заказчиком программы и методик испытаний;

Объект испытаний

Объектом испытаний является программное приложение «Шифрование информации».

Цель испытаний

Необходимым условием работы любой программы является корректное выполнение возложенных на нее функций. Для этого необходимо осуществить проверку программы.

Данные испытания проводятся для установления соответствия программы заданным требованиям, описанным в техническом задании и в других программных документах.

.2 Обоснование выбора среды разработки

Visual Basic - средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка - языка Basic, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

HTMLHelp (Microsoft Compressed HTML Help, Microsoft Compiled HTML Help, .CHM) - проприетарный формат файлов контекстной справки, разработанный корпорацией Microsoft, выпущенный в 1997 году <#"786051.files/image001.gif">

Приложение 2

Электронный учебник «Архитектура системного блока»

Приложение 3

Листинг Программного Приложения "Архитектура Системного Блока"

Form 1Unit1;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Grids, ValEdit, OleCtrls, SHDocVw,

CheckLst, ComCtrls, Menus, XPMan;

TForm1 = class(TForm)

WebBrowser1: TWebBrowser;

TreeView1: TTreeView;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Image1: TImage;

N4: TMenuItem;

N5: TMenuItem;

Label1: TLabel;

Label2: TLabel;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

: TMenuItem;

procedure TreeView1Change(Sender: TObject; Node: TTreeNode);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

procedure N8Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form1: TForm1;

Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

ScreenWidth: LongInt = 1280;

ScreenHeight: LongInt = 1024;

{$R *.dfm}

TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);TreeView1.Selected.Text='Системный блок' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Системный блок.HTM');TreeView1.Selected.Text='Введение' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Введение.HTM');TreeView1.Selected.Text='Материнская плата' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Материнская плата.HTM');TreeView1.Selected.Text='Процессор' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Процессор.HTM');TreeView1.Selected.Text='Видеокарта' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Видеокарта.HTM');TreeView1.Selected.Text='Жесткий диск' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Жесткий диск.HTM');TreeView1.Selected.Text='ОЗУ' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\ОЗУ.HTM');TreeView1.Selected.Text='Блок питания' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Блок питания.HTM');TreeView1.Selected.Text='Карты расширения' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Карты расширения.HTM');TreeView1.Selected.Text='Сетевая карта' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Сетевая карта.HTM');TreeView1.Selected.Text='Звуковая карта' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Звуковая карта.HTM');TreeView1.Selected.Text='Оптический привод' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Оптический привод.HTM');TreeView1.Selected.Text='Кардридер' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Кардридер.HTM');TreeView1.Selected.Text='Системная шина' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Системная шина.HTM');TreeView1.Selected.Text='Электронные схемы' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Электронные схемы.HTM');TreeView1.Selected.Text='Типы корпусов' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Типы корпусов.HTM');TreeView1.Selected.Text='Периферийные устройства' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Периферийные устройства.HTM');TreeView1.Selected.Text='Монитор' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Монитор.HTM');TreeView1.Selected.Text='Клавиатура' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Клавиатура.HTM');TreeView1.Selected.Text='Компьютерная мышь' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Компьютерная мышь.HTM');TreeView1.Selected.Text='Внутренние' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Внутренние.HTM');TreeView1.Selected.Text='Внешние' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Внешние.HTM');TreeView1.Selected.Text='Принтер' then WEbBrowser1.Navigate(Extractfilepath(Application.ExeName)+'Доп. Материалы\Принтер.HTM');;TForm1.Button1Click(Sender: TObject);

ZoomFac: OLEVariant;

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.3;

ZoomFac := TButton(Sender).Tag;

WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);;TForm1.Button2Click(Sender: TObject);

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;;TForm1.N2Click(Sender: TObject);.Show;;

TForm1.N3Click(Sender: TObject);.Show;;

TForm1.FormCreate(Sender: TObject);

scaled := true;

begin

height := longint(height) * longint(screen.height) div ScreenHeight;

width := longint(width) * longint(screen.width) div ScreenWidth;

scaleBy(screen.width, ScreenWidth);

end;

end;

TForm1.FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);:= False;;TForm1.N8Click(Sender: TObject);

Application.MainForm.Close;;

TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

CanClose := Application.MessageBox(PChar('Вы действительно хотите выйти из программы ?'),

'Внимание !', MB_YesNo) = id_Yes;;

TForm1.N12Click(Sender: TObject);

ZoomFac: OLEVariant;

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.3;

ZoomFac := TButton(Sender).Tag;

WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);

;

TForm1.N13Click(Sender: TObject);

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;;

TForm1.N22Click(Sender: TObject);.Show;;

TForm1.N18Click(Sender: TObject);.Show;;

TForm1.N20Click(Sender: TObject);.Show;;

TForm1.N21Click(Sender: TObject);.Show;;

TForm1.N19Click(Sender: TObject);.Show;;

TForm1.N5Click(Sender: TObject);.Show;;

.

Form 2

Unit2;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

TForm2 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form2: TForm2;

{$R *.dfm}

TForm2.Button1Click(Sender: TObject);;;

.

Form 3

Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure Memo1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form3: TForm3;

{$R *.dfm}TForm3.Button1Click(Sender: TObject);

Close;

end;

Приложение 4

Form 4

unit Unit4;

interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls;

TForm4 = class(TForm)

Memo1: TMemo;

RichEdit1: TRichEdit;

BitBtn1: TBitBtn;

RadioGroup1: TRadioGroup;

Label1: TLabel;

OpenDialog1: TOpenDialog;

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form4: TForm4;

I,kol,j:integer;

{$R *.dfm}

TForm4.FormShow(Sender: TObject);AppPath:array[0..255] of char;

test : AnsiString;(255,AppPath); //определяем директорию, где расположен исполнимый файл:= AppPath + '\Доп. Материалы\test.rtf';.Lines.LoadFromFile ('C:\Program Files\Электронный учебник\Доп. Материалы\test.rtf'); //текст загружается в компонент RichEdit1

except //в случае, если файл не найден, работа программы завершается

showmessage('Файл не найден!');

Application.Terminate;

end;

BitBtn1.Enabled:=false;//Кнопка "Дальше" не доступна, пока не будет сделан выбор

memo1.Lines.Strings[0]:=Richedit1.Lines.Strings[j+0]; //в компонент Memo заносится первая строка - вопрос.

radiogroup1.Items[0]:=richedit1.Lines.Strings[j+1]; //заполняем варианты ответов

radiogroup1.Items[1]:=richedit1.Lines.Strings[j+2];

radiogroup1.Items[2]:=richedit1.Lines.Strings[j+3];

radiogroup1.Items[3]:=richedit1.Lines.Strings[j+4];

radiogroup1.Items[4]:=richedit1.Lines.Strings[j+5];

try

i:=StrToInt(richedit1.Lines.Strings[j+6]); //переменная і содержит номер пра-вильного ответа

except //если не указан номер правильного ответа, работа программы прерывается

showmessage('Неверный формат теста!');

Application.Terminate;

end;:=j+8;;

TForm4.BitBtn1Click(Sender: TObject);

if i=radiogroup1.ItemIndex+1 then //если дан правильный ответ

begin

label1.Font.Color:=clGreen; //цвет шрифта Label1 - зеленый

label1.Caption:= 'Ответ правильный!';

kol:=kol+1; //счетчик количества правильных ответов

end else if radiogroup1.ItemIndex<>-1 then

begin

label1.Font.Color:=clRed;

label1.Caption:= 'Ответ не правильный!';

end;

memo1.Lines.Clear; //очищаем компонент Memo

if Richedit1.Lines.Strings[j+0]='Конец теста'

then begin

memo1.Lines.Strings[0]:='Тест закончен';

memo1.Lines.Add('Количество правильных ответов - '+IntToStr(kol));

radiogroup1.Items[0]:='';

radiogroup1.Items[1]:='';

radiogroup1.Items[2]:='';

radiogroup1.Items[3]:='';

radiogroup1.Items[4]:='';

radiogroup1.Visible:=false;

Label1.Visible:=False;

end

else //иначе, если конец теста еще не достигнут

memo1.Lines.Strings[0]:=richedit1.Lines.Strings[j+0];

radiogroup1.Items[0]:=richedit1.Lines.Strings[j+1];

radiogroup1.Items[1]:=richedit1.Lines.Strings[j+2];

radiogroup1.Items[2]:=richedit1.Lines.Strings[j+3];

radiogroup1.Items[3]:=richedit1.Lines.Strings[j+4];

radiogroup1.Items[4]:=richedit1.Lines.Strings[j+5];

try

i:=StrToInt(richedit1.Lines.Strings[j+6]);

except

showmessage('Неверный формат теста!');

Application.Terminate;

end;

j:=j+8;

radiogroup1.ItemIndex:=-1;

end;

BitBtn1.Enabled:=false;;

procedure TForm4.RadioGroup1Click(Sender: TObject);

BitBtn1.Enabled:=true; //если выбор произведен, то кнопка доступна.

end;

TForm4.FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

Resize := False; //нельзя изменять размер формы

end;

TForm4.FormCreate(Sender: TObject);

;

end.

Приложение 5

Содержание CD диска

1.      Текст курсового проекта;

2.      Исходный код программного продукта;

.        Дистрибутив обучающего приложения.

.        Презентация доклада