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

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


 

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

50080. Циклические программы 47.5 KB
  Операторов цикла в Паскале три: for repet while. Оператор For Оператор состоит из заголовка в котором определяется порядок изменения переменной параметра цикла и тела цикла являющегося многократно повторяющимся алгоритмом. Общий вид оператора: For параметр цикла : = начальное значение to конечное значение do оператор; {тело цикла}. Этот оператор применяется если начальное значение конечного значения; For параметр цикла:= начальное значение downto конечное значение do оператор; применяется если начальное значение конечного значения.
50081. ПРОЧНОСТНЫЕ ХАРАКТЕРИСТИКИ МАТЕРИАЛОВ В РАСЧЕТАХ ПО МЕТОДУ ПРЕДЕЛЬНЫХ СОСТОЯНИЙ 51.5 KB
  Соответствующими стандартами установлены также другие нормативные характеристики материалов объемная масса модули упругости и сдвига коэффициенты трения сцепления характеристики ползучести усадки температурного расширения усушки набухания и другие. Возможные отклонения нормативных характеристик конструкционных материалов и грунтов в неблагоприятную сторону учитываются коэффициентами надежности по материалу и грунту . Эти коэффициенты учитывают ряд факторов не проявляющихся при стандартных испытаниях но встречающихся в практике...
50082. Визначення показника заломлення скляної плоскопаралельної пластинки інтерференційним методом 674 KB
  На оптичній лаві послідовно розташовані джерело світла лазер 1 типу ЛГ56 екран 2 в центрі якого розміщено мікрообєктив та плоскопаралельна скляна пластинка 3 товщиною d. Відбиваючись від її передньої та задньої граней промені світла накладаються і утворюють на екрані інтерференційну картину у вигляді концентричних кілець  так звані смуги однакового нахилу. В чому полягає суть методу визначення показника заломлення скляної пластинки в даній роботі Що називається явищем інтерференції світла Які хвилі називаються когерентними...
50083. Стройові вправи. Правила піднімання вантажу 61 KB
  Основи термiнологiï: положення лежачи рiвновага. Положення лежачи. Лежачи на спинi Положення при якому торкаються пiдлоги всi частини задньоï поверхнi тiла положення рук визначається вiдносно тулуба Лежачи на животi Положення при якому торкаються пiдлоги всi частини передньоï поверхнi тiла пiдборiддя теж торкається пiдлоги Лежачи на животi прогнувшись Положенняпри якому торкаються пiдлоги нижня частина грудноï клiтини живiт i таз; верхня частина тулуба i ноги знаходяться над...
50084. Ролевая теория личности. Ролевые конфликты 16.93 KB
  Ролевая концепция личности возникла в американской социальной психологии в 30-х гг. XX в. (Дж. Мид) и получила широкое распространение в различных социологических течениях, прежде всего, в структурно-функциональном анализе
50086. Создание комплексных текстово-графических материалов 78 KB
  Запустите Corel Drаw создайте новый файл. Сохраните файл под именем Верстка сверните файл но не программу. В программе Corel Drw создайте еще один файл постройте на листе по 15 горизонтальных и вертикальных направляющих Horizontl nd Verticl Guidelines: Horizontl Горизонтальные от 70 до 140 мм с шагом в 5 мм; Verticl Вертикальные от 30 до 100 мм также с шагом в 5 мм. Откройте файл Верстка импортируйте в него сохраненный кроссворд придайте ему такие же размеры и положение как на ксерокопии.
50087. Определение показателя адиабаты при адиабатическом расширении газа 309.5 KB
  Плеханова технический университет Кафедра Общей и технической физики лаборатория виртуальных экспериментов Определение показателя адиабаты при адиабатическом расширении газа Методические указания к лабораторной работе № 8 для студентов всех специальностей САНКТПЕТЕРБУРГ 2010 УДК 531 534 075. Цель работы: изучить законы идеального газа и основные положения классической теории теплоёмкости; определить коэффициент Пуассона отношение теплоёмкости при постоянном давлении Ср к теплоемкости при постоянном объеме CV методом...