51330

Шифрование текста по ключу аддитивными методами (гаммированием)

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Научиться составлять программы шифрования текста, основываясь на алгоритме RSA. Вывод: научился составлять программы шифрования текста, основываясь на алгоритме RSA.

Русский

2014-02-09

86.14 KB

10 чел.

Цель работы: Научиться составлять программы шифрования текста, основываясь на алгоритме RSA.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

1

Лабораторная работа №6

Разраб.

Карецкий

Пров.

Смулаковский

Н. Контр.

Утв.

Шифрование текста по ключу аддитивными методами (гаммированием).

Лит.

Листов

3

КОГУ 59П-3

 

Ход работы:  

program RSA;

{$N+}

uses crt;

const min=100; max=200;

var p,q,d,Y:longint;

   n,m,e,cmp:comp;

   s,s2:string;

   i,j:integer;

   si,s3:array[1..255] of Longint;

procedure npoctbIe(var W:longint);

var simp:boolean;i:longint;

begin

repeat

W:=random(max-min)+min;

if W mod 2=0 then simp:=false

else  begin

simp:=true; i:=3;

while (i<=trunc(sqrt(W))) do begin

if trunc(W) mod i=0 then

simp:=false

else i:=i+2;

if not simp then break;

end; end;

until simp; end;

function B3aumHo(t:comp):longint;

var k:integer;i,Y2:longint;

   R,mx,mn:comp;b:boolean;

begin  k:=0;i:=0;

randomize;Y2:=Y;

repeat

R:=random(10000)+3000;

mn:=R; mx:=t;

if trunc(mn) mod 2<>0 then k:=2

else k:=1;

i:=1+k; b:=true;

while i<=trunc(mn) do begin

if (trunc(mn) mod i=0) and(trunc(mx) mod i=0) then

begin b:=false; break; end; i:=i+k; end;

until b;

B3aumHo:=trunc(R);

end;

function viE:comp;

var ee:comp;u:integer;

begin       u:=0; ee:=1;

while trunc(ee*d) mod trunc(M)<>1 do begin

ee:=ee+1; end; viE:=ee;

end;

function Vozstep(x,p2,n:longint):longint;

var y,x2:comp;

begin  Y:=1; x2:=x;

while p2<>0 do begin

if p2 mod 2<>0 then begin

y:=trunc(y)*x2; y:=trunc(y) mod n;

end;

x2:=x2*x2; x2:=trunc(x2) mod n;

p2:=p2 div 2;

end; vozstep:=trunc(y);

end;

begin   clrscr;

randomize;

Writeln('Шифрование RSA');

Write('Выбираются два простых числа  ');

npoctbIe(P);npoctbIe(Q);

Writeln('P=',p,'     Q=',q);

n:=p*q; m:=(p-1)*(q-1);

Writeln('Вычисляются числа N=P*Q  и  M=(P-1)*(Q-1)');

Writeln('N=',trunc(n),' M=',trunc(m));

Writeln('Выбирается число D, взаимно простое с M');

D:=B3aumHo(M); Writeln('D=',d);

Writeln('Рассчитывается Е');

E:=viE;Writeln('E=',trunc(E));

Writeln('Открытыe ключu D=',D,' и N=',trunc(N),',');

Writeln('3акрытый ключ Е=', trunc(e));

Writeln('Введите сообщение:');

readln(s);

Изм.

Лист

№ докум.

Подпись

Дата

Лист

2

Лабораторная работа №6

Writeln('Шифр:');

for i:=1 to length(s) do begin

si[i]:=0;

si[i]:=vozstep(ord(s[i]),D,trunc(n));

Write(si[i]);

end;writeln; Writeln('Расшифровка:');

for i:=1 to length(s) do

Write(chr(vozstep(si[i],trunc(E),trunc(n))));

readln;

end.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

3

Лабораторная работа №6

 

Вывод: научился составлять программы шифрования текста, основываясь на алгоритме RSA.


 

А также другие работы, которые могут Вас заинтересовать

48678. Расчет концентраций и расходов исходной и очищенной газовой смеси и количество поглощаемого СО2 279 KB
  VG н м3 ч Степень поглощения ψ Размеры колец Рашига характеристический размер N мм Коэффициент избытка поглотителя r Отношение скорости газа к скорости захлёбывания n Абсорбтив Вещество Молекулярная масса M кг кмоль Степень поглощения ψ Молярный поток абсорбтива на входе газовой фазы n н кмоль с Молярный межфазный поток Δn кмоль с Молярный коэффициент распределения m кмоль кмоль Абсорбат Вещество G Молекулярная масса MG кг кмоль Молярная доля на входе низ колонны yn н мол. доля Относительная молярная доля на входе низ колонны Yn н...
48679. Основи теорії кіл. Методичні вказівки 1.31 MB
  Технічне завдання на проектування фільтру та графік виконання курсової роботи. За технічним завданням необхідно виконати синтез і аналіз двох типів фільтрів: фільтру нижніх частот або верхніх частот а також смугового або загороджувального фільтру. Смуга частот яка призначена для виділення частотних складових спектру сигналу називається смугою пропускання фільтру.1 Класифікація і частотні характеристики електричних фільтрів Частотновибіркові властивості фільтру прийнято характеризувати частотною залежністю його комплексного коефіцієнта...
48680. Цифровые системы передачи непрерывных сообщений. Методические указания 488 KB
  Основная задача курсовой работы – закрепление навыков расчёта характеристик системы передачи непрерывных сообщений цифровыми сигналами. Содержание работы Исходными данными для выполнения работы являются: 1 статистические характеристики сообщения; 2 допустимое значение относительной среднеквадратичной ошибки искажений сообщения при его преобразовании в цифровую форму и действии помех; 3 вид модуляции сигнала во второй ступени. С учётом заданного вида модуляции сигнала определить его параметры характеризующие форму и требуемое...
48681. Исследование характеристик линейных электрических цепей 2.58 MB
  Задание к курсовой работе Нормирование параметров и переменных цепи Определение передаточной функции цепи Hs Расчет частотных характеристик цепи Hj Определение переходной h1t и импульсной ht характеристик Вычисление реакции цепи при воздействии одиночного импульса на входе Определение спектральных характеристик одиночного импульса воздействия Вычисление спектра реакции при одиночном импульсе на входе Определение спектра периодического входного сигнала Приближенный расчет реакции при...
48682. Численное моделирование и анализ переходных процессов в электрической цепи 576 KB
  В начальный момент времени ключ находится в положении При этом цепь разомкнута, напряжение на конденсаторе и ток в катушке равны нулю (U = 0, I = 0). Происходит первое переключение ключа (ключ мгновенно переводится в положение 2). При этом происходит заряд конденсатора, меняются значения U и I.
48684. Основы теории цепей 379 KB
  Содержание расчетно-пояснительной записки: таблица исходных данных; электрическая схема фильтра системы уравнений цепи; комплексная функция передачи; карта полюсов и нулей; АЧХ и ФЧХ и импульсные характеристики. С помощью метода узловых напряжений составляется система уравнения цепи в математической и скалярной форме.
48685. Проектирование электрической сети для электроснабжения потребителей целлюлозно-бумажной промышленности 1.33 MB
  В условиях эксплуатации баланс мощности составляется на каждый час суток(диспетчерский график нагрузки), и на каждый месяц следующего квартала. При проектировании электрической сети баланс мощности составляется для определения суммарного необходимого ввода мощности на электростанциях и обмена потоками мощностей с энергосистемой.