51328

Методы шифрования текста при помощи аналитических преобразований

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

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

Цель работы: Научиться составлять программы шифрования текста, основываясь на алгебру матриц. Вывод: научился составлять программы шифрования текста, основываясь на алгебру матриц.

Русский

2014-02-09

68.61 KB

9 чел.

Цель работы: Научиться составлять программы шифрования текста, основываясь на алгебру матриц.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

1

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

Разраб.

Карецкий

Пров.

Смулаковский

Н. Контр.

Утв.

Методы шифрования текста при помощи аналитических преобразований.

Лит.

Листов

4

КОГУ 59П-3

 

Ход работы:  

program Project1;

unit LAB3;

interface

uses

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

 Dialogs,xpman, Grids, StdCtrls;

type

 TForm1 = class(TForm)

   mat: TStringGrid;

   Label1: TLabel;

   Button1: TButton;

   Label2: TLabel;

   Edit2: TEdit;

   Button2: TButton;

   Edit3: TEdit;

   Label3: TLabel;

   Button3: TButton;

   qw: TEdit;

   procedure Button1Click(Sender: TObject); //осуществлятся шифровка

   procedure Button2Click(Sender: TObject); //дешифровка

   procedure Button3Click(Sender: TObject); //заполнение матрицы

   procedure qwChange(Sender: TObject);     //если забито значение, то шифровать

   procedure Edit2Change(Sender: TObject);  //если есть значение, то дешифровать

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

 rus,text,rashifr,shifr,c:string;

 s:char;

 i,j,q,k,e,f,opr:integer;

 p,m:array [0..2,0..2] of integer;

 z,r:array[0..2]of integer;

implementation

{$R *.dfm}

//осуществлятся шифровка

procedure TForm1.Button1Click(Sender: TObject);

begin

edit2.Text:='';

edit3.text:='';

q:=0;

k:=0;

rus:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';

text:=qw.text;

//if length(text)mod 4<>0 then

begin

//while  length(text)mod 4<>0 do

begin

text:=text+' ';

for i:=1 to length(text) do

Изм.

Лист

№ докум.

Подпись

Дата

Лист

2

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

for j:=1 to length(rus) do

if text[i]=rus[j] then begin

z[q]:=j;

q:=q+1;

if q=3 then

begin

for e:=0 to 2 do

begin

for f:=0 to 2 do

k:=k+m[f,e]*z[f];

shifr:=shifr+inttostr(k)+' ';

k:=0;

end;

q:=0;

end;

end;

end;

end;

edit2.text:=shifr;

end;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

3

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

procedure TForm1.Button2Click(Sender: TObject);

begin

for i:=1 to 9 do

opr:=m[i,j]+i*k;

for i:=0 to 2 do

for j:=0 to 2 do

p[i,j]:=opr;

for i:=0 to 2 do

for j:=0 to 2 do

begin

r[i]:=p[i,j]*z[f];

rashifr:=rus[i];

end;

for i:=1 to length(rashifr) do

edit3.text:=rashifr;

edit3.Text:=text;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

with mat do

begin

for i:=0 to colcount-1 do

for j:=0 to rowcount-1 do

begin

k:=random(8)+1;

cells[i,j]:=inttostr(k);

m[j,i]:=k;

end;

end;

end;

procedure TForm1.qwChange(Sender: TObject);

begin

if qw.text<>'' then  button1.Enabled:=true;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

if edit2.text<>'' then button2.enabled:=true;

end;

end.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

4

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

Вывод: научился составлять программы шифрования текста, основываясь на алгебру матриц.


 

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

71577. Цивільно-правові засоби захисту права власності 64.5 KB
  Цивільноправові засоби захисту права власності Основні засади захисту права власності. Система цивільноправових засобів захисту права власності. Позов про визнання права власності Позов про виключення майна з опису звільнення зпід арешту.
71578. Право власності на житло 121 KB
  З часу проголошення Україною незалежності пріоритетним напрямком її державної економічної політики став розвиток права приватної власності на житло. Становленню системи нормативноправових актів у сфері регулювання права власності на житло сприяло прийняття Цивільного та Земельною кодексів...
71579. Право комунальної власності 30.5 KB
  Право комунальної власності. Поняття субєкти та обєкти права комунальної власності. Підстави виникнення права комунальної власності. Здійснення права комунальної власності.
71581. ВАКУМНОЕ НАПЫЛЕНИЕ (ВН) ПОКРЫТИЙ 207.5 KB
  ВН - группа методов объединённых общим принципом создания при пониженном давлении поНД потока корпускулярных частиц атомы молекулы ионы и их осаждения на напыляемой поверхности Пв НП. При этом должно быть обеспечено отсутствие в потоке напыляемых частиц НЧ конденсированной фазы...
71582. Установки для вакуумного напыления (ВН) покрытий (Пк) 145 KB
  Многолучевая интерферометрия применяется для измерения hпк непрозрачных Пл и основана на наблюдении в микроскоп интерференционных полос возникающих при рассмотрении в монохроматическом свете двух Пв расположенных под углом друг к другу. Под микроскопом сдвиг интерференционных полос l...
71583. ДУГОВОЙ НАГРЕВ ПРИ ТВИ 119 KB
  На НМ 5 - анод подается «+» от ИП 2 высокого напряжения - для его ЭЛ нагрева на начальной стадии процесса и от ИП 3 низкого напряжения - для поддержания ДР 6 после его зажигания. Электронный луч не только плавит и испаряет НМ, но и ионизирует поток пара...
71584. Механизм зарождения и формирования покрытия 110.5 KB
  Одним из основных процессов, определяющих структуру покрытия, является гетерогенное зародышеобразование, которое начинается с того, что на НП возникают скопления атомов. Силы химической связи стремятся сблизить эти атомы в положения, соответствующие параметрам...
71585. ТЕОРИЯ ВАКУУМНОГО НАПЫЛЕНИЯ 94 KB
  Для описания таких молекулярных потоков были использованы законы Ламберта из оптики и получены законы Ламберта-Кнудсена для ТВИ: интенсивность пара в направлении, которое отклоняется от нормали к поверхности испарения на угол...