51328

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

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

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

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

Русский

2014-02-09

68.61 KB

8 чел.

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

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

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


 

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

14418. Есть такая профессия - защищать Родину 482.72 KB
  Сочинение на тему: Есть такая профессия защищать Родину Я счастливый человек Я живу со своими родителями хожу в любимую школу слышу смех бабули и дедушки. Мне интересно читать книги рассматривать картинки в энциклопедиях изучать географические карты. Как мног
14419. Важный выбор 13.85 KB
  Важный выбор Мой важный выбор состоял в том что я решил сильно поменять свою жизнь поступив в суворовское военное училище. Одним летним утром я как обычно проснулся поздно но по новостям увидел передачу об Уссурийском суворовском военном училище.
14420. Важный выбор профессии 17.36 KB
  Я учусь в 8 классе мне 14 лет. Через несколько лет меня ждет расставание со школой. Но самое главное мне предстоит сделать очень важный выбор от которого впоследствии будет зависеть моя будущая жизнь. Кто поможет мне ответить на вопрос: Кем быть Куда пойти учиться ...
14421. Моя мечта 32 KB
  Среди десятков, сотен, тысяч принимаемых человеком решений ни одно не может сравниться по своему значению, по роли и влиянию на судьбу с решением выбора профессии.
14422. ТЕПЛОВЫЕ ЭЛЕКТРИЧЕСКИЕ СТАНЦИИ ДИПЛОМНОЕ ПРОЕКТИРОВАНИЕ 873.5 KB
  И.Б. Бакытжанов В.О. Байбекова ТЕПЛОВЫЕ ЭЛЕКТРИЧЕСКИЕ СТАНЦИИ ДИПЛОМНОЕ ПРОЕКТИРОВАНИЕ В учебном пособии рассмотрены вопрос выбора основного и вспомогательного оборудования ТЭС в соответствии с нормами технологического проектирования тепловых электрических с
14423. ОРГАНИЗАЦИЯ ГРУЗОВЫХ АВТОМОБИЛЬНЫХ ПЕРЕВОЗОК 327.39 KB
  ОРГАНИЗАЦИЯ ГРУЗОВЫХ АВТОМОБИЛЬНЫХ ПЕРЕВОЗОК Методическое пособие к курсовой работе по дисциплине Организация автомобильных перевозок и безопасность движения специальность – 190601 – Автомобили и автомобильное хозяйство ОБЩИЕ ПОЛОЖЕНИЯ Цель курсов...
14424. Изучение технологии производства тепло- и электроэнергии на ТЭЦ 413 KB
  Отчет по производственной практике Содержание Введение 1 Принципиальная технологическая упрощенная схема станции 2 Назначение основных элементов технологической схемы: склад топлива и система топливоподачи система топливоприготовления котельный агрегат ...
14425. Семей қаласындағы ЖЭО-3 салу мен оны пайдаланудың бизнес жоспары 166.5 KB
  Семей қаласындағы ЖЭО3 салу мен оны пайдаланудың бизнес жоспары Есептеу үшін бастапқы берілгендер ретінде электр және жылу энергияларының жылдық өндіру көлемдері және 1 кВтсағ электр энергиясы мен 1 Гкал жылу энергиясын өндіруге жұмсалатын шартты отынның меншікті ...