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.


 

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

47161. Государственный экологический контроль. Права государственных экспертов 71.28 KB
  Государственный контроль в области охраны окружающей среды государственный экологический контроль осуществляется федеральными органами исполнительной власти и органами исполнительной власти субъектов Российской Федерации. Государственный контроль в области охраны окружающей среды государственный экологический контроль осуществляется в порядке установленном Правительством Российской Федерации. В случае если при строительстве реконструкции капитальном ремонте объектов капитального строительства предусмотрено осуществление...
47162. Subordinate clauses of adverbial positions 71.5 KB
  Adverbial clauses are usually classified according to their meaning, that is, according to the relation they bear to the main clause. They differ from nominal and attributive clauses in that they are introduced by conjunctions with a more distinct meaning
47163. Загальна характеристика судової системи України. Місцеві державні адміністрації, їх повноваження 66 KB
  Конституційний Суд України є єдиним органом конституційної юрисдикції в Україні. Система судів загальної юрисдикції відповідно до Конституції України будується за принципами територіальності і спеціалізації. Систему судів загальної юрисдикції складають:1 місцеві суди;2 апеляційні суди Апеляційний суд України;3 Касаційний суд України був визнаний неконституційним за рішенням Конституційного Суду України;4 вищі спеціалізовані суди;5 Верховний Суд України.
47164. Предпринимательские функции государства. Особенности функционирования государственных предприятий и их виды 71.9 KB
  Теория безработицы. Причины и формы безработицы. Последствия безработицы закон Оукена. Взаимосвязь инфляции и безработицы.
47166. Региональный уровень организации управления 72 KB
  Многозначность понятия региона отражена в нормативных актах Российской Федерации например в утвержденных 3 июня 1996 года Основных положениях региональной политики в РФ. В данном документе регион трактуется как часть территории Российской Федерации обладающая общностью природных социальноэкономических национальнокультурных и иных условий. Регион может совпадать с границами территории субъекта федерации либо объединять территории нескольких субъектов Российской Федерации. Регионы как субъекты федерации в федеративном государстве...
47168. Предложение, его закон, факторы и эластичность 73.5 KB
  Предприятие представляет собой первичное звено народного хозяйства в системе общественного разделения труда. разделения труда. Общее разделение труда. Частное разделение труда.
47169. Понятие труда. Трудовой процесс и его элементы 72.5 KB
  Понятие труда. Труд: Рассмотрение труда как экономической категории труд как экономический ресурс впервые это затронул Маршалл. Характерные черты труда: Целесообразная деятельность Осознанная деятельность Общественнозначимая деятельность; удовлетворение личных и общественных потребностей Трудовой процесс совокупность действий исполнителей по преобразованию предмета труда в продукт труда выполняемых на рабочем месте. Основные составляющие: Предмет труда Орудие труда Средства труда Работник.