проект1. Проект (1). Арственное бюджетное общеобразовательное учреждение города москвы школа спектр проектная работа

• Название: Арственное бюджетное общеобразовательное учреждение города москвы школа спектр проектная работа
• Анкор: проект1
• Дата: 19.02.2020
• Размер: 0.76 Mb.
• Имя файла: Проект (1).docx
• Тип: Программа; #109081
• страница: 2 из 2

Приложение 2 Скриншоты программы

Внешний вид программы
Шифр Цезаря



Шифр Атбаш
Создание сложного пароля


Приложение 3 Листинг программ

Код программы Шифр Цезаря

program Shifr;

var a,b,c:string;

i,j,k,d,g:integer;

begin

writeln('Выберите:шифрование(1)или дешифровка(0)');

readln(g);

writeln('Напишите текст ');

readln(a);

writeln('ключ');

readln(d);

c:='';

b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';

for i:=1 to length(a) do

for j:=1 to length(b) do

begin

If g=0 then k:=(j-d) mod 32 else k:=(j+d);

if k > 33 then k:=k-33;

if a[i]=b[j] then c:=c+b[k];

end;

writeln(c);

end.




Код программы Шифр Цезаря 2

const

rus='абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

var

s,rsf:string;

i:integer;

begin

writeln('Задайте строку...');

readln(s);

writeln('На сколько будем сдвигать...');

readln(i);

rsf:=rus;

repeat

if i>0 then

begin

rsf:=rsf+rsf[1];

delete(rsf,1,1)

end;

Dec(i)

until

i<=0;

{шифруем}

for i:=1 to length(s) do

if pos(s[i],rus)<>0 then

s[i]:=rsf[pos(s[i],rus)];

writeln('Результат шифровки:');

writeln(s);

{дешифруем}

for i:=1 to length(s) do

if pos(s[i],rsf)<>0 then

s[i]:=rus[pos(s[i],rsf)];

writeln('Результат дешифровки:');

writeln(s);

end.




Код программы Шифр Атбаш

Const

s1='ABCDEFGHIJKLMNOPQRSTUVWXYZ';

s2='ZYXWVUTSRQPONMLKJIHGFEDCBA';

var

i,p:integer;

s:string;

begin

Write('Введите текст: '); Readln(s);

for i:=1 to Length(s) do

begin

p:=Pos(s[i],s1);

if p>0 then s[i]:=s2[p]

end;

Writeln('Результат: ',s)

end.