Автор: Пользователь скрыл имя, 01 Декабря 2014 в 14:59, курсовая работа
Целью курсовой работы является автоматизация процесса шифрования на базе современных информационных технологий.
Для достижения поставленной цели необходимо решить следующие задачи:
изучить современные системы шифрования;
выбрать и обосновать криптостойкий алгоритм, подходящий для
шифрования разнородных данных;
MS.Position:=0; //позиционирование в потоке на старт
for i:=1 to MS.Size do //от 1 до последнего байта
begin
k:=(i mod Length(pass))+1; //определяем номер символа ключа,
MS.Read(j,1); //читаем 1 байт из потока
j:=j xor Ord(pass[k]); //шифруем прочитанный байт
MS.Position:=i-1; //возвращаемся назад на 1 байт
MS.Write(j,1); //записываем зашифрованный байт
end;
MS.Position:=0;
MS.SaveToFile(FN); //сохраняем содержимое потока
//в файле под тем же именем
MS.Free; //уничтожаем экземпляр потока
end;
Свяжем кнопку BitBtn2 с уже написанным алгоритмом шифрования. Так как в программе используется симметричный алгоритм шифрования, то компонент BitBtn2 будет выполнять 2 различных действия - шифрование или дешифрование:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
MS:TMemoryStream;
begin
if not FileExists(Edit1.Text) then
begin
ShowMessage('Файл не найдет!!!');
Exit;
end;
if Edit2.Text='' then
begin
ShowMessage('Введите пароль для шифрования!!!');
Exit;
end;
SimmetricEx(Edit1.Text,Edit2.
ShowMessage('Файл зашифрован!');
Close;
end;
BitBtn1 – закрытие программы:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;
Здесь происходит открытие окна для выбора файла в каталоге:
procedure TForm1.FormCreate(Sender: TObject);
begin
Open.InitialDir:=
end;
Тестирование программного обеспечения — процесс исследования, испытания программного продукта.
Процесс отладки включает:
ошибок и их местонахождение);
Невозможно гарантировать отсутствие ошибок в программе. В лучшем случае можно попытаться показать наличие ошибок. Если программа правильно ведет себя для большого набора тестов, нет оснований утверждать, что в ней нет ошибок. Если считать, что набор тестов способен с большой вероятностью обнаружить возможные ошибки, то можно говорить о некотором уровне уверенности (надежности) в правильности работы программы, устанавливаемом этими тестами.
После прописывания всех кодов и настройки расположения компонентов, можно компилировать приложение, для этого надо нажать F9 в среде Delphi, запустится окно программы:
Рисунок 2.7 – Итоговый вид программы
Кнопка позволяет выбрать файл для шифрования. После выбора нужного файла вводится пароль в соответствующее поле и нажимается кнопка «Шифровать». В результате появляется окно, с информацией о том, что файл зашифрован:
Рисунок 2.8 – Результат шифрования
Если файл был не выбран или не указан пароль программа выдаст соответствующее окно:
Рисунок 2.9 – Результат программы при невыбранном файле
Рисунок 2.10 – Результат программы при не введенном пароле
В ходе курсовой работы были решены следующие задачи:
варианта программы шифрования;
Delphi.
Итогом стало создание прикладной программы, отражающей суть поставленной задачи – шифрование данных, в среде разработки Delphi. Эта среда разработки является наиболее простой при создании таких сравнительно несложных и небольших по размеру программ.
Поставленная задача была выполнена. Данная программа является наиболее простым вариантом программы шифрования данных. Она является законченным программным продуктом, хотя возможна ее доработка.
Программа имеет удобный пользовательский интерфейс, интуитивно понятный пользователю любого уровня подготовки.
В целом задача была выполнена в полной мере, и программа может быть использована на практике.