Гибридная система шифрования ГСШ-11

КУРСОВАЯ РАБОТА

по дисциплине «Программно-аппаратная защита информации»

Тема: Гибридная система шифрования (ГСШ-11)

Выполнила:

студент гр. 52 Ковалёв К.Н.

Принял:

д.т.н., профессор Лопин В.Н.

Курск 2009

СОДЕРЖАНИЕ

1. ЗАДАНИЕ НА ПРОЕКТИРОВАНИЕ .. 3

2. ЛИСТИНГ ПРОГРАММЫ ... 4

3. РЕЗУЛЬТАТЫ ТЕСТИРОВАНИЯ ГСШ-11 . 15

1. ЗАДАНИЕ НА ПРОЕКТИРОВАНИЕ

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

При выполнении курсовой работы использовать представленную ниже структуру гибридной системы шифрования (ГСШ):

В приведенных структурах используются следующие обозначния:

V – шифрование методом полиалфавитной замены;

S – шифрование методом скремблирования;

T – исходный текст;

F₁ - промежуточный шифртекст;

F - результирующий шифртекст.

Формализация исходных данных методов шифрования:

· Исходные данные метода V определяются длиной ключа K.

· Исходные данные метода S определяются тройкой (conf, C₀ , n), где:

1. conf – конфигурация генератора псевдослучайных чисел, определяющая расположение сумматоров по модулю два в обратной связи генератора:

2. C₀ – начальное состояние генератора;

3. n – количество двоичных разрядов генератора.

k	conf	C0	n
8	1362	834	14

2. ЛИСТИНГ ПРОГРАММЫ

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Grids, Math, Buttons;

type

TForm1 = class(TForm)

GroupBox2: TGroupBox;

Memo1: TMemo;

GroupBox1: TGroupBox;

Button1: TButton;

Button4: TButton;

Button3: TButton;

Memo2: TMemo;

Button2: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

GroupBox4: TGroupBox;

Memo3: TMemo;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Button5: TButton;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Button10: TButton;

Button11: TButton;

Button6: TButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

LabeledEdit1: TLabeledEdit;

BitBtn4: TBitBtn;

Button12: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Matrix;

procedure FormCreate(Sender: TObject);

procedure Zashifr;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

Procedure Rashifr;

procedure Button4Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure SymvToBit(cq:char);

function CodeToSymv: integer;

procedure Posl;

procedure NachC(var j,k:longint;n:Byte);

procedure Button8Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

alf,s: String;

M:array of String;

Z,key,C,T: array of byte;

p:longint;

FName:String;

F:TextFile;

NText:TMemo;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject); //1z

Var Ch:Char;

begin

memo1.Text:='';

memo2.Text:='';

memo3.Text:='';

If OpenDialog1.Execute then

Begin

AssignFile(F,OpenDialog1.FileName);

FName:=OpenDialog1.FileName;

Reset(F);

If IOResult=0 then Begin

While not Eof(f) do

Begin

Read(F,Ch);

Memo1.Text:=Memo1.Text+Ch;

End;

CloseFile(F);

End;

End;

end;

procedure TForm1.Button5Click(Sender: TObject); //1s

begin

FName:='Скремблер';

SaveDialog1.FileName:=Fname;

If SaveDialog1.Execute then Fname:=SaveDialog1.FileName;

Memo1.Lines.SaveToFile(FName);

end;

procedure

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать