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.

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

 


 

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

7487. Психология. Понятие о психологии 235.5 KB
  Психология. Тема 1.1. Понятие о психологии. Научное определение психологии, и ее аспекты, этапы становления. Общая психология в современном представлении. Отрасли психологии. 1 Психология - это наука о психике человека и...
7488. Педагогическая психология. Предмет, задачи, методы педагогической психологии 60 KB
  Педагогическая психология. Тема 2.1. Предмет, задачи, методы педагогической психологии. Современная педагогическая психология и предмет ее изучения. Проблемы и задачи современной педагогической психологии. Методы педагогической пси...
7489. Педагогика. Предмет и основные категории педагогики 88.5 KB
  Педагогика. Тема 3.1. Предмет педагогики. Предмет и основные категории педагогики. История и классовый характер воспитания. Связь педагогики с другими науками. 1. Предмет и основные категории педагогики. К числу основных понятий пе...
7490. Приёмы игры на гитаре 26.44 KB
  План школьного открытого урока Приёмы игры на гитаре Добрый день, уважаемые преподаватели. Тема моего открытого урока: Приёмы игры на гитаре Сегодня открытый урок я проведу с учеником 4-го класса Иваном Мотузом...
7491. Возникновение и развитие философии марксизма 34 KB
  Возникновение и развитие философии марксизма Основателем этой философии были Карл Маркс (1818 - 1883) и Фридрих Энгельс (1820 - 1895). К. Маркс учился на юридическом факультете, его выпускная диссертация была на тему Различия натуралистического...
7492. Древнейшие формы мировоззрения 49 KB
  Древнейшие формы мировоззрения. Мировоззрение - это система взглядов на мир и место в нем человека. Мировоззрению предшествуют мироощущение,миропредставление, миропонимание. Мировоззрение определяет как человек понимает мир,как относится к нему...
7493. Немецкая классическая философия, взгляды философов классиков 54 KB
  Немецкая классическая философия Иммануил Кант (1724 - 1804) - родоначальник немецкой классической философии. Родился и прожил всю жизнь в Кенигсберге (Калининград) - центр Восточной Пруссии. В 1745 г. Кант закончил Университет. После...
7494. Философские и религиозные учения Древнего Китая 46 KB
  Философские и религиозные учения Древнего Китая Китайская цивилизация непрерывна в своем развитии. Древнекитайская философия, как и любая другая, зародилась в мифологии. Два начала Ян и Инь, фигурирующие в мифологии, стали пе...
7495. Философские и религиозные учения Древней Индии 38.5 KB
  Философские и религиозные учения Древней Индии К концу II тыс. до н.э. на территорию Индии приходят с Севера, из Тибета кочевые племена ариев или арийцев. Они приносят культ поклонения животным, в частности корове, и приносят свою мифологию. Собрани...