Изучение симметричных алгоритмов шифрования

Филиал государственного образовательного учреждения высшего профессионального образования

«Санкт-Петербургский государственный инженерно-экономический университет» в г.Чебоксары

Кафедра информационных систем и математики

Отчет по лабораторной работе №3

По дисциплине: Информационная безопасность

На тему: Изучение симметричных алгоритмов шифрования

Выполнила:

студентка
группы 92-06

Удалова Л.В.

Руководитель:
ст. преп. А.А.Алякина

Чебоксары, 2010

1. Цель работы:

Изучение симметричных алгоритмов

1.1 Порядок выполнения:

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

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

2. Индивидуальное задание.

2.1 Система биграммного шифрования Плейфера

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

Шифр Плейфера, изобретенный в 1854 г., является наиболее известным биграммным шифром замены. Он применялся Великобританией во время первой мировой войны. Основой шифра Плейфера является шифрующая таблица со случайно расположенными буквами алфавита исходных сообщений.

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

Процедура шифрования включает следующие шаги:

1. Открытый текст исходного сообщения разбивается на пары букв (биграммы). Текст должен иметь четное количество букв и в нем не должно быть биграмм, содержащих две одинаковые буквы. Если эти требования не выполнены, то текст модифицируется даже из-за незначительных орфографических ошибок.

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

· Если обе буквы биграммы открытого текста не попадают на одну строку или столбец (как, например, буквы А и Й в табл. на рис.8), тогда находят буквы в углах прямоугольника, определяемого данной парой букв. (В нашем примере это буквы АЙОВ. Пара букв АЙ отображается в пару 0В. Последовательность букв в биграмме шифртекста должна быть зеркально расположенной по отношению к последовательности букв в биграмме открытого текста).

· Если обе буквы биграммы открытого текста принадлежат одному столбцу таблицы, то буквами шифртекста считаются буквы, которые лежат под ними. (Например, биграмма НС дает биграмму шифртекста ГЩ.) Если при этом буква открытого текста находится в нижней строке, то для шифртекста берется соответствующая буква из верхней строки того же столбца. (Например, биграмма ВШ дает биграмму шифртекста ПА.)

· Если обе буквы биграммы открытого текста принадлежат одной строке таблицы, то буквами шифртекста считаются буквы, которые лежат справа от них. (Например, биграмма НО дает биграмму шифртекста ДЛ.) Если при этом буква открытого текста находится в крайнем правом столбце, то для шифра берут соответствующую букву из левого столбца в той же строке. (Например, биграмма ФЦ дает биграмму шифртекста ХМ.).

Зашифруем текст

ВСЕ ТАЙНОЕ СТАНЕТ ЯВНЫМ

Разбиение этого текста на биграммы дает

ВС ЕТ АЙ НО ЕС ТА НЕ ТЯ ВН ЫМ

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

ГП ДУ ОВ ДЛ НУ ПД ДР ЦЫ ГА ЧТ

При расшифровании применяется обратный порядок действий.

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

Рис. 1. Шифрующая таблица с ключевым словом БАНДЕРОЛЬ

3. Блок-схемы биграммного шифрования Плейфера

3.1 Алгоритм функции шифрования

Приложение 1

Алгоритм функции шифрования

3.2 Алгоритм функции расшифровывания

Приложения 2

Алгоритм функции расшифровывания:

4. Текст программы биграммного шифрования Плейфера

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

Данная программа реализована на языке Delphi 7.

Delphi – Borland Delphi представляет собой средство разработки приложений для Microsoft Windows. Delphi является мощным и простым в использовании инструментом для создания автономных программ, обладающих графическим интерфейсом (GUI), или 32-битных консольных приложений (программ, которые не имеют графического интерфейса).

Ниже приведен текст программы «Биграммного шифрования Плейфейра»:

unit Unit1;

interface

uses

Windows, Messages, MATH, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Grids, ExtCtrls, Buttons, XPMan, Menus;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Memo2: TMemo;

Memo3: TMemo;

Memo1: TMemo;

StringGrid1: TStringGrid;

GroupBox1: TGroupBox;

UpDown1: TUpDown;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

XPManifest1: TXPManifest;

StatusBar1: TStatusBar;

MainMenu1: TMainMenu;

File1: TMenuItem;

Exit1: TMenuItem;

Open1: TMenuItem;

Save1: TMenuItem;

N1: TMenuItem;

Savedecrypt1: TMenuItem;

Edit1: TMenuItem;

Crypt1: TMenuItem;

Decrypt1: TMenuItem;

Clear1: TMenuItem;

About1: TMenuItem;

About2: TMenuItem;

procedure Button2Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);

procedure Memo1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Exit1Click(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure Savedecrypt1Click(Sender: TObject);

procedure Open1Click(Sender: TObject);

procedure Clear1Click(Sender: TObject);

procedure Crypt1Click(Sender: TObject);

procedure Decrypt1Click(Sender: TObject);

procedure About2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a: array of array of char;

rowk,colk:integer;

alf:string;

implementation

uses AboutF;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

memo1.Lines.LoadFromFile(OpenDialog1.FileName);

statusbar1.Panels[0].Text:='Текст загружен';

end;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Memo1.Clear;

Memo2.Clear;

Memo3.Clear;

Memo1.SetFocus;

button4.Enabled:=false;

button5.Enabled:=false;

button6.Enabled:=false;

statusbar1.Panels[2].Text:=inttostr(length(memo1.Text));

statusbar1.Panels[0].Text:='Поле с открытым текстом очищенно';

form1.Decrypt1.Enabled:=false;

form1.Savedecrypt1.Enabled:=false;

form1.Save1.Enabled:=false;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if savedialog1.Execute then

begin

Memo2.Lines.SaveToFile(savedialog1.FileName);

statusbar1.Panels[0].Text:='Зашифрованый текст сохранен';

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if savedialog1.Execute then

begin

memo3.Lines.SaveToFile(savedialog1.FileName);

statusbar1.Panels[0].Text:='Расшифрованый текст сохранен';

end;

end;

//заполняем матрицу символами

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,k:integer;

begin

k:=1;

colk:=form1.StringGrid1.ColCount;

rowk:=stringgrid1.RowCount;

setlength(a,colk,rowk);

alf:=#039+'ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯabcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя !@#№$;%^:&?*()-_+=[]/{}<>.,123456789|~"Ї°±™ґµ¶'+#13#10;

for i:=0 to colk-1 do

for j:=0 to rowk-1 do

begin

a[i,j]:=alf[k];

with StringGrid1 do

begin

Cells[i,j]:=a[i,j];

inc(k);

end;

end;

button3.Enabled:=true;

statusbar1.Panels[3].Text:='Матрица загружена';

end;

function prob(ss:string;lenn:integer): string;

var

s1:string;

i,j,k:integer;

begin

k:=0;

while k<2 do begin

For i:=1 to lenn do

if (ss[i]=ss[i+1]) then

begin

s1:='';

for j:=1 to i do

s1:=s1+ss[j];

s1:=s1+'µ';

for j:=i+1 to lenn do

s1:=s1+ss[j];

ss:=s1;

lenn:=Length(ss);

end;

inc(k);

Result:=ss;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

s,t:string;

k, i, j, len, x1, y1, x2, y2, c:integer;

begin

t:=memo1.Text;

len:=Length(t);

if len>1 then

begin

s:=prob(t,len);

len:=Length(s);

if (len mod 2)=1 then

s:=s+' ';

for i:=1 to len do

if (i mod 2 = 1) then

begin

for j:=0 to colk-1 do

for c:=0 to rowk-1 do

begin

if s[i]=a[j,c] then

begin

x1:=j;

y1:=c;

end;

if s[i+1]=a[j,c] then

begin

x2:=j;

y2:=c;

end;

end;

if (x1=x2) then

begin

if y1=rowk-1 then s[i]:=a[x1,0]

else s[i]:=a[x1,y1+1];

if y2=rowk-1 then s[i+1]:=a[x1,0]

else s[i+1]:=a[x1, y2+1];

end;

if (y1=y2) then

begin

if x1=colk-1 then s[i]:=a[0,y1]

else s[i]:=a[x1+1,y2];

if x2=colk-1 then s[i+1]:=a[0,y1]

else s[i+1]:=a[x2+1,y2];

end;

if (y1<>y2) and (x1<>x2) then

begin

s[i]:=a[x1,y2];

s[i+1]:=a[x2,y1];

end;

end;

memo2.text:=s;

button4.Enabled:=true;

button5.Enabled:=true;

statusbar1.Panels[0].Text:='Текст зашифрован';

form1.Decrypt1.Enabled:=true;

form1.Save1.Enabled:=true;

end

else

begin

MessageDlg('Введите больше символов!', mtInformation, [mbOk], 0);

memo1.SetFocus;

statusbar1.Panels[0].Text:='Ошибка ввода откр.текста';

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

s,s1:string;

k, i, j, len, x1, y1, x2, y2, c:integer;

begin

s:=memo2.Text;

len:=Length(s);

for i:=1 to len do

if (i mod 2 = 1) then

begin

for j:=0 to colk-1 do

for c:=0 to rowk-1 do

begin

if s[i]=a[j,c] then

begin

x1:=j;

y1:=c;

end;

if s[i+1]=a[j, c] then

begin

x2:=j;

y2:=c;

end;

end;

if (x1=x2) then

begin

if y1=0 then s[i]:=a[x1,rowk-1]

else s[i]:=a[x1,y1-1];

if y2=0 then s[i+1]:=a[x1,rowk-1]

else s[i+1]:=a[x1,y2-1];

end;

if (y1=y2) then

begin

if x1=0 then s[i]:=a[colk-1,y1]

else s[i]:=a[x1-1,y2];

if x2=0 then s[i+1]:=a[colk-1,y1]

else s[i+1]:=a[x2-1,y2];

end;

if (y1<>y2) and (x1<>x2) then

begin

s[i]:=a[x1,y2];

s[i+1]:=a[x2,y1];

end;

end;

len:=Length(s);

For i:=1 to len do begin

if (s[i]='µ') then

begin

s1:='';

for j:=1 to i-1 do

s1:=s1+s[j];

for j:=i+1 to len do

s1:=s1+s[j];

s:=s1;

end; end;

len:=Length(s);

memo3.text:=s;

button6.Enabled:=true;

statusbar1.Panels[0].Text:='Текст расшифрован';

form1.Savedecrypt1.Enabled:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

statusbar1.Panels[0].Text:='Введите текст для шифрования';

Memo1.Clear;

Memo2.Clear;

Memo3.Clear;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button6.Enabled:=false;

form1.Decrypt1.Enabled:=false;

form1.Savedecrypt1.Enabled:=false;

form1.Save1.Enabled:=false;

form1.Button1.Click;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

Finalize(a);

end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

var

fv:integer;

begin

fv:=updown1.Position;

if (fv=1) then

begin

form1.Width:=907;

end;

if (fv=0) then

begin

form1.Width:=466;

end;

end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

statusbar1.Panels[2].Text:=inttostr(length(memo1.Text));

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Save1Click(Sender: TObject);

begin

if savedialog1.Execute then

begin

Memo2.Lines.SaveToFile(savedialog1.FileName);

statusbar1.Panels[0].Text:='Зашифрованый текст сохранен';

end;

end;

procedure TForm1.Savedecrypt1Click(Sender: TObject);

begin

if savedialog1.Execute then

begin

memo3.Lines.SaveToFile(savedialog1.FileName);

statusbar1.Panels[0].Text:='Расшифрованый текст сохранен';

end;

end;

procedure TForm1.Open1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

memo1.Lines.LoadFromFile(OpenDialog1.FileName);

statusbar1.Panels[0].Text:='Текст загружен';

end;

end;

procedure TForm1.Clear1Click(Sender: TObject);

begin

Button7.Click;

end;

procedure TForm1.Crypt1Click(Sender: TObject);

begin

Button3.Click;

end;

procedure TForm1.Decrypt1Click(Sender: TObject);

begin

Button4.Click;

end;

procedure TForm1.About2Click(Sender: TObject);

begin

form2.showmodal;

end;

end.

5. Работа программы биграммного шифрования Плейфера

Разработанная программа обладает интерактивным интерфейсом. Методы и средства взаимодействия с аппаратными и программными средствами называют пользовательским интерфейсом. Разработанная программа обладает интерфейсом приведенным на рисунке 2

Рис. 2. Интерфейс системы биграммного шифрования Плейфера

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

Рис. 3. Результат шифрования текста

Также можно выполнить расшифрование текста, нажав на кнопку «Расшифровать» (рис. 4).

Рис. 4. Результат расшифрования текста

При необходимости можно сохранить зашифрованные данные нажав кнопку «Сохранить файл». И при помощи кнопки «Выход» происходит закрытие программы.

6. Выводы по работе

Испокон веков не было ценности большей, чем информация. ХХ век - век информатики и информатизации. Технология дает возможность передавать и хранить все большие объемы информации. Это благо имеет и оборотную сторону. Информация становится все более уязвимой по разным причинам:

· возрастающие объемы хранимых и передаваемых данных;

· расширение круга пользователей, имеющих доступ к ресурсам ЭВМ, программам и данным;

· усложнение режимов эксплуатации вычислительных систем.

Поэтому все большую важность приобретает проблема защиты информации от несанкционированного доступа (НСД) при передаче и хранении.

Поэтому в результате выполнения лабораторной работы была разработана программа, реализующая криптографический алгоритм шифрования и дешифрования с использованием открытого текста в качестве ключа по таблице Трисемуса. Разработанная программа написана на языке программирования Delphi 7.