Составили свой алгоритм шифрования по схеме Вижинера

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

Тема: Программные средства криптографической защиты информации

Цель: Научится использовать различные программные средства шифрования файлов.

Оборудование и программное обеспечение:

Персональный компьютер IBM PC/AT.

Операционная система Windows 2000/XP/2003/Vista/7; Windows 2003 Server.

Программное обеспечение: на выбор.

Практическая часть

1. Изучили теоретическую часть

2. Ознакомились с интерфейсом программных продуктов

· Dekart Private Disk 2.04

· Files Cipher 1.4

· Animabilis RS File Encryption 1.2

· CryptoFan 2 Lite Версия: build 4

· X-EXE 1.5

· Easy/Encrypt Decrypt (EED for Windows) 2Final

· halcyon 1.6

· Text Lock 1.0

· Protector 1.0

· Hiron 2.9.2.1

Выполните шифрование в Easy/Encrypt Decrypt и Hiron 2.9.2.1

4. Сравнили основные отличия процессов шифрования выбранными нами программными продуктами:

В Easy/Encrypt Decrypt алгоритм шифрования построен на основе стандартного гаммирования и дополнен авторскими разработками.

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

Составили свой алгоритм шифрования по схеме Вижинера

Для шифрования выбирается 2 буквенных ключа, в них меняются буквы задом наперед. Под каждой буквой ключей (сначало 1-го ключа задом наперед, потом второго и далее также чередуются) записываются буквы исходного текста. Ключи повторяются и чередуются необходимое число раз. Каждая буква ключа заменяется также по подматрице буквами, находящимися на пересечении линий, соединяющих буквы шифруемого текста в первой строке и находящимися под ними буквами исходного текста. Полученный текст разбивается на группы по несколько знаков, в нашем случаи по 3. Наш алгоритм шифрования готов.

9*. Используя язык программирования Delphi 7, напиcали программу шифрования и дешифрования текста по схеме Вижинера.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var

res:String;

i,j:Word;

begin

If Edit1.Text='' then

begin

ShowMessage ('Не введен "ключ". Продолжение НЕВОЗМОЖНО!');

Exit;

end;

If Edit2.Text='' then

begin

ShowMessage ('Не введено "слово". Продолжение НЕВОЗМОЖНО!');

Exit;

end;

SetLength (res,Length (Edit2.Text)); {Динамически устанавливается длина строки "Edit2.Text" и динамический массив "res"}

i:=1;

j:=1;

Repeat

Res[i]:=Chr (Ord (Edit2.Text[i])+Ord(Edit1.Text[j]));

Inc (i);

Inc(j);

If j>length (Edit1.Text) then

j:=1;

Until i>Length (Edit2.Text);

Edit3.Text:=res;

end;

procedure TForm1.Button2Click(Sender: TObject);

Var

text:String;

i,j:Word;

begin

If Edit1.Text='' then

begin

ShowMessage ('Не введен "ключ". Продолжение НЕВОЗМОЖНО!');

Exit;

end;

If Edit2.Text='' then

begin

ShowMessage ('Не введено "слово". Продолжение НЕВОЗМОЖНО!');

Exit;

end;

SetLength (text,Length (Edit2.Text));

i:=1;

j:=1;

Repeat

text[i]:=Chr(Ord (Edit2.Text[i])-Ord (Edit1.Text[j]));

Inc(i);

Inc(j);

If j>Length (Edit1.Text)then

j:=1;

Until i>Length (Edit2.Text);

Edit4.Text:=text;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Вывод: В ходе проделанной работы мы научились использовать различные программные средства шифрования файлов.