Шифр Виженера (модифицированный шифр Цезаря)
Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







Шифр Виженера (модифицированный шифр Цезаря)





Вариант 1

Декларирование функции

{ Private declarations } function VCR(PSW,TXT:string; CRT: boolean):string; //Виженер

Описание функции

Шифрование

Расшифрование

Задание. Проверить работу функции: зашифровать и расшифровать произвольный текст, изменяя пароль.

 

Модифицированный шифр Цезаря (шифр Виженера)

Вариант 2

Декларирование функции

{ Private declarations } function VCR(PSW,TXT:string; CRT: boolean):string; //Виженер function CZR(PSW,TXT:string; CRT: boolean):string; //Цезарь

Описание функции

Шифрование

procedure TForm1.Button3Click(Sender: TObject); begin Memo2.Text := CZR(Edit1.Text,Memo1.Text, true); end;

Расшифрование

procedure TForm1.Button4Click(Sender: TObject); begin Memo3.Text := CZR(Edit1.Text,Memo2.Text,false); end;

Задание. Проверить работу функции: зашифровать и расшифровать произвольный текст, изменяя пароль.

Убедитесь, что шифры Виженера и модифицированный шифр Цезаря дают один и тот же результат, т.е. реализуют одинаковый алгоритм с различной программной реализацией.

Шифрование методом XOR

Декларирование функции

{ Private declarations } function VCR(PSW,TXT:string; CRT: boolean):string; //Виженер function CZR(PSW,TXT:string; CRT: boolean):string; //Цезарь functionTXT_XOR(PSW,TXT:string):string; // Метод XOR

Описание функции

 

Шифрование

procedure TForm1.Button5Click(Sender: TObject); begin Memo2.Text := TXT_XOR(Edit1.Text,Memo1.Text); end;

Расшифрование

procedure TForm1.Button6Click(Sender: TObject); begin Memo3.Text := TXT_XOR(Edit1.Text,Memo2.Text); end;

Задание. Проверить работу функции, изменяя пароль.

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

Модель шифровальной машины ”ЭНИГМА”

Особенностью алгоритма ЭНИГМА является сдвиг текущего символа в строке текста на значение некоторой функции, зависимой от номера позиции символа в строке. В нашей работе будем применять функцию сдвига f(kx,i) = (kx * i)^2, где



i – порядковый номер символа в строке,

kx – множитель (нечетное число = 0, 1, 3, 5, 7, . .., n).

 

В качестве алгоритма шифрования может выступать алгоритм Цезаря с переменным шагом замены.

Шифрование по таблице ASCII , (1)

Расшифрование по таблице ASCII . (2)

При kx = 0 шифрование и расшифрование происходить не будут, так как Ci = Ti + 0 (mod 256) и
Ti = Ci – 0 (mod 256).

Для выполнения работы будем использовать компоненты :

  • SpinEdit (множитель), страница Samples;
  • три компонента Memo (открытый текст, криптограмма, расшифрованный текст);
  • две кнопки Button (1 - шифровать, 2 - расшифровать).

 

 

Рис. 1 Расположение компонентов в форме

 

Ниже приводится универсальная функция шифрования и расшифрования текста по описанному алгоритму. Входными параметрами функции являются:

  • Tx – текст или криптограмма;
  • kx – множитель сдвига;
  • Encrupt – вид операции (true – шифрование, false – расшифрование).

Результатом работы функции является текст либо криптограмма.

 

Декларирование функции

{ Private declarations } function EnDeCrupt(Tx:String; Kx:Integer; Encrupt: boolean):String;

 

Задание 1. Выполнить шифрование и расшифрование текста при различных значениях множителя.

Задание 2. Изменить функцию сдвига, например на и посмотрите на результат.

Шифрование

X := X + Chr( (Ord(Tx[i]) + TRUNC(i/(2*pi) * kx) ) mod 256 )

Расшифрование

X := X + Chr( (Ord(Tx[i]) - TRUNC(i/(2*pi) * kx) ) mod 256 );

 

Примечание: множитель kx может принимать любые значения.


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

Простые числа

Натуральное число p, большее единицы, называетсяпростым, если оно имеет только 2 положительных делителя 1 и само число p. Например числа 3, 5, 7.

Натуральное число называется составным, если оно имеет более 2-х положительных делителей. Например числа 6, 8, 9. 1 — ни простое, ни составное число.

Теорема арифметики. Любое натуральное число n, большее единицы, может быть разложено в произведение простых чисел (множителей), причем это разложение единственное.

Разложение натурального числа n имеет вид:

, где p1, p2,... pk — различные простые числа,
(множество натуральных чисел).

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

Решается задача: определить, является ли натуральное число n простым.

 

Метод пробных делений

Пусть число n N. Если n – составное число, то n = ab, где 1< a b, причем (если b=a, то n=a2 ).

Будем искать делители числа n. Для этого достаточно проверить, делится ли число n
на 2, 3, 4, . . ., .

Если делитель найден, то число n — составное (не является простым). Если, делитель не будет найден, то n – простое число.

 

Пример.Сгенерироватьтаблицупростых чисел в выбранном диапазоне значений.

 

В примере использованы:

  • два компонента SpinEdit — для выбора значений из диапазона чисел;
  • компонент Memo — для отображения результатов;
  • компоненты Label — для заголовков;
  • командная кнопка Button — для запуска обработчика событий.

 









Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2018 zdamsam.ru Размещенные материалы защищены законодательством РФ.