Разработка программы шифрования текста
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
- Ord('0')));;:= toDecode;;ViginerEncipher(toCode, K: string): string;: integer;: byte;: string;:= '';i := 1 to length(toCode) do begin:= pred(pos(K[ (pred(i) mod length(K)) + 1 ], TViginer));:= s+TViginer[ ((pred(pos(toCode[ i ], TViginer)) + currK) mod length(TViginer)) + 1 ];;:= s;;ViginerDecipher(toDecode, K: string): string;, T: integer;: byte;: string;:= '';i := 1 to length(toDecode) do begin:= pred(pos(K[ (pred(i) mod length(K)) + 1 ], TViginer));:= pred(pos(toDecode[ i ], TViginer)) - currK;T < 0 then inc(T, length(TViginer));:= s + TViginer[T + 1];;:= s;;: string;: string;: real;: real;
writeln('Введите номер интересующего метода шифрования:1-Атбаш,2-Цезарь,3-Полибий,4-Гронсфельд,5-Виженер');(m);
writeln('Введите слово');
readln(word);('1-зашифровать/2-расшифровать ');
readln(k);m=1 then begink=1 then begin:= Atbash(word);
writeln('Шифрование элемента ',s);
endbegin:= Atbash(word);
writeln('Расшифровывание элемента ', s);
end;;m=2 then begink=1 then begin:= CaesarEncipher(word);('Шифрование элемента ',s)
endbegin:= CaesarDecipher(word);
writeln('Расшифровывание элемента ',s);
end;;m=3 then begink=1 then begin:= PolibiusEncipher(word);
writeln('Шифрование элемента ',s)
endbegin:= PolibiusDecipher(word);
writeln('Расшифровывание элемента ',s);
end;end;m=4 then begink=1 then begin:= GronsfeldEncipher(word, '2178');
writeln('Шифрование элемента ',s)
endbegin:= GronsfeldDecipher(word, '2178');('Расшифровывание элемента ',s);
end;;m=5 then begink=1 then begin:= ViginerEncipher(word, 'BORED');('Шифрование элемента ',s)
endbegin:= ViginerDecipher(word, 'BORED');
writeln('Расшифровывание элемента ',s);;end;end.
2.1.6 Скриншоты
Попробуем зашифровать и расшифровать слово Политех каждым из пяти методов шифрования, получим:
Рисунок 7 - Скриншот тестирования функций Атбаш, Цезарь
Рисунок 8 - Скриншот тестирования функций Полибий, Гронсфельд, Виженер
Вывод: зашифрованные и расшифрованные данные полностью совпадают.
3. ОСНОВЫЕ РЕЗУЛЬТАТЫ РАБОТЫ
Основными результатами работы стали:
.Изложение материала по теме шифрование и дешифрование текста пятью разными методами.
. Описание алгоритма программы
. Описание программы
. Составление блок-схемы, характеризующей работу программы
. Составление и испытание программы шифрующей и дешифрующей текст пятью различными методами
Выводы:
Я обрёл навыки работы в среде программирования Pascal. Результатом моей работы стала программа Шифрование и дешифрование текста пятью методами.
СПИСОК ИСПОЛЬЗОВАННЫХ ИНФОРМАЦИОННЫХ ИСТОЧНИКОВ
1)Web:
)Web:
)Web:
)Web:
)Web:
)Web:
7)Л.Д. Михелев. Язык программирования паскаль издательство.
Москва, 2007. - 432с.:ил.
8)Web:
)Web:
)Web:
11)Фарафонов В.В. Турбо Паскаль 7.0. Начальный курс: учеб. пособие. - М.: Кнорус, 2006.
)Методические указания к лабораторным работам. ГОУВПО воронежский государственный технический университет; сост. Р.В.Батищев. Воронеж, 2006. 53с.