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.

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

 


 

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

82326. Принятие государственных документов независимости и государственных символов Казахстана. Авторы государственных символов 29.68 KB
  Самостоятельно определяет и проводит внутреннюю и внешнюю политику. С государствами мира строит свои взаимоотношения на принципах международного права. Главой РК и ее исполнительной власти является Президент. Высшая законодательная власть принадлежит Парламенту РК.
82327. Саки. Территория их расселения. Хозяйство, общественное устройство и культура 36.53 KB
  В эпоху раннего железного века на территории Казахстана были сформированы первые племенные союзы, которые известны под именем саков. Саки это группа племен, в которую входила: даха (массагеты), саки - рауки (тиграхауда), исседоны, аримаспы и другие.
82328. Казахстан в послевоенный период (1946-1950). Социально- политическое развитие 29.84 KB
  Из войны Советский Союз вышел экономически значительно ослабленным. За время войны было разрушено 1710 населенных пунктов городского типа и 70 тысяч деревень и селений 25 млн. Последствия войны оказались нелегкими и для Казахстана. Рабочие и специалисты эвакуированные в годы войны в Казахстан вернулись на родину.
82329. Казахстан в период завоевательных подходов Чингиз хана 41.46 KB
  Чингисхан родился на берегу реки Онон в Монголии около 1155 г. (по другим источникам 1162), первоначально носил имя Темучин (Темуджин). Согласно монгольскому преданию, Темучин происходил из рода кият. Его мать была из племени конграт
82330. Освоение целинных земель в Казахстане – 1954-1956гг. Цели, результаты, последствия 30.79 KB
  В период массового освоения целинных земель много говорилось об интенсификации процесса, укреплении материально-технической базы. Но в условиях экстенсивного земледелия это зачастую не соблюдалось. В результате нарушался экологический баланс (эрозия почв, выветривание почв).
82331. Образование Казахского ханства 29.72 KB
  Вхождение отдельных казахских племен в разные государства, войны и раздоры между родами и племенами стали преградой на пути их объединения в единую народность. Преодолеть эту раздробленность, политическую разобщенность выпало на долю султанов Жаныбека и Керея
82332. Состояние жизненного уровня трудящихся в 50-е гг. События в Темиртау (1958г.) 35.21 KB
  События в Темиртау 1958г. Особенно крупный взрыв недовольства произошел летом 1959 года в городе Темиртау. Строящийся в Темиртау металлургический комбинат был объявлен ударной комсомольской стройкой и до конца 1958 года в область прибыли 132 тыс. например из двух тысяч болгар трудившихся в Казахстане свыше половины работали в Темиртау.
82333. Политика Тауке хана. «Жеты Жаргы» – свод норм обычного права казахского народа 34.49 KB
  Изменения политической структуры вызвали настоятельную необходимость переработки и правовой базы организации казахского общества. и включал в себя следующие основные разделы: земельное право; семейнобрачные отношения; военная организация; суд и судебный процесс; виды наказаний по уголовным преступлениям; введение куна выкуп; наследственное право. Первое место в нем занимает закон возмездия: за кровь мстить кровью за увечье увечьем; За воровство грабеж насилие прелюбодеяние казнить смертью; По сим постановлениям родственники...
82334. Изменение в социальной структуре и численности населения в начале 50-х-сер.60-х годов 29.09 KB
  Доля рабочих среди трудоспособного населения была невелика. По официальным данным на 1940 год доля рабочих в Казахстане было 634 тысячи колхозников – 912 тысяч. Проблема нехватки рабочих рук была решена за счет приезжих которые составляли 80 от общего числа рабочих. В 1960 году численность рабочих составляла 22 млн человек колхозников – 611 тысяч.