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

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


 

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

24968. Государственный контракт на выполнение подрядных работ для государственных нужд 54.5 KB
  Заказчик уполномоченный орган вправе размещать заказ путем проведения закрытого конкурса аукциона исключительно в случае размещения заказа на поставку товаров выполнение работ оказание услуг сведения о которых составляют государственную тайну. При этом создание комиссии по размещению заказа определение начальной цены контракта предмета и его существенных условий утверждение проекта контракта конкурсной документации документации об аукционе определение условий торгов и их изменение осуществляются заказчиком уполномоченным органом а...
24969. Договор займа и кредитный договор 36 KB
  Договор займа и кредитный договор 1. Понятие Договор займа кредитный договор и договор факторинга оформляют единые экономические кредитные отношения. По договору займа одна сторона заимодавец передает в собственность другой стороне заемщику деньги или другие вещи определенные родовыми признаками а заемщик обязуется возвратить заимодавцу такую же сумму денег сумму займа или равное количество других полученных им вещей того же рода и качества абз. Эта сделка: односторонняя заемщик обязан возвратить сумму займа а займодавец имеет...
24970. Кредитный договор 50.5 KB
  Именно поэтому закон говорит о предоставлении кредита в виде денежных средств п. Вознаграждение кредитору определяется в виде процентов начисленных на сумму кредита за все время его фактического использования. Обязанности заемщика состоят в возврате полученного кредита и уплате предусмотренных договором или законом процентов за его использование. Законом определяется момент исполнения заемщиком обязанности по возврату суммы кредита п.
24971. Договор лизинга (понятие, содержание, виды) 47.5 KB
  Договор лизинга понятие содержание виды Понятие признаки содержание. Договор лизинга является двусторонним взаимным консенсуальным возмездным. Лизингодатель не имеет прямой заинтересованности в конкретном имуществе являющемся предметом лизинга. Главной обязанностью лизингодателя по договору лизинга является финансирование покупки предмета лизинга и получение прибыли на вложенные деньги.
24972. Договор финансирования под уступку денежного требования (факторинг) 41 KB
  Договор финансирования под уступку денежного требования факторинг Договор факторинга является новым для нашего правопорядка. Юридическая сущность этих отношений составляет уступка денежного требования давно известная в обязательственном праве в качестве цессии. Выделяют нераскрытый факторинг должник не знает о состоявшейся уступке прав поскольку фактор здесь не вправе взыскивать долг с должника своего клиента уступки требования здесь не происходит должник осуществляет платеж первоначальному кредитору.829 закреплено что уступка...
24973. Опытное обоснование основных положений МКТ строения вещества. Масса и размер молекул. Постоянная Авогадро 27.5 KB
  Микрохарактеристики вещества. Молекулярнокинетическая теория это раздел физики изучающий свойства различных состояний вещества основывающийся на представлениях о существовании молекул и атомов как мельчайших частиц вещества. Все вещества состоят из мельчайших частиц: молекул атомов или ионов.
24974. Идеальный газ. Основное уравнение МКТ идеального газа. Температура и ее измерение. Абсолютная температура 26.5 KB
  Основное уравнение МКТ идеального газа. Понятие идеального газа свойства. Объяснение давления газа. Для объяснения свойств вещества в газообразном состоянии используется модель идеального газа.
24975. Уравнение состояния идеального газа. (Уравнение Менделеева—Клапейрона.) Изопропессы 41.5 KB
  Процессы в газах. Эти величины называют параметрами состояния газа. Для произвольной массы газа единичное состояние газа описывается уравнением Менделеева Клапейрона: pV = mRT M где р давление V объем т масса М молярная масса R универсальная газовая постоянная.
24976. Испарение и конденсация. Насыщенные и ненасыщенные пары. Влажность воздуха. Измерение влажности воздуха 23.5 KB
  Поэтому атмосферное давление представляет собой сумму давления сухого воздуха и находящегося в нем водяного пара. Давление водяного пара будет максимальным при насыщении воздуха паром. Так давление насыщенного пара не зависит от объема но зависит от температуры. Эта зависимость не может быть выражена простой формулой поэтому на основе экспериментального изучения зависимости давления насыщенного пара от температуры составлены таблицы по которым можно определить его давление при различных температурах.