Федеральное агентство по образованию

Государственное образовательное учреждение высшего  профессионального образования

«ТОМСКИЙ  ПОЛИТЕХНИЧЕСКИЙ  УНИВЕРСИТЕТ»

Юргинский Технологический  институт 
 

Факультет – Экономики и менеджмента

      Направление (специальность) – Прикладная информатика (в экономике) 
 

            Кафедра – Информационных систем

                    
 
 
 

Отчет по циклу лабораторных работ

          

        по дисциплине  Информационная безопасность 
 
 
 
 
 

Исполнитель:

Студент гр.З17870-С                 В.А. Глухов

                               
 

Руководитель:

Доцент кафедры  Информатики                       А.А. Хамухин

                                               

   
 
 
 
 
 
 
 
 
 
 
 
 

Юрга –2009

Отчет по лабораторной работы №1:

Антивирусное  ПО

       Цель: научиться эксплуатировать антивирусные программы, имеющиеся в составе компьютерного класса.

       Использованные  материалы и технические средства: Symantec AntiVirus.

       Ход работы:

       1. Запускаем антивирусную программу:  Пуск > Программы > Symantec Client Security > Symantec AntiVirus.

 

       2. Выбираем на панели инструментов Scan > Custom Scan > CD-дисковод(Е:) и запускаем процесс сканирования.

 

       3. Результаты поиска: вирусов не  обнаружено. 

       

 
 

       Вывод: вирусов не обнаружено на CD-дисководе (Е:), так как антивирусная база устарела, она актуальна на 2005 год либо вирусов нет. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Отчет по лабораторной работы №2:

 Шифрование методом квадрата Полибия 

Задание: индивидуальное задание для шифровки и дешифровки. 

Цель  работы: научится шифровать и дешифровать текст в WORD методом квадрата Полибия. 

Порядок работы:

1. Создать макросы
2. Проверить работу макросов, зашифровав текст с помощью своей шифровки и передать его для дешифровки.

 

Ход работы

1. Создали макросы:

   - для  шифровки. В итоге получили:

Public Sub М1()

Const ALU = "взрьлгцоашщсдйуъбмефжянхитчкыэпю"

Const AL = "ВЗРЬЛГЦОАШЩСДЙУЪБМЕФЖЯНХИТЧКЫЭПЮ"

Dim Sim As String, Sim1 As Variant

Dim Index As Integer

Dim Result As String

Result = ""

For Each Sim1 In Selection.Characters

Sim = Sim1

Select Case Sim

Case "А" To "Я"

Index = Asc(Sim) - Asc("А") + 1

Sim = Mid(ALU, Index, 1)

Case "а" To "я"

Index = Asc(Sim) - Asc("а") + 1

Sim = Mid(AL, Index, 1)

End Select

Result = Result + Sim

Next Sim1

Selection.LanguageID = wdRussian

Selection.TypeText Result

End Sub 
 

На рисунке  представлена шифровка.

 

   - для дешифровки. В итоге получили:

Public Sub М2()

Const ALU = "ираемтфбшныдсцзювлщоучжъйкпьгэях"

Const AL = "ИРАЕМТФБШНЫДСЦЗЮВЛЩОуЧЖЪЙКПЬГЭЯХ"

Dim Sim As String, Sim1 As Variant

Dim Index As Integer

Dim Result As String

Result = ""

For Each Sim1 In Selection.Characters

Sim = Sim1

Select Case Sim

Case "А" To "Я"

Index = Asc(Sim) - Asc("А") + 1

Sim = Mid(ALU, Index, 1)

Case "а" To "я"

Index = Asc(Sim) - Asc("а") + 1

Sim = Mid(AL, Index, 1)

End Select

Result = Result + Sim

Next Sim1

Selection.LanguageID = wdRussian

Selection.TypeText Result

End Sub 

На рисунке  представлена дешифровка 

 

2. Проверили работу макросов. 

Эффективность применения экономических информационных систем для управления экономических  объектами зависит от широты охвата и интегрированности на основе функций управления. 

эЖЖГЩЕАРЙУМЕЫ ЪБАДГЙГЙАЮ ЭЩУЙУДАХГМЩАЯ АЙЖУБДВНАУЙЙКЯ МАМЕГД ЛСЮ ФЪБВРСГЙАЮ ЭЩУЙУДАХГМЩАЯ  УЗЧГЩЕВДА ОВРАМАЕ УЕ ИАБУЕК УЯРВЕВ А АЙЕГЬБАБУРВЙЙУМЕА ЙВ УМЙУРГ ЖФЙЩНАШ  ФЪБВРСГЙАЮ. 

(Шифрованный  текст) 

3. Создаем макрос для ЭЦП

 

Public Sub ЭЦП()

'проверить ЭЦП 

Const ALU = "зждиуетбчщалгхнпфыцмршъоэякьюсйв"

Const AL = "ЗЖДИУЕТБЧЩАЛГХНПФЫЦМРШЪОЭЯКЬЮСЙВ"

Dim Sim As String, Sym1 As Variant

Dim Index As Integer

Dim Result As Double

Result = 0

For Each Sym1 In Selection.Characters

  Sym = Sym1

  Select Case Sym

   Case "А" To "Я"

   Index = Asc(Sym) - Asc("А") + 1

   Case "а" To "я"

   Index = Asc(Sym) - Asc("а") + 1

  End Select

Result = Result + Index

Next Sym1

MsgBox "Проверено  ЭЦП: " & Result

End Sub 

 

4. Создаем макросы   и макрос для ЭЦП. Сервис / Макрос / Макросы.

       5. Выносим кнопку макроса на  панель инструментов и переименовываем  «Шиф. Елена», «Дешиф.Елена» и «ЭЦП.Елена»

       Вид / Панель инструментов / Настройка / Команды / Макросы.

 

         

Вывод: научились шифровать и дешифровать текст в MsWord, с помощью встроенных макросов, другие системы программирования не использовались.  Шифровка обеспечивает безопасность передаваемого документа от злоумышленников.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Лабораторная  работа № 3.

Потоковое блочное шифрование с симметричным ключом

 

Цель  работы: научиться программировать потоковое блочное шифрование с симметричным ключом на примере приложения Microsoft Excel 

Порядок работы 

1. В приложении Excel подготовить лист следующего вида

(вручную заполнить  только 1 столбец, все остальные должны заполняться при нажатии на кнопок): 

 
 

2. Нажать  «Режим конструктора» и  щелчком  по кнопке KeyGen вызвать окно для обрабатывающей программы. Ввести программу и отладить ее работу по шагам (клавиша F8)
3. Аналогично выполнить п. 2 для кнопок «Шифровать» и   «Дешифровать»
4. Взять индивидуальной задание и добиться правильности его выполнения. Результаты представить в виде графиков в отчете

 

Фрагменты программ 

    При нажатии на кнопку «Key Gen»: 

    Private Sub CommandButton1_Click()

      Dim k1(12), k2(12), k3(12) As Boolean

       For i = 1 To 12

        y = Rnd(12)

        If y > 0.5 Then k1(i) = 1

        If y < 0.5 Then k1(i) = 0

        Worksheets(3).Cells(i + 1, 2).Value = k1(i)

        Next i

        For i = 1 To 12

        x = Rnd(12)

        If x > 0.5 Then k2(i) = 1

        If x < 0.5 Then k2(i) = 0

        Worksheets(3).Cells(i + 1, 3).Value = k2(i)

       Next i

       For i = 1 To 12

        x = Rnd(12)

        If x > 0.5 Then k3(i) = 1

        If x < 0.5 Then k3(i) = 0

        Worksheets(3).Cells(i + 1, 4).Value = k2(i)

       Next i

    End Sub 

    При нажатии на кнопку «Шифрование»: 

    Private Sub CommandButton2_Click()

    Dim a, b, c, d, e As Boolean

    Dim k1(12), k2(12), k3(12) As Boolean 
 

      For i = 1 To 12

       w = Worksheets(3).Cells(i + 1, 2).Value

        If w = 1 Then k1(i) = True

        If w = 0 Then k1(i) = False

      Next i

      For i = 1 To 12

       w = Worksheets(3).Cells(i + 1, 3).Value

       If w = 1 Then k2(i) = True

       If w = 0 Then k2(i) = False

      Next i

      For i = 1 To 12

       w = Worksheets(3).Cells(i + 1, 4).Value

       If w = 1 Then k3(i) = True

       If w = 0 Then k3(i) = False

      Next i

                j = 1

      For i = 1 To Ls

       w = Worksheets(3).Cells(i + 1, 1).Value

       If w = 1 Then a = True

       If w = 0 Then a = False

                If j > 12 Then j = 1

       c = a Xor k1(j)

       b = c Xor k2(j)

       e = b Xor k3(j)

       If e = True Then w = 1

       If e = False Then w = 0

       Worksheets(3).Cells(i + 1, 5).Value = w

                j = j + 1

      Next i

    End  

    При  нажатии на кнопку «Дешифрование»: 

    Private Sub CommandButton3_Click()