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.


 

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

84624. Анализ оборачиваемости оборотных средств 100.65 KB
  Проблема адаптации зарубежного опыта в области управления запасами к реалиям транзитивной экономики России является актуальной в настоящее время. Однако запасы нельзя исследовать в отрыве от других элементов оборотных средств. Научный подход к управлению оборотными средствами должен...
84626. Создание хозяйства по выращиванию грибов 6.69 MB
  Настоящим бизнес-планом предусматривается открытие хозяйства, занимающегося выращиванием, уборкой и последующим сбытом сельскохозяйственной продукции (грибов). Самоокупаемость (точка безубыточности) и рентабельность.
84627. Статьи конфедерации 1781 года – первая конституция США 261 KB
  Именно в настоящее время чрезвычайно важно изучение процессов формирования конституционного государства, опыта упрочения федеративной формы государственного устройства ведущих зарубежных стран. США как независимое государство возникли в результате освободительной воины 1775—1783 гг.
84628. Методические указания: Гидравлический и пневматический привод 255 KB
  Обязательно изображение схем цилиндров при прямом и обратном ходах с нанесением движущих сил и сил сопротивления движению. Возможно что для обеспечения заданных скоростей движения придётся предусмотреть ограничение потока поступающего в цилиндр расхода цилиндра.
84629. Система менеджмента организации 129.46 KB
  Самой важной составляющей частью работы всего коллектива является обеспечение высокого качества своей продукции. У предприятия сложились долголетние связи с поставщиками основных видов сырья. Все сырье, поступающее на завод, сертифицировано, соответствует требованиям Госстандарта, проходит контроль качества.
84630. Инженерное проектирование многофункционального устройства Еpson Stylus TX119 с функцией голосового управления 564.95 KB
  Цель исследования -– изучение инженерных методик на всех этапах жизненного цикла продукции. В работе отражены все этапы ЖЦП в которых было рассчитано оптимальное значение параметров при которых будет обеспечиваться качество готового продукта и качество сервисного обслуживания после продажи продукции потребителю.
84632. Монтаж электрооборудования и электропроводок в гражданских зданиях 814.57 KB
  Характерной особенностью воздушной линии напряжением до 1000 В является использование опор для одновременного крепления на них проводов радиосети наружного освещения телеуправления сигнализации.