регистрация / вход

Шифры простой замены

ЛАБОРАТОРНАЯ РАБОТА №1 ШИФРЫ ПРОСТОЙ ЗАМЕНЫ 1. ШИФР ЦЕЗАРЯ В 1 в. н.э. Ю. Цезарь во время войны с галлами, переписываясь со своими друзьями в Риме, заменял в сообщении первую букву латинского алфавита (А) на четвертую (D), вторую (В) – на пятую (Е), наконец, последнюю – на третью:

ЛАБОРАТОРНАЯ РАБОТА №1

ШИФРЫ ПРОСТОЙ ЗАМЕНЫ

1. ШИФР ЦЕЗАРЯ

В 1 в. н.э. Ю. Цезарь во время войны с галлами, переписываясь со своими друзьями в Риме, заменял в сообщении первую букву латинского алфавита (А) на четвертую (D), вторую (В) – на пятую (Е), наконец, последнюю – на третью:

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

D E F G H I J K L M N O P Q R S T U V W X Y Z A B C

Пример 1.1. Донесение Ю. Цезаря Сенату об одержанной им победе

над Понтийским царем выглядело так:

YHQL YLGL YLFL ("Veni, vidi, vici" – лат. "Пришел, увидел, победил").

Император Август (1 в. н. э.) в своей переписке заменял первую букву на вторую, вторую – на третью и т. д., наконец, последнюю – на первую:

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

B C D E F G H I J K L M N O P Q R S T U V W X Y Z A

Пример 1.2. Любимое изречение императора Августа выглядело так:

GFTUJOB MFOUF ("Festina lente" – лат. "Торопись медленно").

Таким образом, множество отображений шифра Цезаря – это циклическая подгруппа симметрической группы , состоящая из подстановок сдвига:

,

где . (Определение математическое, для многих не понятное.)

Система Цезаря – это моноалфавитная подстановка (т.к. каждой букве открытого текста ставится в соответствие одна буква шифртекста), преобразующая открытый текст в криптограмму . При использовании для шифрования подстановки символ открытого текста заменяется символом шифрованного текста.

Цезарь использовал подстановку . Величина сдвига может выступать в качестве ключа. Шифр Цезаря является очень неустойчивым к вскрытию: для расшифровки достаточно осуществить перебор всех ключей, число которых меньше (для латинского алфавита их будет 26).

Для улучшения криптографической стойкости шифра Цезаря можно в качестве преобразующего алфавита задать его рандомизированную версию. В этом случае будет 26! способов упорядочивания алфавита. Но в качестве ключа будет не величина сдвига (одна цифра), а рандомизированный вариант алфавита.

2. МОДИФИЦИРОВАННЫЙ ШИФР ЦЕЗАРЯ

Аббат Тритемеус – автор первой печатной книги о тайнописи (1518 г.) – предложил несколько шифров и среди них шифр, который можно считать усовершенствованием шифра Цезаря. Все буквы алфавита нумеруются по порядку (от 1 до 31 в русском варианте).

Затем выбирают какое-нибудь слово, называемое "ключом", и подписывают под сообщением с повторением.

Чтобы получить шифрованный текст, складывают номер очередной буквы с номером соответствующей буквы ключа. Если полученная сумма больше 31, то из нее вычитают 31. В результате получают последовательность чисел от 1 до 31. Вновь заменяя числа этой последовательности соответствующими буквами, получают шифрованный текст. Разбивая этот текст на группы одной длины, получают шифрованное сообщение.

Пример 1.3. Выбираем ключевое слово "Пособие". Составляем сообщение "сессия начинается в конце семестра"

с е с с и я н а ч и н а е т с я в к о н ц е с е м е с т р а

п о с о б и е п о с о б и е п о с о б и е п о с о б и е п о

Шифруем, разбиваем текст на группы длины 6, и получаем шифрованное сообщение:

в ф д а и и у р з ь э в о ш в о ф щ р ц э х б ч ы з ь ш б п

Чтобы получить шифрованный текст, складывают номер очередной буквы с номером соответствующей буквы ключа. Если полученная сумма больше 33, то из нее вычитают 33. В результате получают последовательность чисел от 1 до 33. Вновь заменяя числа этой последовательности соответствующими буквами, получают шифрованный текст. Разбивая этот текст на группы одной длины, получают шифрованное сообщение.

Если под ключом шифра понимать однобуквенное слово “В” (в русском варианте), то мы получим шифр Цезаря.

Пример 1.4. Для сообщения из примера 1.3, получим:

ф и ф ф л в р г ь л р г и х ф в в н т р щ и ф и п и ф х у г

3. ШИФР АТБАШ

Шифр Атбаш . Коды появились в глубокой древности в виде криптограмм. Порой священные иудейские тексты шифровались методом замены. Вместо первой буквы алфавита писалась последняя буква, вместо второй - предпоследняя и т.д. Этот древний шифр назывался Атбаш.

Если попытаться изобразить механизм шифра Атбаш наглядно, то это может выглядеть следующим образом:

А Б В Г Д Э Ю Я _

Рис. 1

Так, например, для текста, состоящего только из букв кириллического алфавита и пробела, замена будет осуществляться по правилу: А-пробел, Б-Я, В-Ю и т.д. Абсолютно аналогично справедлива обратная замена. При программной реализации методов шифрования текста на языке ObjectPascal целесообразно использовать таблицу ASCII и функции работы с ней (ord и chr). В данном случае ключ шифрования не задан явным образом, но подразумевается, что он равен 1.

Можно вполне модифицировать данный простейший шифр и добавить некоторые дополнительные параметры (изменить первичный ключ или способ его генерации).

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

Function Atbash(openchar:char):char;

Begin

Atbash := 255 – ord(openchar);

End;

Как видно из фрагмента программы функция Atbash переводит символ открытого текста в шифр путем зеркального отражения по таблице ASCII, состоящей из 256 символов (0..255).

ЗАДАНИЕ

1. Реализовать все описанные варианты шифра Цезаря (циклический сдвиг алфавита, рандомизированный алфавит замены, шифрование с ключевым словом).

2. Реализовать шифр Атбаш.

МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ

Ниже приводится пример реализации шифра Цезаря в среде Delphi.

Общая схема шифра для латинского алфавита изображена на рис. 2.


А B C D E F G H I

Рис. 2

То есть, отображение происходит по правилу: A-D, B-E, C-F, D-G и т.д.

Например, слово BAG будет зашифровано в EDJ. Очевидно, что для обратного преобразования необходимо «сдвинуть» символы в обратную сторону на количество, равное исходному ключу.

Шифрование можно выразить общей формулой:

, где

С – шифрованный символ,

О – открытый текст,

key – ключ (сдвига).

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

, где

С – шифрованный символ,

О – открытый текст,

key– ключ (сдвига).

Теперь приступим непосредственно к программированию данных шифров.

1. Запустите инструментальную объектно-ориентированную среду программирования Delphi. (Пуск/Программы/ Borland Delphi / Delphi )

2. Создайте новый проект и сохраните его в новой папке AtbashCezar .

3. Поместите на форму следующие компоненты со страниц:

a. Standard :

b. Additional :

c. Dialogs:

4. Задайте следующие свойства данным компонентам:

Компонент Свойство Значение
Form1 Caption Шифрование текста
Label1 Caption Выберите шифр
Label2 Caption Исходный текст
Label3 Caption Результат
ComboBox1 Items

Атбаш

Шифр Цезаря

ComboBox1 ItemIndex 0
RadioGroup1 ItemIndex 0
RadioGroup1 Items

Шифровать

Расшифровать

RadioGroup1 Caption Действие
CheckBox1 Name Clr
CheckBox1 Caption Всегда очищать результат
BitBtn1 Caption Выполнить
BitBtn2 Caption Очистить
BitBtn3 Caption Очистить
BitBtn4 Caption Поменять
BitBtn5 Caption Выход
BitBtn6 Caption Открыть исх. текст из файла
BitBtn7 Caption Сохранить результат в файл
SaveDialog1 Filter Текстовые файлы|*.txt
OpenDialog1 Filter Текстовые файлы|*.txt
ActionList1 Name Crypto

Свойства Glyph (иконка, файл *.ico) компонента BitBtn заполните самостоятельно. Стандартныеиконкидлякнопок Delphi расположенывC:\Program files\Common files\Borland Shared\Images\Buttons . Также вы можете изменить свойство Font компонентов Label1 и Label2.

5. Расположите компоненты на форме по образцу:

6. Создайте следующие подпрограммы шифрования строк (после implementation ):

{ Шифр Атбаш . Симметричный }

function catbash(s:string):string;

var i:integer; c,d:char;rez:string;

begin

rez:='';

for i:=1 to length(s) do

begin

c:=s[i];

d:=chr(255-ord(c));

rez:=rez+d;

end;

catbash:=rez;

end;

{ Шифр Цезаря . Шифрование }

function cEcezar(s:string; key:byte):string;

var i:integer; c,d:char;rez:string;

begin

rez:='';

for i:=1 to length(s) do

begin

c:=s[i];

d:=chr((ord(c)+ key)mod 255);

rez:=rez+d;

end;

cEcezar:=rez;

end;

{ Шифр Цезаря . Расшифрование }

function cDcezar(s:string;key:byte):string;

var i:integer; c,d:char;rez:string;

begin

rez:='';

for i:=1 to length(s) do

begin

c:=s[i];

d:=chr((ord(c)- key)mod 255);

rez:=rez+d;

end;

cDcezar:=rez;

end;

7. Двойным щелчком вызовите редактор компонента Crypto (TActionList) и создайте следующие действия:

Для переименования в соответствии с образцом измените свойство Name у каждого действия.

8. Для каждого из действий опишите подпрограммы:

procedure TForm1.AtbashExecute(Sender: TObject);

var i:integer;

begin

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(catbash(memo1.Lines[i]));

end;

procedure TForm1.ECezarExecute(Sender: TObject);

var i:integer;key:byte;

begin

key:=strtoint(inputbox('ШифрЦезаря','Введитезначениеключа - толькоцелоечисло','3'));

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(cEcezar(memo1.Lines[i],key));

end;

procedure TForm1.DCezarExecute(Sender: TObject);

var i:integer;key:byte;

begin

key:=strtoint(inputbox('ШифрЦезаря','Введитезначениеключа - толькоцелоечисло','3'));

for i:=0 to memo1.Lines.Count do

memo2.Lines.Add(cDcezar(memo1.Lines[i],key));

end;

procedure TForm1.clearExecute(Sender: TObject);

begin

memo2.Clear;

end;

procedure TForm1.changeExecute(Sender: TObject);

begin

memo1.Lines:=memo2.Lines;

memo2.Clear;

end;

9. Опишите подпрограммы для каждой из кнопок BitBtn :

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if clr.Checked then memo2.clear;

if combobox1.ItemIndex=0 then atbash.Execute

else if action.ItemIndex=0 then ECezar.Execute

else DCezar.Execute;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

memo2.Clear;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

change.Execute;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

if Opendialog1.Execute then

memo1.Lines.LoadFromFile(opendialog1.FileName);

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

if Savedialog1.Execute then

memo2.Lines.SaveToFile(savedialog1.FileName);

end;

10. Запустите проект.

ОТКРЫТЬ САМ ДОКУМЕНТ В НОВОМ ОКНЕ

ДОБАВИТЬ КОММЕНТАРИЙ [можно без регистрации]

Ваше имя:

Комментарий

Другие видео на эту тему