Составили свой алгоритм шифрования по схеме Вижинера
Отчет по лабораторной работе № 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
3.
 |
Выполните шифрование в 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.
Вывод: В ходе проделанной работы мы научились использовать различные программные средства шифрования файлов.