Завдання до лабораторної роботи. Ознайомитися з методом шифрування за варіантом

Ознайомитися з методом шифрування за варіантом. Розробити блок-схему алгоритму шифрування та розшифровування, реалізувати формальні моделі у вигляді двох підсистем модуля з мінімальним інтерфейсом.

Варіант	Основний метод	Текст для кодування
	Метод Цезаря, зміщення 8	Расшифровывание – процесс нормального применения криптографического преобразования шифрованного текста в открытый.

Код алгоритму:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

const al = 'àáâãäå¸æçèéêëìíîïðñòóôõö÷øùúáýþÿÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÁÝÞß,.!';

how = 8;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Memo1: TMemo;

GroupBox2: TGroupBox;

Memo2: TMemo;

Button1: TButton;

GroupBox3: TGroupBox;

Memo3: TMemo;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

p: TStringList;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,k,j: Integer;

s1,s2,s3: string;

begin

memo2.Lines.Clear;

memo3.Lines.Clear;

p:= TStringList.Create;

p.Assign(memo1.Lines);

for i:= 0 to memo1.Lines.Count-1 do

begin

s1:= memo1.Lines[i];

s2:= s1;

for k:= 1 to length(s1) do

begin

s2[k]:= al[(pos(s1[k],al)+how) mod length(al) + 1];

memo3.Lines.Add(s1[k]+'('+IntTOStr(pos(s1[k],al))+') - >' + IntTOStr(pos(s1[k],al))+' + '+intToStr(how)+

' = '+IntToStr(pos(s1[k],al)+how)+'('+s2[k]+')');

end;

memo2.Lines.Add(s2);

end;

memo1.Lines.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

memo1.Lines.Assign(p);

end;

end.

Результати роботи програми:

Рис 1. Введення вхідного повідомлення

Рис. 2 Процес кодування і закодоване повідмлення

Висновок: В ході виконання лабораторної роботи мною було засвоєно поданий матеріал і розроблена прикладна програма, яка шифрує і дешифрує повідомлення.

Дата добавления: 2015-10-24