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.


 

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

77780. Теорія і практика оподаткування підприємства «Унірем Агро» 1.36 MB
  Актуальність теми полягає у розгляді законів та податків, що регулюють і регламентують всю діяльність сільськогосподарських підприємств в Україні та забезпечують відповідний контроль над ними, і які покликані внести спрощення у справлянні податків із сільськогосподарських товаровиробників...
77782. Реконструкция КУСП «Мишневичи» Шумилинского района 907.93 KB
  Одна из главных проблем, стоящих на современном этапе развития,- рациональное применение электрической энергии, наиболее эффективное использование электрооборудования. Для достижения этой цели необходимо знать и уметь пользоваться методом технических расчётов в планировании...
77783. Проектирование СТОА ООО “Стройметмастерсервис” 1.72 MB
  В 1970 году вступила в строй первая очередь завода рассчитанная на выпуск 220 тыс. автомобилей Жигули, и с конвейера сошли первые автомобили ВАЗ 2101, за основу которых был взят итальянский автомобиль ФИАТ 124. Мощность двигателя 2101 составляла 60 л.с., а максимальная скорость 140 км/ч.
77784. Правовые проблемы наследования по завещанию в гражданском праве Российской Федерации 279 KB
  Современному обществу нельзя обойтись без наследования, поэтому его значение очень велико. Особенно возросла роль наследственного права в нашей жизни в последние годы. У многих граждан появилась дорогостоящая собственность – дома, земельные участки, квартиры.
77785. PR-технологии продвижения торговой компании Babyliss 358.5 KB
  В современном мире PR является одним из наиболее динамично развивающихся и перспективных видов предпринимательской деятельности. С середины 90-х гг. в России наблюдается настоящий бум развития PR, обусловленный произошедшими экономическими и социальными изменениями.
77786. Проектируемое предприятие ресторан с баром в г. Саратове 26.19 MB
  Среди предприятий общественного питания основное место занимают рестораны, кафе, бары. Они играют заметную роль в организации отдыха населения. Туда приходят не только для того, чтобы поесть, но и отметить юбилей, важное событие в жизни человека, того или иного коллектива...
77787. Совершенствование системы развития персонала организации (на примере ЗАО АФ «Аудит-Классик») 306.06 KB
  Актуальность развития персонала заключается в следующем. Система развития персонала способствует формированию коллектива, обладающего высокими способностями и сильной мотивацией к выполнению задач, стоящих перед организацией. Развитие персонала ведет к росту производительности...