Курсовая работа: Программа для шифрования данных с помощью шифра Тритемиуса

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))