Защита информации в системах дистанционного обучения с монопольным доступом

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: гражданское право реферат, реферат на тему человек
| Добавил(а) на сайт: Popyrin.

Предыдущая страница реферата | 15 16 17 18 19 20 21 22 23 24 25 | Следующая страница реферата

Project->References.
15. Нажмите кнопку Browse.
16. Укажите файл Uniprot.tlb и откройте его.
17. Поставьте в списке галочку напротив появившейся строки Uniprot 1.0

Type Library и нажмите Ok.
18. Теперь вы можете работать с библиотекой COM например так.

Dim handle As Integer

Dim obj As New protect

Dim ver As Integer

Dim strInfo As String obj.GetInfo ver, strInfo

Dim s As String s = "Version:" + Str(ver / 256) + "." +

Str((ver Mod 256) / 16) + Str(ver Mod 16) s = s + Chr(13) + "Info:" + strInfo

MsgBox s

Dim file As IProtectFile

Set file = obj handle = file.Create(FileName, Default, cryptUPT)

4.4.3. Пример использования модуля защиты в программе на языке Visual Basic

Рассмотрим несколько демонстрационных программах. Представим, что у нас существует комплекс, состоящий из двух частей. Первая из которых предназначена для преподавателя, а другая – для студента. В дальнейшем будем называть их соответственно "АРМ преподавателя" и "АРМ студента". АРМ преподавателя предназначена для составления вопросов и просмотра результатов тестирования. А АРМ студента предназначена для контроля знаний.
Естественно, примеры данных программ будут очень упрощены.

Как видно эта программа очень проста. Она просто выводит текст вопроса и ждет ответ. После чего записывает оценку в файл. На рисунке 10 показано, как выглядит файл с результатом.

[pic]

Рисунок 10. Файл с незашифрованным результатом

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

Теперь, используя модуль зашиты, мы исправим перечисленные недостатки. Для начала покажем новый интерфейс пользователя и объясним изменения. Кнопки "Загрузить текст", "Сохранить текст" остались, но теперь программа будет работать с зашифрованными данными. Кнопка "Импорт старых данных" предназначена для чтения незашифрованного файл с вопросом.

Кнопка "Сгенерировать пакет" генерирует 4 алгоритма. Первая пара алгоритмов шифрования/расшифрования используется для записи/чтения файла с вопросом. При этом студенту достаточно отдать только файл с алгоритмом расшифрования. Вторая пара используется при работе с файлом, содержащим результат тестирования. Алгоритм шифрования предназначен для АРМ студента.
Алгоритм расшифрования относится к АРМ преподавателя и служи для расшифрования этого файла. Передача студенту только некоторых алгоритмов повышает надежность защиты.

Новый интерфейс АРМ преподавателя изображен на рисунке 11.

[pic]

Рисунок 11. Новый интерфейс АРМ преподавателя

Рассмотрим, какие изменения понадобилось внести в программу. Их совсем не много. Добавилась глобальная перемеренная obj. Она предназначена для взаимодействия с COM-модулем. Глобальной она быть совсем не обязана, просто это было сделано для краткости программы. Типом этой переменный является указатель на интерфейс IProtect. Но использовать этот интерфейс для шифрования/расшифрования не представляется возможным. Поэтому, в дальнейшем obj будем преобразовывать этот указатель к указателю на интерфейс
IProtectFile.
Dim obj As New protect
Private Sub Edit_Click()
Form1.ole_doc.DoVerb
End Sub
Private Sub Form_Load()
Form1.ole_doc.Format = "Rich Text Format"
End Sub

Данная подпрограмма предназначена для генерации 4 алгоритмов шифрования/расшифрования. Для простоты она записываются во временную папку.
Причем, генерируемые алгоритмы будут ограничены в использовании по времени.
Файл "c:tempcrypt.upt" и "c:tempdecrypt.upt" предназначены для работы с файлом содержащим вопрос. Файл "c:tempcryptres.upt" и
"c:tempdecryptres.upt" предназначены для работы с фалом результата.
Следовательно для работы АРМ-преподавателя необходимы файлы
"c:tempcrypt.upt" , "c:tempdecrypt.upt" и "c:tempdecryptres.upt". А для АРМ-студента необходимы файлы "c:tempdecrypt.upt",
"c:tempcryptres.upt".
Private Sub Generate_Click()
Dim days As Integer days = DaysLimit obj.GenerateTimeLimitUPTfiles "c:tempcrypt.upt", "c:tempdecrypt.upt", days obj.GenerateTimeLimitUPTfiles "c:tempcryptres.upt",
"c:tempdecryptres.upt", days
End Sub

Эта подпрограмма фактически является старой подпрограммой загрузки файла с вопросом. Она служит для импорта данных в старом формате чтобы не набирать же вопрос заново.
Private Sub Import_Click()
Open "c:temptemp.rtf" For Input As #1
Dim str, tmp
Do While Not EOF(1)

Input #1, tmp str = str + tmp
Loop
Close #1
Form1.ole_doc.DoVerb vbOLEDiscardUndoState
Form1.ole_doc.DataText = str
Form1.ole_doc.Update
End Sub

Вот новая подпрограмма чтения текста вопроса из файла. Дадим комментарии к некоторым строчкам.
Dim file As IProtectFile – объявляет указатель на интерфейс IProtectFile, который позволяет шифровать/расшифровывать файлы. handle = file.Open("c:temptemp.dat", "c:tempdecrypt.upt",
"c:tempcrypt.upt") – открываем файл с вопросом и сохраняем дескриптор открытого файла. readSize = file.Read(handle, v) – читаем переменную типа Variant, которая на самом деле будет представлять из себя строку. file.Close (handle) – закрывает файл.
Private Sub Load_Click()
Dim handle As Integer
Dim file As IProtectFile
Set file = obj handle = file.Open("c:temptemp.dat", "c:tempdecrypt.upt",
"c:tempcrypt.upt")
Dim readSize As Long
Dim v As Variant readSize = file.Read(handle, v)
Dim str As String str = v
Form1.ole_doc.DoVerb vbOLEDiscardUndoState
Form1.ole_doc.DataText = str
Form1.ole_doc.Update file.Close (handle)
End Sub

Вот как теперь выглядит новая подпрограмма сохранения вопроса в файл.
Private Sub Save_Click()
Dim handle As Integer
Dim file As IProtectFile
Set file = obj handle = file.Create("c:temptemp.dat", Default, "c:tempcrypt.upt")
Dim writeSize As Long
Dim v As Variant
Dim str As String str = Form1.ole_doc.DataText v = str writeSize = file.Write(handle, v) file.Close (handle)
End Sub

И последнее, это новая подпрограмма чтения файлов с результатом тестирования.
Private Sub ViewResult_Click()
Dim handle As Integer
Dim file As IProtectFile
Set file = obj handle = file.Open("c:tempresult.dat", "c:tempdecryptres.upt",
"c:tempcryptres.upt")
Dim readSize As Long
Dim v As Variant readSize = file.Read(handle, v)
Dim str As String result = v file.Close (handle)
End Sub

Внешний вид АРМ студента не изменился. Приведем только текст программы.
Dim obj As New protect
Private Sub SaveResult(a)
Dim handle As Integer
Dim file As IProtectFile
Set file = obj handle = file.Create("c:tempresult.dat", Default, "c:tempcryptres.upt")
Dim writeSize As Long
Dim v As Variant
Dim str As String str = Form1.ole_doc.DataText v = a writeSize = file.Write(handle, v) file.Close (handle)
End
End Sub

Private Sub Command1_Click(Index As Integer)
SaveResult (2)
End Sub

Private Sub Command2_Click()
SaveResult (2)
End Sub

Private Sub Command3_Click()
SaveResult (5)
End Sub

Private Sub Command4_Click()
SaveResult (2)
End Sub

Private Sub Form_Load()
Form1.ole_doc.Format = "Rich Text Format"
Dim handle As Integer
Dim file As IProtectFile
Set file = obj

handle = file.Open("c:temptemp.dat", "c:tempdecrypt.upt",
"c:tempcrypt.upt")
Dim readSize As Long
Dim v As Variant readSize = file.Read(handle, v)
Dim str As String str = v

Form1.ole_doc.DoVerb vbOLEDiscardUndoState
Form1.ole_doc.DataText = str
Form1.ole_doc.Update

file.Close (handle)
End Sub

Для примера на рисунке 12 приведен пример зашифрованного файла с результатом тестирования. Теперь понять, что в нем хранится, стало сложным делом.

[pic]

Рисунок 12. Файл с зашифрованным результатом

4.4.4. Пример использования программы ProtectEXE.exe

В качестве примера приведем код на Visual С++, который производит шифрование исполняемого файла, а затем код, производящий запуск зашифрованного файла. Обе функции принимают на входе имя файла с расширение exe. Для большей ясности рекомендуется ознакомиться с приведенным ранее описанием программы ProtectEXE. void CreateEncryptedModule(const CString &FileName)
{
CString Line(_T("ProtectExe.exe "));
Line += FileName;
STARTUPINFO StartupInfo; memset(&StartupInfo, 0, sizeof(StartupInfo));
StartupInfo.cb = sizeof(StartupInfo);
PROCESS_INFORMATION ProcessInformation; if (!CreateProcess(Line, NULL, NULL, NULL, FALSE, 0,

FALSE, NULL, &StartupInfo,

&ProcessInformation)) throw _T("Error run ProtectExe.exe");
WaitForInputIdle(ProcessInformation.hProcess,

INFINITE);
WaitForSingleObject(ProcessInformation.hProcess,

INFINITE);
CloseHandle(ProcessInformation.hProcess);
DeleteFile(FileName);
}

void RunEncryptedModule(const CString &FileName)
{
CString EncryptedFileName(FileName);
EncryptedFileName = EncryptedFileName.Mid(0, FileName.GetLength() - 3);
EncryptedFileName +=_T("upb");
CString Line(_T("ProtectExe.exe"));
Line += EncryptedFileName;
STARTUPINFO StartupInfo; memset(&StartupInfo, 0, sizeof(StartupInfo));
StartupInfo.cb = sizeof(StartupInfo);
PROCESS_INFORMATION ProcessInformation; if (!CreateProcess(Line, NULL, NULL, NULL, FALSE, 0,

Рекомендуем скачать другие рефераты по теме: ответы 5 класс, реферат теория.

Claw.ru | Рефераты по информатике, программированию | Защита информации в системах дистанционного обучения с монопольным доступом

Защита информации в системах дистанционного обучения с монопольным доступом

Категории:

Поделитесь этой записью или добавьте в закладки

Рефераты от А до Я

Полезные заметки