Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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





Вариант 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 имеет вид:

, где p 1, p 2, ... 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 — для запуска обработчика событий.

 

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






ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...

ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования...

Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор...

Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...





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


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