В таблице 1 описаны следующие переменные

// ---------------------------------------------------------------------------

programShefrovanie_Metodom_Cezar;

usescrt;

const t=100;

typemassiv=array [1. t] of string;

var Kluch, i1: integer;

function Shefrovanie (st: string): string; {функция шифрования}

var

Chislo: integer;

i,c: integer;

Begin

for i: = 1 to Length (st) do

begin

c: =Ord (st [i]);

asm

cmp c,239

jbe @metca1

jmp @exit1

@metca1:

cmp c,224

jae @metca

cmp c,175

jbe @metca2

jmp @exit1

@metca2:

cmp c,160

jae @metca

cmp c,159

jbe @metca3

jmp @exit1

@metca3:

cmp c,128

jae @metca

cmp c,122

jbe @metca4

jmp @exit1

@metca4:

cmp c,97

jae @metca

cmp c,90

jbe @metca5

jmp @exit1

@metca5:

cmp c,65

jae @metca

jmp @exit1

@metca:

mov ax,c

add ax,Kluch

mov chislo,ax

cmp c,90

ja @No1

cmp chislo,90

jbe @loc1

sub ax,90

add ax,64

jmp @exit

@No1:

cmp c,122

ja @No2

cmp chislo,122

jbe @loc2

sub ax,122

add ax,96

jmp @exit

@No2:

cmp c,159

ja @No3

cmp chislo,159

jbe @loc3

sub ax,159

add ax,127

jmp @exit

@No3:

cmp c,175

ja @No4

cmp chislo,175

jbe @loc4

sub ax,175

add ax,223

jmp @exit

jmp @exit

@No4:

cmp c,239

ja @No5

cmp chislo,239

jbe @loc5

sub ax,239

add ax,159

jmp @exit

@No5:

@loc1:

@loc2:

@loc3:

@loc4:

@loc5:

@exit:

jmp @exit2

@exit1:

mov ax,c

@exit2:

mov chislo,ax

end;

st [i]: =Chr (Chislo);

end;

Shefrovanie: =st;

end;

function DeShefrovanie (st: string): string; {функция дешифровывания}

var

Chislo: integer;

i,c: integer;

Begin

for i: = 1 to Length (st) do

begin

c: =Ord (st [i]);

asm

cmp c,239

jbe @metca1

jmp @exit1

@metca1:

cmp c,224

jae @metca

cmp c,175

jbe @metca2

jmp @exit1

@metca2:

cmp c,160

jae @metca

cmp c,159

jbe @metca3

jmp @exit1

@metca3:

cmp c,128

jae @metca

cmp c,122

jbe @metca4

jmp @exit1

@metca4:

cmp c,97

jae @metca

cmp c,90

jbe @metca5

jmp @exit1

@metca5:

cmp c,65

jae @metca

jmp @exit1

@metca:

mov ax,c

sub ax,Kluch

mov chislo,ax

cmp c,224

jb @No1

cmp chislo,224

jae @loc1

add ax,175

sub ax,223

jmp @exit

@No1:

cmp c,160

jb @No2

cmp chislo,160

jae @loc2

add ax,239

sub ax,159

jmp @exit

@No2:

cmp c,128

jb @No3

cmp chislo,128

jae @loc3

add ax,159

sub ax,127

jmp @exit

@No3:

cmp c,97

jb @No4

cmp chislo,97

jae @loc4

add ax,122

sub ax,96

jmp @exit

@No4:

cmp c,65

jb @No5

cmp chislo,65

jae @loc5

add ax,90

sub ax,64

jmp @exit

@No5:

@loc1:

@loc2:

@loc3:

@loc4:

@loc5:

@exit:

jmp @exit2

@exit1:

mov ax,c

@exit2:

mov chislo,ax

end;

st [i]: =Chr (Chislo);

end;

DeShefrovanie: =st;

end;

function otkr: massiv;

var f: text;

st1,put,put1: string;

i: integer;

Begin

clrscr;

i: =1;

i1: =1;

repeat

clrscr;

writeln ('Введите путь к файлу с разширением. txt');

readln (put1);

put: =put1;

Assign (f,put1);

{$I-}

reset (f); { открыть файл для чтения }

{$I+}

untilIOResult=0;

Whilenot EOF (f) do{ пока не достигнут конец файла }

begin

readln (f,st1); { прочитать информацию из файла }

otkr [i]: =st1;

inc (i);

i1: =i1+1;

end;

close (f);

end;

functionsozdn (mas1: massiv): string;

var f: text;

st1,names: string;

i: integer;

Begin

clrscr;

Begin

writeln ('Введите имя файла с расширением. txt');

write ('->');

readln (names);

Assign (f,names);

rewrite (f); { открыть файл для записи }

for i: =1 to i1-1 do

begin

writeln (f,mas1 [i]);

end;

end;

close (f);

end;

function sozdn1 (text1: string): string;

var f: text;

st1,names: string;

i: integer;

Begin

clrscr;

Begin

writeln ('Введите имя файла с расширением. txt');

write ('->');

readln (names);

Assign (f,names);

rewrite (f); { открыть файл для записи }

writeln (f,text1);

end;

close (f);

End;

VAR mas: array [1. t] of string;

mas1: array [1. t] of string;

n1,nt1, i,rashod, ii: integer;

st,st1,text1: string;

Ft,n,nn,Bb: char;

BEGIN

repeat

clrscr;

writeln ('******************************************');

writeln ('1. Открыть исходный текст из файла - > ');

writeln ('2. Набор текста в программе - >');

writeln ('0. Выход');

writeln ('******************************************');

write ('Введите номер: ');

Begin

nt1: =0;

while nt1=0 do

Begin

nn: = ReadKey; {Проверка нажатой клавишы}

if (Ord (nn) =49) then

begin

nt1: =1;

end

else

if (Ord (nn) =50) then

begin

nt1: =2;

end

else

if (Ord (nn) =48) then

begin

nt1: =3;

end;

end;

end;

until (nt1=1) or (nt1=2) or (nt1=3);

if nt1=1 then

begin

mas: =otkr;

clrscr;

writeln ('Информация из файла: ');

writeln ('-------------------------------------------');

for i: =1 to i1-1 do

begin

st1: =mas [i];

writeln (st1);

end;

writeln ('-------------------------------------------');

writeln ('************************************************');

writeln ('I - Шифровать текст - >НажмитеF1');

writeln ('II - Разшифровать текст - > Нажмите F2');

writeln ('************************************************');

Begin

rashod: =0;

whilerashod=0 do

Begin

Ft: =ReadKey; {Проверка нажатой клавишы}

if (Ord (Ft) =59) or (Ord (Ft) =60) then

rashod: =rashod+1;

end;

end;

ifOrd (Ft) =59 then

Begin

repeat

ii: =1;

clrscr;

writeln ('Введите ключ: от "1 до 20" ');

write ('->');

readln (Kluch);

if (Kluch>=1) and (Kluch<=20) then

Begin

ii: =0;

end

else

begin

writeln ('Ошибка ввода, "Ключ не корректен" - введите еще раз');

Delay (2000);

end;

until ii=0;

clrscr;

writeln ('#########################################');

writeln ('Исходный текст: ');

writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln ('-----------------------------------------');

for i: =1 to i1-1 do

begin

st1: =mas [i];

writeln (st1);

end;

writeln ('-----------------------------------------');

writeln ();

writeln ();

writeln ('#########################################');

writeln ('ЗаШифрованный текст: ');

writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln ('-----------------------------------------');

for i: =1 to i1-1 do

begin

st: =mas [i];

mas1 [i]: =Shefrovanie (st);

writeln (mas1 [i]);

end;

writeln ('*****************************************');

writeln ('');

writeln ('');

writeln ('');

writeln ('Сохранить результат в файл');

writeln ('1-Да 0-Выход');

Begin

n1: =0;

while n1=0 do

Begin

Bb: =ReadKey; {Проверка нажатой клавишы}

if (Ord (Bb) =49) then

begin

n1: =1;

end

else

if (Ord (Bb) =48) then

begin

n1: =2;

end;

end;

end;

ifOrd (n1) =1 then

begin

sozdn (mas1);

clrscr;

writeln ('Результат успешно сохранен!!! ');

write ('Для выхода нажмите Enter->');

Readln ();

begin

Exit;

end;

end;

end;

end

else

ifOrd (n1) =2 then

begin

Exit;

end;

ifOrd (Ft) =60 then

Begin

repeat

ii: =1;

clrscr;

writeln ('Введите ключ: от "1 до 20" ');

write ('->');

readln (Kluch);

if (Kluch>=1) and (Kluch<=20) then

Begin

ii: =0;

end

else

begin

writeln ('Ошибка ввода, "Ключ некорректен" - введите еще раз');

Delay (2000);

end;

until ii=0;

clrscr;

writeln ('#########################################');

writeln ('Исходный текст: ');

writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln ('-----------------------------------------');

for i: =1 to i1-1 do

begin

st1: =mas [i];

writeln (st1);

end;

writeln ('-----------------------------------------');

writeln ();

writeln ();

writeln ('#########################################');

writeln ('РазШифрованныйтекст: ');

writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln ('-----------------------------------------');

for i: =1 to i1-1 do

begin

st: =mas [i];

mas1 [i]: =DeShefrovanie (st);

writeln (mas1 [i]);

end;

writeln ('*****************************************');

writeln ('');

writeln ('');

writeln ('');

writeln ('Сохранить результат в файл');

writeln ('1-Да 0-Выход');

Begin

n1: =0;

while n1=0 do

Begin

Bb: =ReadKey; {Проверка нажатой клавишы}

if (Ord (Bb) =49) then

begin

n1: =1;

end

else

if (Ord (Bb) =48) then

begin

n1: =2;

end;

end;

end;

ifOrd (n1) =1 then

begin

sozdn (mas1);

clrscr;

writeln ('Результат успешно сохранен!!! ');

write ('Для выхода нажмите Enter->');

Readln ();

begin

Exit;

end;

end;

end

else

ifOrd (n1) =2 then

begin

Exit;

end;

if nt1=2 then

begin

clrscr;

writeln ('ВведитеТекстиНажмитеEnter: ');

writeln ('************************************************');

readln (text1);

writeln ('Выберите действие: ');

writeln ('I - Шифровать текс - > Нажмите F1');

writeln ('II - РазШифровать текс - > Нажмите F2');

writeln ('************************************************');

Begin

rashod: =0;

whilerashod=0 do

Begin

Ft: =ReadKey; {Проверка нажатой клавишы}

if (Ord (Ft) =59) or (Ord (Ft) =60) then

rashod: =rashod+1;

end;

end;

ifOrd (Ft) =59 then

Begin

Begin

repeat

ii: =1;

clrscr;

writeln ('Введите ключ: от "1 до 20" ');

write ('->');

readln (Kluch);

if (Kluch>=1) and (Kluch<=20) then

Begin

ii: =0;

end

else

begin

writeln ('Ошибка ввода, "Ключ не корректен" - введите еще раз');

Delay (2000);

end;

until ii=0;

clrscr;

writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln ('Исходный текст: ');

writeln (text1);

writeln ('-----------------------------------------');

writeln ();

writeln ('*****************************************');

writeln ('ЗаШифрованныйтекст: ');

begin

st: =text1;

text1: =Shefrovanie (st);

writeln (text1);

end;

end;

writeln ('*****************************************');

writeln ('');

writeln ('');

writeln ('');

writeln ('Сохранить результат в файл');

writeln ('1-Да 0-Выход');

Begin

n1: =0;

while n1=0 do

Begin

Bb: =ReadKey; {Проверканажатойклавишы}

if (Ord (Bb) =49) then

begin

n1: =1;

end

else

if (Ord (Bb) =48) then

begin

n1: =2;

end;

end;

end;

ifOrd (n1) =1 then

begin

begin

sozdn1 (text1);

end;

clrscr;

writeln ('Результатуспешносохранен!!! ');

write ('Для выхода нажмите Enter->');

Readln ();

begin

Exit;

end;

end;

end;

end

else

ifOrd (n1) =2 then

begin

Exit;

end;

ifOrd (Ft) =60 then

Begin

repeat

ii: =1;

clrscr;

writeln ('Введитеключ: от "1 до 20" ');

write ('->');

readln (Kluch);

if (Kluch>=1) and (Kluch<=20) then

Begin

ii: =0;

end

else

begin

writeln ('Ошибкаввода, "Ключнекорректен" - введитеещераз');

Delay (2000);

end;

until ii=0;

clrscr;

writeln ('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln ('Исходныйтекс: ');

writeln (text1);

writeln ('-----------------------------------------');

writeln ();

writeln ('*****************************************');

writeln ('РазШифрованныйтекст: ');

begin

st: =text1;

text1: =DeShefrovanie (st);

writeln (text1);

end;

writeln ('*****************************************');

writeln ('');

writeln ('');

writeln ('');

writeln ('Сохранить результат в файл');

writeln ('1-Да 0-Выход');

Begin

n1: =0;

while n1=0 do

Begin

Bb: =ReadKey; {Проверканажатойклавишы}

if (Ord (Bb) =49) then

begin

n1: =1;

end

else

if (Ord (Bb) =48) then

begin

n1: =2;

end;

end;

end;

ifOrd (n1) =1 then

begin

begin

sozdn1 (text1);

end;

clrscr;

writeln ('Результатуспешносохранен!!! ');

write ('Для выхода нажмите Enter->');

Readln ();

begin

Exit;

end;

end;

end

else if Ord (n1) =2 then

begin

Exit;

end;

Рисунок 9 - Главное окно программы.