11746

Использование методов защиты информации в программах

Лабораторная работа

Информатика, кибернетика и программирование

ЛАБОРАТОРНАЯ РАБОТА № 8. Использование методов защиты информации в программах. Цель работы: освоить на практике методы защиты информации. Ход работы 1. Написать программу которая с использованием криптосистемы RSA шифрут сообщение: Истоpия кpиптогpафии pовесница

Русский

2013-04-10

99 KB

3 чел.

ЛАБОРАТОРНАЯ РАБОТА № 8.

Использование методов защиты информации в программах.

Цель работы: освоить на практике методы защиты информации.

Ход работы

1. Написать программу, которая с использованием криптосистемы RSA шифрут сообщение:

«Истоpия кpиптогpафии - pовесница истоpии человеческого языка. Пеpвые кpиптосистемы встpечаются уже в начале нашей эpы. Так, Цезаpь в своей пеpеписке использовал уже более менее систематический шифp, получивший его имя.

Буpное pазвитие кpиптогpафические системы получили в годы пеpвой и втоpой миpовых войн. Начиная с послевоенного вpемени и по нынешний день появление вычислительных сpедств ускоpило pазpаботку и совеpшенствование кpиптогpафических методов.

Почему пpоблема использования кpиптогpафических методов в настоящий момент особенно актуальна?

С одной стоpоны, pасшиpилось использование компьютеpных сетей, в частности глобальной сети Интеpнет, по котоpым пеpедаются большие объемы инфоpмации госудаpственного, военного, коммеpческого и частного хаpактеpа, не допускающего возможность доступа к ней постоpонних лиц.

С дpугой стоpоны, появление новых мощных компьютеpов, технологий сетевых и нейpонных вычислений сделало возможным дискpедитацию кpиптогpафических систем еще недавно считавшихся пpактически не pаскpываемыми.»

2.Листинг программы:

var

 Form16: TForm16;

implementation

uses math;

{$R *.dfm}

//Значение бита в двойном слове (32бита)

function Bit(Value, n: Integer): Boolean;

asm

  bt eax, edx

  setc al

  and eax, 0FFh

end;

//Функция быcтрого возведения в степень

function FastPower(a, b, n: integer): integer;

var i: integer;

   ai: extended;

begin

 ai := a;

 for I := Trunc(log2(b)) - 1 downto 0 do

 if Bit(b, i) then ai := Round(sqr(ai) * a) mod n else ai := Round(sqr(ai)) mod n;

 result := Round(ai);

end;

function Encrypt(s: string; e, n: integer): TIncodeMes;

 var I: Integer;

begin

 SetLength(result, length(s));

 for I := 0 to Length(s) - 1 do

   result[i] := FastPower(ord(s[i + 1]), e, n)

end;

function Decrypt(s: array of integer; e, n: integer): string;

 var i: Integer;

begin

 SetLength(Result, Length(s));

 for I := 0 to Length(s) - 1 do

   result[i + 1] := chr(FastPower(s[i], e, n))

end;

//Шифрование текста в Memo

procedure TForm16.Button1Click(Sender: TObject);

 var i, n, e: Integer;

begin

 n := StrToIntDef(Edit3.Text, 697);

 e := StrToIntDef(Edit2.Text, 7);

 FMes := Encrypt(Memo1.Lines.Text, e, n);

 for i := 0 to High(FMes) do Memo2.Lines.Append(IntToStr(FMes[i]));

end;

//Дешифровка сообщения

procedure TForm16.Button2Click(Sender: TObject);

 var i, n, d: integer;

     s : string;

begin

 d := StrToIntDef(Edit1.Text, 183);

 n := StrToIntDef(Edit3.Text, 697);

 s := Decrypt(FMes,d , n);

 Memo3.Lines.Add(s) end;

3. Зашифрованный текст.

680

21

62

98

408

498

530

442

501

429

498

530

188

98

408

626

498

317

405

530

530

501

394

501

498

408

197

151

62

50

530

287

317

501

530

62

98

408

498

530

530

501

206

151

6

408

197

151

206

151

62

429

408

626

408

501

442

294

225

429

317

143

501

538

151

498

197

225

151

501

429

498

530

188

98

408

62

530

62

98

151

433

225

501

197

62

98

498

151

206

317

84

98

62

442

501

27

359

151

501

197

501

50

317

206

317

6

151

501

50

317

5

151

466

501

263

498

225

143

501

184

317

429

260

501

73

151

294

317

498

193

501

197

501

62

197

408

151

466

501

188

151

498

151

188

530

62

429

151

501

530

62

188

408

6

193

294

408

197

317

6

501

27

359

151

501

336

408

6

151

151

501

433

151

50

151

151

501

62

530

62

98

151

433

317

98

530

206

151

62

429

530

466

501

5

530

405

498

260

501

188

408

6

27

206

530

197

5

530

466

501

151

626

408

501

530

433

442

143

501

395

141

388

27

498

50

408

151

501

498

317

294

197

530

98

530

151

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

151

501

62

530

62

98

151

433

225

501

188

408

6

27

206

530

6

530

501

197

501

626

408

250

225

501

188

151

498

197

408

466

501

530

501

197

98

408

498

408

466

501

433

530

498

408

197

225

573

501

197

408

466

50

143

501

205

317

206

530

50

317

442

501

62

501

188

408

62

6

151

197

408

151

50

50

408

626

408

501

197

498

151

433

151

50

530

501

530

501

188

408

501

50

225

50

151

5

50

530

466

501

250

151

50

193

501

188

408

442

197

6

151

50

530

151

501

197

225

206

530

62

6

530

98

151

6

193

50

225

573

501

62

498

151

250

62

98

197

501

27

62

429

408

498

530

6

408

501

498

317

294

498

317

336

408

98

429

27

501

530

501

62

408

197

151

498

5

151

50

62

98

197

408

197

317

50

530

151

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

573

501

433

151

98

408

250

408

197

143

501

395

141

538

408

206

151

433

27

501

188

498

408

336

6

151

433

317

501

530

62

188

408

6

193

294

408

197

317

50

530

442

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

573

501

433

151

98

408

250

408

197

501

197

501

50

317

62

98

408

442

547

530

466

501

433

408

433

151

50

98

501

408

62

408

336

151

50

50

408

501

317

429

98

27

317

6

193

50

317

585

501

395

141

435

501

408

250

50

408

466

501

62

98

408

498

408

50

225

260

501

498

317

62

5

530

498

530

6

408

62

193

501

530

62

188

408

6

193

294

408

197

317

50

530

151

501

429

408

433

188

193

84

98

151

498

50

225

573

501

62

151

98

151

466

260

501

197

501

206

317

62

98

50

408

62

98

530

501

626

6

408

336

317

6

193

50

408

466

501

62

151

98

530

501

21

50

98

151

498

50

151

98

260

501

188

408

501

429

408

98

408

498

225

433

501

188

151

498

151

250

317

84

98

62

442

501

336

408

6

193

5

530

151

501

408

336

517

151

433

225

501

530

50

405

408

498

433

317

287

530

530

501

626

408

62

27

250

317

498

62

98

197

151

50

50

408

626

408

260

501

197

408

151

50

50

408

626

408

260

501

429

408

433

433

151

498

206

151

62

429

408

626

408

501

530

501

206

317

62

98

50

408

626

408

501

573

317

498

317

429

98

151

498

317

260

501

50

151

501

250

408

188

27

62

429

317

84

547

151

626

408

501

197

408

294

433

408

359

50

408

62

98

193

501

250

408

62

98

27

188

317

501

429

501

50

151

466

501

188

408

62

98

408

498

408

50

50

530

573

501

6

530

287

143

501

395

141

435

501

250

498

27

626

408

466

501

62

98

408

498

408

50

225

260

501

188

408

442

197

6

151

50

530

151

501

50

408

197

225

573

501

433

408

547

50

225

573

501

429

408

433

188

193

84

98

151

498

408

197

260

501

98

151

573

50

408

6

408

626

530

466

501

62

151

98

151

197

225

573

501

530

501

50

151

466

498

408

50

50

225

573

501

197

225

206

530

62

6

151

50

530

466

501

62

250

151

6

317

6

408

501

197

408

294

433

408

359

50

225

433

501

250

530

62

429

498

151

250

530

98

317

287

530

84

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

573

501

62

530

62

98

151

433

501

151

547

151

501

50

151

250

317

197

50

408

501

62

206

530

98

317

197

5

530

573

62

442

501

188

498

317

429

98

530

206

151

62

429

530

501

50

151

501

498

317

62

429

498

225

197

317

151

433

225

433

530

143

680

501

395

141

395

141

4.

Вывод: Освоили на практике методы защиты информации.

ЛАБОРАТОРНАЯ РАБОТА № 8.

ИСПОЛЬЗОВАНИЕ МЕТОДОВ ЗАЩИТЫ ИНФОРМАЦИИ В ПРОГРАММАХ.

Цель работы: освоить на практике методы защиты информации.

Выполнил: Большаков В.В.

Группа: 103-ПО.

Дата: 05.12.12.

Проверила: Кашталинская И. А.

Ход работы

1. Написать программу, которая с использованием криптосистемы RSA шифрут сообщение:

«Истоpия кpиптогpафии - pовесница истоpии человеческого языка. Пеpвые кpиптосистемы встpечаются уже в начале нашей эpы. Так, Цезаpь в своей пеpеписке использовал уже более менее систематический шифp, получивший его имя.

Буpное pазвитие кpиптогpафические системы получили в годы пеpвой и втоpой миpовых войн. Начиная с послевоенного вpемени и по нынешний день появление вычислительных сpедств ускоpило pазpаботку и совеpшенствование кpиптогpафических методов.

Почему пpоблема использования кpиптогpафических методов в настоящий момент особенно актуальна?

С одной стоpоны, pасшиpилось использование компьютеpных сетей, в частности глобальной сети Интеpнет, по котоpым пеpедаются большие объемы инфоpмации госудаpственного, военного, коммеpческого и частного хаpактеpа, не допускающего возможность доступа к ней постоpонних лиц.

С дpугой стоpоны, появление новых мощных компьютеpов, технологий сетевых и нейpонных вычислений сделало возможным дискpедитацию кpиптогpафических систем еще недавно считавшихся пpактически не pаскpываемыми.»

2.Листинг программы:

var

 Form16: TForm16;

implementation

uses math;

{$R *.dfm}

//Значение бита в двойном слове (32бита)

function Bit(Value, n: Integer): Boolean;

asm

  bt eax, edx

  setc al

  and eax, 0FFh

end;

//Функция быcтрого возведения в степень

function FastPower(a, b, n: integer): integer;

var i: integer;

   ai: extended;

begin

 ai := a;

 for I := Trunc(log2(b)) - 1 downto 0 do

 if Bit(b, i) then ai := Round(sqr(ai) * a) mod n else ai := Round(sqr(ai)) mod n;

 result := Round(ai);

end;

function Encrypt(s: string; e, n: integer): TIncodeMes;

 var I: Integer;

begin

 SetLength(result, length(s));

 for I := 0 to Length(s) - 1 do

   result[i] := FastPower(ord(s[i + 1]), e, n)

end;

function Decrypt(s: array of integer; e, n: integer): string;

 var i: Integer;

begin

 SetLength(Result, Length(s));

 for I := 0 to Length(s) - 1 do

   result[i + 1] := chr(FastPower(s[i], e, n))

end;

//Шифрование текста в Memo

procedure TForm16.Button1Click(Sender: TObject);

 var i, n, e: Integer;

begin

 n := StrToIntDef(Edit3.Text, 697);

 e := StrToIntDef(Edit2.Text, 7);

 FMes := Encrypt(Memo1.Lines.Text, e, n);

 for i := 0 to High(FMes) do Memo2.Lines.Append(IntToStr(FMes[i]));

end;

//Дешифровка сообщения

procedure TForm16.Button2Click(Sender: TObject);

 var i, n, d: integer;

     s : string;

begin

 d := StrToIntDef(Edit1.Text, 183);

 n := StrToIntDef(Edit3.Text, 697);

 s := Decrypt(FMes,d , n);

 Memo3.Lines.Add(s) end;

3. Зашифрованный текст.

680

21

62

98

408

498

530

442

501

429

498

530

188

98

408

626

498

317

405

530

530

501

394

501

498

408

197

151

62

50

530

287

317

501

530

62

98

408

498

530

530

501

206

151

6

408

197

151

206

151

62

429

408

626

408

501

442

294

225

429

317

143

501

538

151

498

197

225

151

501

429

498

530

188

98

408

62

530

62

98

151

433

225

501

197

62

98

498

151

206

317

84

98

62

442

501

27

359

151

501

197

501

50

317

206

317

6

151

501

50

317

5

151

466

501

263

498

225

143

501

184

317

429

260

501

73

151

294

317

498

193

501

197

501

62

197

408

151

466

501

188

151

498

151

188

530

62

429

151

501

530

62

188

408

6

193

294

408

197

317

6

501

27

359

151

501

336

408

6

151

151

501

433

151

50

151

151

501

62

530

62

98

151

433

317

98

530

206

151

62

429

530

466

501

5

530

405

498

260

501

188

408

6

27

206

530

197

5

530

466

501

151

626

408

501

530

433

442

143

501

395

141

388

27

498

50

408

151

501

498

317

294

197

530

98

530

151

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

151

501

62

530

62

98

151

433

225

501

188

408

6

27

206

530

6

530

501

197

501

626

408

250

225

501

188

151

498

197

408

466

501

530

501

197

98

408

498

408

466

501

433

530

498

408

197

225

573

501

197

408

466

50

143

501

205

317

206

530

50

317

442

501

62

501

188

408

62

6

151

197

408

151

50

50

408

626

408

501

197

498

151

433

151

50

530

501

530

501

188

408

501

50

225

50

151

5

50

530

466

501

250

151

50

193

501

188

408

442

197

6

151

50

530

151

501

197

225

206

530

62

6

530

98

151

6

193

50

225

573

501

62

498

151

250

62

98

197

501

27

62

429

408

498

530

6

408

501

498

317

294

498

317

336

408

98

429

27

501

530

501

62

408

197

151

498

5

151

50

62

98

197

408

197

317

50

530

151

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

573

501

433

151

98

408

250

408

197

143

501

395

141

538

408

206

151

433

27

501

188

498

408

336

6

151

433

317

501

530

62

188

408

6

193

294

408

197

317

50

530

442

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

573

501

433

151

98

408

250

408

197

501

197

501

50

317

62

98

408

442

547

530

466

501

433

408

433

151

50

98

501

408

62

408

336

151

50

50

408

501

317

429

98

27

317

6

193

50

317

585

501

395

141

435

501

408

250

50

408

466

501

62

98

408

498

408

50

225

260

501

498

317

62

5

530

498

530

6

408

62

193

501

530

62

188

408

6

193

294

408

197

317

50

530

151

501

429

408

433

188

193

84

98

151

498

50

225

573

501

62

151

98

151

466

260

501

197

501

206

317

62

98

50

408

62

98

530

501

626

6

408

336

317

6

193

50

408

466

501

62

151

98

530

501

21

50

98

151

498

50

151

98

260

501

188

408

501

429

408

98

408

498

225

433

501

188

151

498

151

250

317

84

98

62

442

501

336

408

6

193

5

530

151

501

408

336

517

151

433

225

501

530

50

405

408

498

433

317

287

530

530

501

626

408

62

27

250

317

498

62

98

197

151

50

50

408

626

408

260

501

197

408

151

50

50

408

626

408

260

501

429

408

433

433

151

498

206

151

62

429

408

626

408

501

530

501

206

317

62

98

50

408

626

408

501

573

317

498

317

429

98

151

498

317

260

501

50

151

501

250

408

188

27

62

429

317

84

547

151

626

408

501

197

408

294

433

408

359

50

408

62

98

193

501

250

408

62

98

27

188

317

501

429

501

50

151

466

501

188

408

62

98

408

498

408

50

50

530

573

501

6

530

287

143

501

395

141

435

501

250

498

27

626

408

466

501

62

98

408

498

408

50

225

260

501

188

408

442

197

6

151

50

530

151

501

50

408

197

225

573

501

433

408

547

50

225

573

501

429

408

433

188

193

84

98

151

498

408

197

260

501

98

151

573

50

408

6

408

626

530

466

501

62

151

98

151

197

225

573

501

530

501

50

151

466

498

408

50

50

225

573

501

197

225

206

530

62

6

151

50

530

466

501

62

250

151

6

317

6

408

501

197

408

294

433

408

359

50

225

433

501

250

530

62

429

498

151

250

530

98

317

287

530

84

501

429

498

530

188

98

408

626

498

317

405

530

206

151

62

429

530

573

501

62

530

62

98

151

433

501

151

547

151

501

50

151

250

317

197

50

408

501

62

206

530

98

317

197

5

530

573

62

442

501

188

498

317

429

98

530

206

151

62

429

530

501

50

151

501

498

317

62

429

498

225

197

317

151

433

225

433

530

143

680

501

395

141

395

141

4.

Вывод: Освоили на практике методы защиты информации.

 


 

А также другие работы, которые могут Вас заинтересовать

72400. Манипулирование объектами. Разбитая табличка с письменами 3.89 MB
  Сначала создайте табличку — прямоугольник с текстурной заливкой. Для этого нарисуйте объект инструментом Rectangle (Прямоугольник), после чего примените к нему текстурную заливку, выбрав в группе Fill (Заливка) инструмент Texture Fill (Текстурная заливка).
72401. Настройка параметров системы Сorel Draw 8.17 MB
  CorelDRAW предоставляет пользователю широкие возможности, но зато и требует много ресурсов, в частности оперативной и дисковой памяти. Частично об этой проблеме стоит задуматься уже на этапе установки, когда вы решаете, на какой диск устанавливать программу, а на каком будет находиться папка для хранения временных файлов.
72402. Работа с фигурным текстом. Колючая надпись 337.5 KB
  Все это делалось для того, чтобы можно было воспользоваться инструментом Artistic Media (Художественные средства) в режиме Sprayer (Распылитель). Этот инструмент позволяет разбрасывать фигуры из специальных наборов одним движением кисти.
72403. CorelDRAW. Работа с линзами. Футуристичный автомобиль 548.5 KB
  Этот пример демонстрирует возможности линз, — чрезвычайно прост и оригинален. При этом получаемый результат действительно хорош с визуальной точки зрения и применим в профессиональном дизайне.
72404. Работа с макросами в CORELDRAW. Формирование календаря 2.16 MB
  Задание. Создайте изображение настенного календаря для вывода на печать. Создайте новый документ Файл - Новый (File - New). В меню Средства (Инструменты) - Visual Basiс - выбрать Воспроизвести (Tools - Visual Basiс - Play):...
72405. CorelDraw. Работа с растровыми объектами. Завернутый уголок 1.39 MB
  Существует растровый фильтр Page Curl (Завернутый угол страницы): Bitmaps > 3D Effects > Page Curl (Точечная графика > Трехмерные эффекты > Завернутый угол страницы). Где вы сможете выбрать место сворачивания уголка (слева, справа, снизу, сверху), направление...
72406. Повышение эффективности работы гальванической линии завода «ВЗЭП» г. Витебск 1.51 MB
  Обзор современных решений программ автоматического управления автооператорами гальванической линии; систематизация собранного материала для выполнения дипломного проекта, выбор физической среды реализации; изучение существующего программного обеспечения для проектирования выбранной системы; построение алгоритма управляющей программы. Определение протокола связи с модулями автооператоров, построение диаграммы состояний, вариантов использования...
72407. Форматирование таблицы, работа с формулами 1.08 MB
  Цель работы: ознакомиться со способами форматирования данных внутри ячеек, видами выравнивания и ориентации текста, прорисовки границ и выделения цветом. Изучить различные виды адресации ячеек, правила написания формул, работу Мастера функций и назначение кнопочек ленточной вкладки Формула.
72408. Работа с текстовыми данными 180.5 KB
  Цель работы: изучить основные сведения по работе с текстовыми данными, научиться обрабатывать текст. Уметь связывать данные в разных таблицах, освоить работу логических функций. Изучить пользовательские форматы данных. Научиться использовать средство Условное форматирование для выделения диапазона данных.