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

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


 

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

50137. Изучение рынка операторов сотовой и пейджинговой связи г. Санкт-Петербурга 228.5 KB
  Удовлетворить запросы потребителей - непростая задача. Прежде всего нужно хорошо изучить потребителя, т.е. ответить на вопросы кто покупает, какое количество, по какой цене, с ка-кой целью, для удовлетворения каких потребностей, где покупает. Обеспечить, если это необходимо, сервис. Для этого проводят маркетинговые исследования. Изучить всех покупателей продукта невозможно, да и ненужно. Целесообразно найти тот сегмент потребителей, который обеспечит основной сбыт.
50138. Рух протиходом. Рух змійкою. Команди та дії 50.5 KB
  Визначення рухiв при конструюваннi загальнорозвивальних вправ. Пiдроздiл на: простi рухи; послiдовнi рухи; сполученi рухи; послiдовно сполученi рухи. Розподiл рухiв за рахунком. Уточнення характеру рухiв.
50139. Нечеткая логика 67 KB
  Цель работы: создание простейшей системы нечеткой логики, реализованной на языке высокого уровня. Согласно заданным вариантам разработать программу на любом алгоритмическом языке, способную: А. Различать степени изменения лингвистической переменной в трех степенях – «Очень – Нормально – Слабо» Б. Изменять порог чувствительности. Кислятина – пить можно – для женщин и попов (о сладости вина)
50140. Программирование задач с использованием массивов. Ввод и вывод элементов. Упорядочивание. Нахождение максимального (max) элемента 51.5 KB
  Элементы массива нумеруются с нуля. Доступ к элементу массива осуществляется путем указания индекса номера элемента. Доступ к элементам массива можно осуществлять при помощи указателя. В инструкции объявления массива удобно использовать именованную константу объявленную в директиве define.
50141. Вивчення лічильника змінного струму 66 KB
  Вивчення лічильника змінного струму. Мета роботи: Вивчення принципу роботи лічильника змінного струму. Будова електричного лічильника змінного струму показана на рис. На кожному лічильнику вказана його постійна С величина її визначається кількістю енергії при споживанні якої в колі диск лічильника здійснює один оберт.
50142. Изучение работы трансформатора 376 KB
  С вторичной обмотки снимается переменное напряжение которое после выпрямителя подаётся на обмотку подмагничивания ротора. Концы первичной обмотки вход трансформатора подключены к сети питающего переменного тока а концы вторичной обмотки выход  к потребителям электрической энергии. электромагнитной индукции возникающая во вторичной обмотке пропорциональна числу витков в ней и поэтому изменяя это число витков можно изменять в широких пределах напряжение на выходе трансформатора. Именно это поле приводит в движение электроны во...
50143. Исследование эффекта Джоуля-Томпсона при адиабатическом истечении газа 614.5 KB
  Цель работы: 1 определить изменение температуры углекислого газа при протекании через малопроницаемую перегородку при разных начальных значениях давления и температуры; 2 вычислить по результатам опытов коэффициенты Вандер-Ваальса и b ....
50144. Начертательная геометрия: Учебное пособие 1.9 MB
  Объективные закономерности общественного развития – научно техническая революция, информационный взрыв, внедрение принципиально-новых технологий, возрастание роли творческих элементов в различных областях человеческой деятельности – диктуют необходимость повышения интеллектуального потенциала каждого человека, развития инновационного стиля мышления, нестандартных способов осуществления любой деятельности каждого человека способного самостоятельно воспринимать и оценивать новую информацию, принимать решения, генерировать новые идеи.
50145. Определние разрешающей способности и числовой апертуры микроскопа 84 KB
  Определние разрешающей способности и числовой апертуры микроскопа. Цель работы: ознакомиться с устройством микроскопа принципом действия и основными характеристиками. Введение Теория микроскопа. Основными оптическими частями простейшего микроскопа являются рис.