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

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


 

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

40780. ПЕРВИЧНЫЕ ИЗМЕРИТЕЛЬНЫЕ ПРЕОБРАЗОВАТЕЛИ (ДАТЧИКИ) 388.01 KB
  Примеры статической и динамической характеристик датчика: а статическая характеристика б динамическая характеристика Реостатные преобразователи Принцип действия и конструкция. В измерительной технике требуются реостатные преобразователи как с линейной так и с нелинейной функцией преобразования. Тензорезисторные преобразователи Принцип действия и конструкция.
40781. Фонетико-орфоэпические нормы или нормы ударения и произношения 29.73 KB
  Фонетикоорфоэпические нормы или Нормы ударения и произношения. Нормы русского литературного языка. Нормы русского ударения. Нормы русского произношения.
40783. Анализ управления финансовой устойчивостью организации 204.03 KB
  Управление финансовой устойчивостью является важной задачей менеджмента на всем протяжении существования предприятия с целью обеспечить независимость от внешних контрагентов (внешняя финансовая устойчивость - устойчивость отвечать по своим долгам и обязательствам) и рациональность покрытия активов источниками их финансирования (внутренняя финансовая устойчивость).
40784. Цифроаналоговые и аналого-цифровые преобразователи 195.92 KB
  Цифроаналоговые и аналогоцифровые преобразователи Цифроаналоговые ЦАП и аналогоцифровые преобразователи АЦП являются неотъемлемой частью автоматических систем контроля управления и регулирования. Кроме того поскольку подавляющее большинство измеряемых физических величин являются аналоговыми а их обработка индикация и регистрация как правило осуществляются цифровыми методами ЦАП и АЦП нашли широкое применение в автоматических...
40787. Основные классификационные признаки микроконтроллеров 157.95 KB
  По набору команд и способу адресации: CISC процессоры RISC процессоры и VLIW процессоры. Классификация набору команд и способу адресации По данному функциональному признаку в современных микропроцессорах реализуются следующие варианты архитектур: CISCархитектура RISCархитектура VLIWархитектура CISC Complex Instruction Set Computer архитектура реализована во многих типах микропроцессоров выполняющих большой набор разноформатных команд с использованием многочисленных способов адресации. Они выполняют более 200 команд...