Защитная система электронной почты ( на примере ООО"Воздухотехника")

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

Список литературы
1. Липаев В.В. Информационная безопасность. - М.: Финансы и статистика, 2002 г. – 463 c.
2. Борзенко А. и др. Компьютерная азбука - Компьютер-пресс. — 2006. — № 11. — 124–130 c.
3. Смирнова Г.Н. и др. Основы информационной безопасности: Учебник / Под ред. Ю.Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с.
4. Информационные системы в экономике: Учебник / Под ред. проф. В.В. Дика - Москва.: Финансы и Статистика, 1996. - 272 стр.: ил..;
5. Козлова Е.П., Парашутин Н. В., Бабченко Т.Н., Галанина Е.Н. Безопасность корпоративных систем.-2-е изд., доп. - Москва.: - Финансы и статистика, 2007.- 576 стр.: ил.
6. Таранов Александр, Слепов Олег, Безопасность систем электронной почты. – М., 2006 г. – 210 с.
7. ГОСТ Р 51241-98 «СРЕДСТВА И СИСТЕМЫ КОНТРОЛЯ И УПРАВЛЕНИЯ ДОСТУПОМ».
9. ГОСТ Р 50739-95 «ЗАЩИТА ОТ НЕСАНКЦИОНИРОВАННОГО ДОСТУПА К ИНФОРМАЦИИ»
10. ФЗ от 27 июля 2006 г. N 149-ФЗ «Об информации, информационных технологиях и о защите информации»
11. Куликов Е.А., Средства мониторинга и фильтрации содержимого электронной почты. - Компьютер-пресс, 2005 г. - 130 c.

Приложения
Программный код программы
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, ExtDlgs;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
Memo1: TMemo;
Memo2: TMemo;
Timer1: TTimer;
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
a: string;
Form1: TForm1;

implementation

uses Unit3, Unit2;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
OpenDialog1.Title:='Открыть ф-л'; {Заголовок меню}
OpenDialog1.Filter:='Текстовый ф-л|*.txt|';{Шаблон видимых в окне ф-лов}
If OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName); {}
end;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить ф-л';
OpenDialog1.DefaultExt:='txt';
if SaveDialog1.Execute then
begin
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
s,v,z:string;
n,i,j,k:integer ;
begin
memo2.Clear;
k:=memo1.Lines.Count-1;
for j:=0 to k do begin
n:=0;
s:='';
s:=memo1.Lines[j];
n:=length(s);
For i:=0 to n do begin
if s<>'' then
case s[i] of
'5': insert('а',v,i);
'w': insert('б',v,i);
'8': insert('в',v,i);
'9': insert('г',v,i);
'P': insert('д',v,i);
'=': insert('е',v,i);
'+': insert('ё',v,i);
'Р': insert('ж',v,i);
'й': insert('з',v,i);
'а': insert('и',v,i);
'Ц': insert('й',v,i);
'ы': insert('к',v,i);
'{': insert('л',v,i);
'W': insert('м',v,i);
']': insert('н',v,i);
'6': insert('о',v,i);
'7': insert('п',v,i);
'_': insert('р',v,i);
'?': insert('с',v,i);
'д': insert('т',v,i);
'Ъ': insert('у',v,i);
'/': insert('ф',v,i);
'*': insert('х',v,i);
'Ф': insert('ц',v,i);
'>': insert('ч',v,i);
'm': insert('ш',v,i);
'Д': insert('щ',v,i);
'Q': insert('ъ',v,i);
'U': insert('ы',v,i);
'2': insert('ь',v,i);
'Ю': insert('э',v,i);
'i': insert('ю',v,i);
'4': insert('я',v,i);
'f': insert(' ',v,i);
// Заглавные
'М': insert('А',v,i);
'С': insert('Б',v,i);
'-': insert('В',v,i);
'0': insert('Г',v,i);
'y': insert('Д',v,i);
'\': insert('Е',v,i);
'о': insert('Ё',v,i);
'ц': insert('Ж',v,i);
'ч': insert('З',v,i);
'c': insert('И',v,i);
'L': insert('Й',v,i);
'x': insert('К',v,i);
'Э': insert('Л',v,i);
'$': insert('М',v,i);
'%': insert('Н',v,i);
'!': insert('О',v,i);
'I': insert('П',v,i);
'.': insert('Р',v,i);
',': insert('С',v,i);
'1': insert('Т',v,i);
'[': insert('У',v,i);
'}': insert('Ф',v,i);
'^': insert('Х',v,i);
'&': insert('Ц',v,i);
'|': insert('Ч',v,i);
'3': insert('Ш',v,i);
'<': insert('Щ',v,i);
'z': insert('Ъ',v,i);
':': insert('Ы',v,i);
';': insert('Ь',v,i);
'O': insert('Э',v,i);
'т': insert('Ю',v,i);
'О': insert('Я',v,i);
//Символы
'H': insert('.',v,i);
'E': insert(',',v,i);
'R': insert(':',v,i);
'T': insert('!',v,i);
'Y': insert('"',v,i);
'M': insert('№',v,i);
'j': insert('%',v,i);
'ъ': insert('?',v,i);
'C': insert('*',v,i);
'Z': insert('(',v,i);
'X': insert(')',v,i);
'V': insert('-',v,i);
'b': insert('_',v,i);
'n': insert('+',v,i);
'ш': insert('=',v,i);
'l': insert('\',v,i);
'k': insert('/',v,i);
'J': insert('0',v,i);
'h': insert('1',v,i);
'G': insert('2',v,i);
'F': insert('3',v,i);
'd': insert('4',v,i);
'S': insert('5',v,i);
'a': insert('6',v,i);
'ё': insert('7',v,i);
'з': insert('8',v,i);
'Е': insert('9',v,i);
'r': insert('~',v,i);
't': insert('`',v,i);
// 'Ч': insert(''',v,i);
'Ч': insert('|',v,i);
'o': insert('>',v,i);
'p': insert('<',v,i);
'Щ': insert('[',v,i);
'Ш': insert(']',v,i);
'K': insert('@',v,i);
'В': insert('#',v,i);
'Ж': insert('$',v,i);
'Т': insert('^',v,i);
'у': insert('&',v,i);


end;// case v of
End;//For i:=1 to n
memo2.Lines.Add(v);
v:='';
End;// for j:=0 to k do
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
s,v,z:string;
n,i,j,k:integer ;
begin

memo2.Clear;
k:=memo1.Lines.Count-1;
for j:=0 to k do begin
n:=0;
s:='';
s:=memo1.Lines[j];
n:=length(s);
For i:=0 to n do begin
if s<>'' then
case s[i] of
'а': insert('5',v,i);
'б': insert('w',v,i);
'в': insert('8',v,i);
'г': insert('9',v,i);
'д': insert('P',v,i);
'е': insert('=',v,i);
'ё': insert('+',v,i);
'ж': insert('Р',v,i);
'з': insert('й',v,i);
'и': insert('а',v,i);
'й': insert('Ц',v,i);
'к': insert('ы',v,i);
'л': insert('{',v,i);
'м': insert('W',v,i);
'н': insert(']',v,i);
'о': insert('6',v,i);
'п': insert('7',v,i);
'р': insert('_',v,i);
'с': insert('?',v,i);
'т': insert('д',v,i);
'у': insert('Ъ',v,i);
'ф': insert('/',v,i);
'х': insert('*',v,i);
'ц': insert('Ф',v,i);
'ч': insert('>',v,i);
'ш': insert('m',v,i);
'щ': insert('Д',v,i);
'ъ': insert('Q',v,i);
'ы': insert('U',v,i);
'ь': insert('2',v,i);
'э': insert('Ю',v,i);
'ю': insert('i',v,i);
'я': insert('4',v,i);
' ': insert('f',v,i);
// Заглавные
'А': insert('М',v,i);
'Б': insert('С',v,i);
'В': insert('-',v,i);
'Г': insert('0',v,i);
'Д': insert('y',v,i);
'Е': insert('\',v,i);
'Ё': insert('о',v,i);
'Ж': insert('ц',v,i);
'З': insert('ч',v,i);
'И': insert('c',v,i);
'Й': insert('L',v,i);
'К': insert('x',v,i);
'Л': insert('Э',v,i);
'М': insert('$',v,i);
'Н': insert('%',v,i);
'О': insert('!',v,i);
'П': insert('I',v,i);
'Р': insert('.',v,i);
'С': insert(',',v,i);
'Т': insert('1',v,i);
'У': insert('[',v,i);
'Ф': insert('}',v,i);
'Х': insert('^',v,i);
'Ц': insert('&',v,i);
'Ч': insert('|',v,i);
'Ш': insert('3',v,i);
'Щ': insert('<',v,i);
'Ъ': insert('z',v,i);
'Ы': insert(':',v,i);
'Ь': insert(';',v,i);
'Э': insert('O',v,i);
'Ю': insert('т',v,i);
'Я': insert('О',v,i);
//Символы
'.': insert('H',v,i);
',': insert('E',v,i);
':': insert('R',v,i);
'!': insert('T',v,i);
'"': insert('Y',v,i);
'№': insert('M',v,i);
'%': insert('P',v,i);
'?': insert('ъ',v,i);
'*': insert('C',v,i);
'(': insert('Z',v,i);
')': insert('X',v,i);
'-': insert('V',v,i);
'_': insert('b',v,i);
'+': insert('n',v,i);
'=': insert('ш',v,i);
'\': insert('l',v,i);
'/': insert('k',v,i);
'0': insert('j',v,i);
'1': insert('h',v,i);
'2': insert('G',v,i);
'3': insert('F',v,i);
'4': insert('d',v,i);
'5': insert('S',v,i);
'6': insert('a',v,i);
'7': insert('ё',v,i);
'8': insert('з',v,i);
'9': insert('Е',v,i);
'~': insert('r',v,i);
'`': insert('t',v,i);
// ''': insert('u',v,i);
'|': insert('Ч',v,i);
'>': insert('o',v,i);
'<': insert('p',v,i);
'[': insert('Щ',v,i);
']': insert('Ш',v,i);
'@': insert('K',v,i);
'#': insert('В',v,i);
'$': insert('ж',v,i);
'^': insert('Т',v,i);
'&': insert('у',v,i);

end;// case v of
End;//For i:=1 to n
memo2.Lines.Add(v);
v:='';
End;// for j:=0 to k do

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
OpenDialog1.Title:='Открыть ф-л'; {Заголовок меню}
OpenDialog1.Filter:='Текстовый ф-л|*.txt|';{Шаблон видемых в окне ф-лов}
If OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName); {}
end;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить файл';{Заголовок окна}
OpenDialog1.DefaultExt:='txt'; {расширение по умол. у сохр. файла}
if SaveDialog1.Execute then
begin
Memo2.Lines.SaveToFile(SaveDialog1.FileName); {сохр. сод. Memo в ф-л}
end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
form1.Close;

end;

procedure TForm1.N3Click(Sender: TObject);
begin
SaveDialog1.Title:='Сохранить ф-л';
OpenDialog1.DefaultExt:='txt';
if SaveDialog1.Execute then
begin
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TForm1.N14Click(Sender: TObject);
var
s,v,z:string;
n,i,j,k:integer ;
begin
memo2.Clear;
k:=memo1.Lines.Count-1;
for j:=0 to k do begin
n:=0;
s:='';
s:=memo1.Lines[j];
n:=length(s);
For i:=0 to n do begin
if s<>'' then
case s[i] of
'а': insert('5',v,i);
'б': insert('w',v,i);
'в': insert('8',v,i);
'г': insert('9',v,i);
'д': insert('P',v,i);
'е': insert('=',v,i);
'ё': insert('+',v,i);
'ж': insert('Р',v,i);
'з': insert('й',v,i);
'и': insert('а',v,i);
'й': insert('Ц',v,i);
'к': insert('ы',v,i);
'л': insert('{',v,i);
'м': insert('W',v,i);
'н': insert(']',v,i);
'о': insert('6',v,i);
'п': insert('7',v,i);
'р': insert('_',v,i);
'с': insert('?',v,i);
'т': insert('д',v,i);
'у': insert('Ъ',v,i);
'ф': insert('/',v,i);
'х': insert('*',v,i);
'ц': insert('Ф',v,i);
'ч': insert('>',v,i);
'ш': insert('m',v,i);
'щ': insert('Д',v,i);
'ъ': insert('Q',v,i);
'ы': insert('U',v,i);
'ь': insert('2',v,i);
'э': insert('Ю',v,i);
'ю': insert('i',v,i);
'я': insert('4',v,i);
' ': insert('f',v,i);
// Заглавные
'А': insert('М',v,i);
'Б': insert('С',v,i);
'В': insert('-',v,i);
'Г': insert('0',v,i);
'Д': insert('y',v,i);
'Е': insert('\',v,i);
'Ё': insert('о',v,i);
'Ж': insert('ц',v,i);
'З': insert('ч',v,i);
'И': insert('c',v,i);
'Й': insert('L',v,i);
'К': insert('x',v,i);
'Л': insert('Э',v,i);
'М': insert('$',v,i);
'Н': insert('%',v,i);
'О': insert('!',v,i);
'П': insert('I',v,i);
'Р': insert('.',v,i);
'С': insert(',',v,i);
'Т': insert('1',v,i);
'У': insert('[',v,i);
'Ф': insert('}',v,i);
'Х': insert('^',v,i);
'Ц': insert('&',v,i);
'Ч': insert('|',v,i);
'Ш': insert('3',v,i);
'Щ': insert('<',v,i);
'Ъ': insert('z',v,i);
'Ы': insert(':',v,i);
'Ь': insert(';',v,i);
'Э': insert('O',v,i);
'Ю': insert('т',v,i);
'Я': insert('О',v,i);
//Символы
'.': insert('H',v,i);
',': insert('E',v,i);
':': insert('R',v,i);
'!': insert('T',v,i);
'"': insert('Y',v,i);
'№': insert('M',v,i);
'%': insert('P',v,i);
'?': insert('ъ',v,i);
'*': insert('C',v,i);
'(': insert('Z',v,i);
')': insert('X',v,i);
'-': insert('V',v,i);
'_': insert('b',v,i);
'+': insert('n',v,i);
'=': insert('ш',v,i);
'\': insert('l',v,i);
'/': insert('k',v,i);
'0': insert('j',v,i);
'1': insert('h',v,i);
'2': insert('G',v,i);
'3': insert('F',v,i);
'4': insert('d',v,i);
'5': insert('S',v,i);
'6': insert('a',v,i);
'7': insert('ё',v,i);
'8': insert('з',v,i);
'9': insert('Е',v,i);
'~': insert('r',v,i);
'`': insert('t',v,i);
// ''': insert('u',v,i);
'|': insert('Ч',v,i);
'>': insert('o',v,i);
'<': insert('p',v,i);
'[': insert('Щ',v,i);
']': insert('Ш',v,i);
'@': insert('K',v,i);
'#': insert('В',v,i);
'$': insert('ж',v,i);
'^': insert('Т',v,i);
'&': insert('у',v,i);

end;// case v of
End;//For i:=1 to n
memo2.Lines.Add(v);
v:='';
End;// for j:=0 to k do

end;

procedure TForm1.N15Click(Sender: TObject);
var
s,v,z:string;
n,i,j,k:integer ;
begin
memo2.Clear;
k:=memo1.Lines.Count-1;
for j:=0 to k do begin
n:=0;
s:='';
s:=memo1.Lines[j];
n:=length(s);
For i:=0 to n do begin
if s<>'' then
case s[i] of
'5': insert('а',v,i);
'w': insert('б',v,i);
'8': insert('в',v,i);
'9': insert('г',v,i);
'P': insert('д',v,i);
'=': insert('е',v,i);
'+': insert('ё',v,i);
'Р': insert('ж',v,i);
'й': insert('з',v,i);
'а': insert('и',v,i);
'Ц': insert('й',v,i);
'ы': insert('к',v,i);
'{': insert('л',v,i);
'W': insert('м',v,i);
']': insert('н',v,i);
'6': insert('о',v,i);
'7': insert('п',v,i);
'_': insert('р',v,i);
'?': insert('с',v,i);
'д': insert('т',v,i);
'Ъ': insert('у',v,i);
'/': insert('ф',v,i);
'*': insert('х',v,i);
'Ф': insert('ц',v,i);
'>': insert('ч',v,i);
'm': insert('ш',v,i);
'Д': insert('щ',v,i);
'Q': insert('ъ',v,i);
'U': insert('ы',v,i);
'2': insert('ь',v,i);
'Ю': insert('э',v,i);
'i': insert('ю',v,i);
'4': insert('я',v,i);
'f': insert(' ',v,i);
// Заглавные
'М': insert('А',v,i);
'С': insert('Б',v,i);
'-': insert('В',v,i);
'0': insert('Г',v,i);
'y': insert('Д',v,i);
'\': insert('Е',v,i);
'о': insert('Ё',v,i);
'ц': insert('Ж',v,i);
'ч': insert('З',v,i);
'c': insert('И',v,i);
'L': insert('Й',v,i);
'x': insert('К',v,i);
'Э': insert('Л',v,i);
'$': insert('М',v,i);
'%': insert('Н',v,i);
'!': insert('О',v,i);
'I': insert('П',v,i);
'.': insert('Р',v,i);
',': insert('С',v,i);
'1': insert('Т',v,i);
'[': insert('У',v,i);
'}': insert('Ф',v,i);
'^': insert('Х',v,i);
'&': insert('Ц',v,i);
'|': insert('Ч',v,i);
'3': insert('Ш',v,i);
'<': insert('Щ',v,i);
'z': insert('Ъ',v,i);
':': insert('Ы',v,i);
';': insert('Ь',v,i);
'O': insert('Э',v,i);
'т': insert('Ю',v,i);
'О': insert('Я',v,i);
//Символы
'H': insert('.',v,i);
'E': insert(',',v,i);
'R': insert(':',v,i);
'T': insert('!',v,i);
'Y': insert('"',v,i);
'M': insert('№',v,i);
'j': insert('%',v,i);
'ъ': insert('?',v,i);
'C': insert('*',v,i);
'Z': insert('(',v,i);
'X': insert(')',v,i);
'V': insert('-',v,i);
'b': insert('_',v,i);
'n': insert('+',v,i);
'ш': insert('=',v,i);
'l': insert('\',v,i);
'k': insert('/',v,i);
'J': insert('0',v,i);
'h': insert('1',v,i);
'G': insert('2',v,i);
'F': insert('3',v,i);
'd': insert('4',v,i);
'S': insert('5',v,i);
'a': insert('6',v,i);
'ё': insert('7',v,i);
'з': insert('8',v,i);
'Е': insert('9',v,i);
'r': insert('~',v,i);
't': insert('`',v,i);
// 'Ч': insert(''',v,i);
'Ч': insert('|',v,i);
'o': insert('>',v,i);
'p': insert('<',v,i);
'Щ': insert('[',v,i);
'Ш': insert(']',v,i);
'K': insert('@',v,i);
'В': insert('#',v,i);
'Ж': insert('$',v,i);
'Т': insert('^',v,i);
'у': insert('&',v,i);


end;// case v of
End;//For i:=1 to n
memo2.Lines.Add(v);
v:='';
End;// for j:=0 to k do
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (Length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a := 'Шифрование текста ';

end;


procedure TForm1.N13Click(Sender: TObject);
begin
Form1.Hide;
form3.Show ;
end;

procedure TForm1.N12Click(Sender: TObject);
begin

Form1.Hide;
form2.Show ;
end;

end.
Таранов Александр, Слепов Олег, Безопасность систем электронной почты
Козлова Е.П., Парашутин Н. В., Бабченко Т.Н., Галанина Е.Н. Безопасность корпоративных систем
Таранов Александр, Слепов Олег, Безопасность систем электронной почты
Куликов Е.А., Средства мониторинга и фильтрации содержимого электронной почты
Смирнова Г.Н. и др. Основы информационной безопасности
Липаев В.В. Информационная безопасность
Липаев В.В. Информационная безопасность
Борзенко А. и др. Компьютерная азбука
Смирнова Г.Н. и др. Основы информационной безопасности
Дик В.В., Информационные системы в экономике









64





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


1

2

3

5

6

4