Программа для шифрования данных с помощью шифра Тритемиуса
Федеральное агентство по образованию Российской Федерации Государственное образовательное учреждение высшего профессионального образования «Южно-Уральский государственный университет» Факультет «Приборостроительный» Кафедра «Электронные вычислительные машины» ПОЯСНИТЕЛЬНАЯ ЗАПИСКА К КУРСОВОЙ РАБОТЕ «Программирование на языках высокого уровня» Автор проекта студент группы Валимухамматов Рустам Римович Челябинск 2010г. Содержание 1. Описание применения 1.1 Описание задачи и метода ее решения 1.2 Входные и выходные данные 2. Описание программы 2.1 Структура программы 2.2 Структуры используемых данных 2.3 Схема алгоритма 2.4.Текст программы 2.5 Порядок ввода исходных данных и описание получаемых результатов 2.6 Описание тестовых заданий и анализ правильности функционирования 3. Литература 1. Описание применения 1.1 Описание задачи и метода ее решения Составить программу на языке Turbo Pascal для шифрования данных с помощью шифра Тритемиуса(расширение кода Цезаря).Выглядит это так. Буквы алфавита нумеруются. Затем ключевое слово циклически накладывается на кодируемый текст. Кодовая буква получается как остаток от деления суммы номера буквы кодируемого текста и ключевого слова на число 31 например (ключевое слово bc) a b c d e f k 00 01 02 03 04 05 b c b c b c 1 01 02 01 02 01 02 m 01 03 03 05 05 07 kk b d d f f h Таким образом кодовая комбинация получается bddffh. Ниже приведена таблица номеров букв: A - 00; N - 13; B - 01; O - 14; C - 02; P - 15; D - 03; Q - 16; E - 04; R - 17; F - 05; S - 18; G - 06; T - 19; H - 07; U - 20; I - 08; V - 21; J - 09; W - 22; K - 10; X - 23; L - 11; Y - 24 ; M - 12; Z - 25; 1.2 Входные и выходные данные На вход программе подается ключевое слово. Затем задается текст для шифрования(дешифрования, в зависимости от выбранного меню) вручную, либо указанием имени файла с текстом. Минимальная длина текст и ключевого слово - 1 символ. Максимальная длина ключевого слово - 15 символов, максимальная длина текста, заданного вручную, - 230 символов(при чтении из файла ограничений нету). На выход программа выдает шифрованный (дешифрованный) текст. 2. Описание программы 2.1 Структура программы Программа организована цельным текстом, пошагово. Язык интерфейса - английский. Программа выполняет следующие действия: -строит графическое оформление; -предлагает меню из 3-х пунктов; -после захода в подменю запрашивает ключевое слово(всегда, в независимости от выбранного меню); -запрашивает текст для (де)шифрования (либо просит ввести имя файла, если чтение происходит оттуда); -выдает (де)шифрованный текст(либо также исходный, если чтение из файла); -предлагает продолжить (де)шифрование, либо вернуться в главное меню. 2.2 Структуры используемых данных mas=array[1..15] of string - массив ,куда заносятся символы ключевого слова: mas1= array[1..230] of string - массив строкового типа для введенного текста с,с1 - переменные символьного типа для считывания с клавиатуры символов(либо из файла);; keyword,text,otvet, imyafaila - переменные строкового типа;в них заносится ключевое слово, текст для шифрования, получившийся (де)шифрованный текст, и имя файла для дальнейшей работы с ним; h,probel,enter - переменные логического типа, используемые для различных проверок на вводе данных; kk - переменная используется для построения (де)шифрованного текста f,f2,f3 - файлы символьного типа для сохранения(считывания)данных function proverka - функция для проверки вводимого текста. Становится равной true если вводимый символ буква; function shifr - функция шифрования. В качестве аргумента выступает переменная строкового типа, но, так как, в программе заранее задается что эта переменная будет длиною в один символ, функция сначала переводит переменную в символьный тип, затем используется порядковый номер символа в таблице ASCII для шифрования; function deshifr - функция дешифрования. Используется также порядковый номер символа в таблице ASCII; backspace -функция корректировки вводимых данных, стирает последний вводимый символ. 2.3 Схема алгоритма 2.4 Текст программы program kursach; uses crt; type mas=array[1..15] of string; mas1=array[1..230] of string; function proverka(q:char):boolean; begin if ((ord(q)>=65) and (ord(q)<=90)) or ((ord(q)>=97)) and ((ord(q)<=122)) or (q=#8) or (q=#27) or (q=#13) or(q='.') then proverka:=true else proverka:=false; end; function proverka1(q1:char):boolean; begin if ((ord(q1)<65) or (ord(q1)>90) and (ord(q1)<97) or (ord(q1)>122)) then proverka1:=false; end; function shifr(y1:string):integer; var y2:array[1..2] of string;y:char; begin y2[1]:=y1; y:=y2[1][1]; if ((ord(y)>=65)and(ord(y)<=90)) then shifr:=(ord(y)-65) else if ((ord(y)>=97)and(ord(y)<=122)) then shifr:=(ord(y)-97) end; function deshifr(z:integer):char; begin deshifr:=(chr(z+97)); end; procedure backspace(var s21:string); var i1:integer;s31:string; begin if length(s21)<>0 then begin gotoXY(whereX-1,whereY); write(' '); gotoXY(whereX-1,whereY); s31:=''; for i1:=1 to (length(s21)-1) do s31:=s31+s21[i1]; s21:=s31; end; end; procedure probel1(i2:integer); var i3:integer; begin for i3:=1 to i2 do write(' '); end; var a,c,c1,z,vixod:char;keyword1:mas; text1:mas1; s,keyword,text,otvet,imyafaila:string; i,k,l,o,j,d,sdvig,u:integer;h,probel,enter,t,y,p,result:boolean; kk:char;m,q:integer; f,f2,f3:file of char; begin clrscr; textattr:=116; for i:=1 to 80 do write('='); window (1,0,1,7); for i:=1 to 6 do writeln('*'); window (1,8,80,9); for i:=1 to 80 do write('='); window (80,2,80,8); for i:=1 to 6 do write ('*'); textattr:=3; window (20,3,80,5); write ('Work for programming on high-level languages'); window (25,5,80,6); write ('Encryption based on Tritemius code'); textattr:=6; window (44,7,80,8); write ('Made by Valimyxammatov Rustam,PS-197'); window (5,9,80,25); sdvig:=0; textattr:=7; repeat clrscr; probel1(28);writeln('MainMenu.Press:'); probel1(5);writeln('1 - for encryption'); probel1(5);writeln('2 - for decryption'); probel1(5);write('0 - for exit'); repeat a:=readkey; {запрашиваем выбор меню} until (a='0') or (a='1') or (a='2') or (a='3'); if (a='1') then begin clrscr; repeat if c=#13 then clrscr; textattr:=7; probel1(10);Writeln('Encryption text (for return in maimmenu press <Esc>)'); repeat Writeln('Please enter keyword for encryption(min length-1 symbol,max length-15)'); l:=0;j:=0;keyword:='';h:=true;enter:=true;probel:=true; {запрашиваем ключевое слово,начинаем посимвольно считывать} c:=readkey;write(c);l:=1;otvet:=''; if ord(c)<>27 then { если первый символ не клавиша Esc} if ord(c)=13 then begin enter:=false;writeln('Keyword is not entered.Please enter');end else begin keyword:=keyword+c;h:=proverka1(c); repeat c:=readkey;if (proverka(c)=true) then begin if c=#8 then backspace(keyword) else write(c); if ((c<>#8) and (c<>' ') and (ord(c)<>13) and (ord(c)<>27)) then {игнорируемп роблелы} begin keyword:=keyword+c; l:=l+1; end; end; until (ord(c)=13) or (ord(c)=27) or (l=16); {продолжаем ввод пока не нажат Enter} if ord(c)<>27 then begin if (keyword=' ') then begin probel:=false;writeln('Keyword is not entered.Please enter');end; if (h=false) then begin write('You enter invalid keyword with numeral.Press <Enter> and try again'); readln; end; if (l=16) then begin write('Exceeded the maximum length of string.Press <Enter>'); repeat c:=readkey; until (c=#13); end; end; end; until ((probel)and(h)and(enter)) or (c=#27); {проверяем правильность ввода,если верно выходим из цикла} if (probel)and(h)and(enter) and (c<>#27) then begin writeln; writeln('Press <m> for enter text manually or <f> for encrypt fron the file'); repeat {предлагаем работу с файлом или вручную} z:=readkey; until(z='f')or(z='m')or(z=#27); if (z<>#27) then begin if z='m' then begin Writeln('Please enter the text to encrypt(min length-1 symbols,max length-230)'); Repeat {если выбран режим ввода вручную,запрашиваем текст для шифрования} l:=0;j:=0;text:='';h:=true;enter:=true;probel:=true; c:=readkey;write(c);l:=1; if ord(c)<>27 then if ord(c)=13 then begin enter:=false;writeln('Text is not entered.Please enter');end else begin text:=text+c;h:=proverka1(c); repeat c:=readkey;if (proverka(c)=true) then begin if c=#8 then backspace(text) else write(c); if ((c<>#8) and (c<>' ') and (ord(c)<>13) and (ord(c)<>27)) then begin text:=text+c; l:=l+1; end; end; until (ord(c)=13) or (ord(c)=27) or (l=231); if ord(c)<>27 then begin if (text=' ') then begin probel:=false;writeln('Text is not entered.Please enter');end; if (h=false) then begin write('You enter invalid text with numeral.Press <Enter> and try again'); readln; end; if (l=231) then begin write('Exceeded the maximum length of string.Press <Enter>'); repeat c:=readkey; until (c=#13); end; end; end; until((probel)and(h)and(enter)) or (c=#27); {проверки аналогичные проверкам ключевого слова} if (probel)and(h)and(enter)and(text<>'')and(keyword<>'')and(c<>#27) then begin for i:= 1 to length(keyword) do keyword1[i]:=copy(keyword,i,1); for i:= 1 to length(text) do {переводим ключевое слово и текст в массивы} text1[i]:=copy(text,i,1);
Страницы: 1, 2
| 
