Реферат: Применение алгоритма RSA для шифрования потоков данных

for i:=2 to trunc(sqrt(n))+1 do

if (n/i)=trunc(n/i) then

begin

k:=False;

Break;

end;

Prost:=k;

end;

{________________________________________________________}

Function Evklid(Num1,Num2:integer):integer;

var r,q1,p1:array of integer;

i,n,k:integer;

begin

if Num1>=Num2 then

begin

SetLength(r,10);

r[0]:=Num1;

r[1]:=Num2;

end

else

begin

SetLength(r,10);

r[0]:=Num2;

r[1]:=Num1;

end;

i:=1;

while r[i]<>0 do

begin

inc(i);

r[i]:=r[i-2] mod r[i-1];

end;

n:=i-2;

SetLength(q1,n+1);

for i:=0 to n do

q1[i]:=r[i] div r[i+1];

SetLength(p1,n+2);

p1[0]:=1;

p1[1]:=q1[0];

k:=length(q1);

if k>1 then

for i:=2 to k do

p1[i]:=q1[i-1]*p1[i-1]+p1[i-2];

Result:=trunc(power(-1,k-1))*p1[k-1] mod Num2;

end;

{________________________________________________________}

Function HOD(Num1,Num2:integer):integer;

var r:array of integer;

i:integer;

begin

if Num1>=Num2 then

begin

SetLength(r,Num2);

r[0]:=Num1;

r[1]:=Num2;

end

else

begin

SetLength(r,Num1);

r[0]:=Num2;

r[1]:=Num1;

end;

i:=1;

While r[i]<>0 do

begin

inc(i);

r[i]:=r[i-2] mod r[i-1];

end;

Result:=r[i-1];

end;

{________________________________________________________}

Function ModDegree(Num,Degree,n:integer):integer;

var x:array of integer;

i:integer;

begin

SetLength(x,n);

x[1]:=Num mod n;

for i:=2 to Degree do

x[i]:=x[i-1]*Num mod n;

Result:=x[Degree];

end;

ПРИЛОЖЕНИЕ 2

Главная форма программы

ПРИЛОЖЕНИЕ 3

Форма базы данных абонентов

ПРИЛОЖЕНИЕ 4

Форма нахождения простых чисел и генерации ключей

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

АМУРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Факультет математики и информатики

Кафедра математического анализа и моделирования

Специальность 010200 – “прикладная математика”

ДОПУСТИТЬ К ЗАЩИТЕ

Зав. кафедрой ____________________

___________Т.В.Труфанова

«____»_____________2002 г.

ДИПЛОМНАЯ РАБОТА

на тему Применение алгоритма RSA при шифровании потоков данных

Исполнитель

студент группы 752 А. А. Малышев

Руководитель

к.ф.-м.н., доцент А.Н. Семочкин

Нормоконтроль

к.т.н., доцент А.Н. Гетман

Рецензент

к.ф.-м.н., доцент Е.Ф. Алутина

Благовещенск 2002

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

АМУРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Факультет математики и информатики

Кафедра математического анализа и моделирования

Утверждаю:

Зав. кафедрой

_______________________

подпись И.О.Фамилия

«__»_____________ 200_г.

ЗАДАНИЕ

К дипломной работе студента Малышева Андрея Александровича

1. Тема дипломной работы Применение алгоритма RSA при шифровании потоков данных

(утверждено приказом от ____ №___________)

2. Срок сдачи студентом законченной работы ________________________

3. Исходные данные к дипломной работе ___________________________

4. Содержание дипломной работы (перечень подлежащих разработке вопросов)

Исследовать современные методы шифрования и их приложимость к шифрованию потоков данных. Разработать собственную библиотеку алгоритмов шифрования и программный продукт, демонстрирующий работу этих алгоритмов при передаче данных в сети.

5. Дата выдачи задания « » ____________2002 г.

Руководитель дипломной работы Семочкин Александр Николаевич к.ф.-м.н., доцент кафедры МАиА.

Задание принял к исполнению _____________________________________

РЕФЕРАТ

Дипломная работа 48 стр., 11 источников, 4 приложения.

АЛГОРИТМ RSA, ФУНКЦИЯ ЭЙЛЕРА, ВЗАИМНО ПРОСТЫЕ ЧИСЛА

В данном дипломном проекте рассматривается задача анализа алгоритма шифрование в потоках данных RSA. Для этого построен алгоритм и реализован программный продукт. Программный продукт создан в среде визуального программирования Delphi 5.0, отлажен и протестирован. На основании анализа полученных результатов сделаны выводы, указаны замечания и рекомендации исследователю по практическому использованию программы, а также по дальнейшему улучшению алгоритма и программного продукта в целом.