51329

Шифрование текста по ключу аддитивными методами (гаммированием)

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

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

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

Русский

2014-02-09

57.94 KB

14 чел.

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

1

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

Разраб.

Карецкий

Пров.

Смулаковский

Н. Контр.

Утв.

Шифрование текста по ключу аддитивными методами (гаммированием).

Лит.

Листов

4

КОГУ 59П-3

 

Ход работы:  

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, XPMan, jpeg, ExtCtrls;

type

 TForm1 = class(TForm)

   Edit1: TEdit;

   Edit2: TEdit;

   Label1: TLabel;

   Label2: TLabel;

   Button1: TButton;

   XPManifest1: TXPManifest;

   Edit3: TEdit;

   Label3: TLabel;

   Button2: TButton;

   Image1: TImage;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

 i:integer;

Изм.

Лист

№ докум.

Подпись

Дата

Лист

2

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

 TextCount, GammCount:integer;

 Text, gamma, ProtectText:string;

 s1, s2, s3:string[1];

begin

 Text := Edit1.Text;

 Gamma := Edit2.Text;

 TextCount := Length(Text);

 GammCount := Length(Gamma);

   {Сравниваем длинну гаммы с длиной текста}

 while GammCount < TextCount do

 begin

   Gamma := Gamma + Edit2.Text;

   GammCount := Length(Gamma);

 end;

 if GammCount > TextCount then

 delete(Gamma, TextCount+1, (GammCount-TextCount));

 Edit2.Text := Gamma;

   {Шифрование текста}

 for i:=1 to TextCount do

 begin

   s1 := copy(Text, i, 1);

   s2 := copy(Gamma, i, 1);

     {Сложение текста с гаммой}

   s3 := Chr((Ord(S1[1])+Ord(S2[1])) mod 255);

   ProtectText := ProtectText + s3;

 end;

 Edit3.Text := ProtectText;

end;

//==============================================================================

procedure TForm1.Button2Click(Sender: TObject);

var

 i:integer;

 ProtectTextCount, GammCount:integer;

 Text, gamma, ProtectText:string;

 s1, s2, s3:string[1];

begin

 ProtectText := Edit3.Text;

 Gamma := Edit2.Text;

 ProtectTextCount := Length(ProtectText);

 GammCount := Length(Gamma);

Изм.

Лист

№ докум.

Подпись

Дата

Лист

3

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

   {Сравниваем длинну гаммы с длиной текста}

 while GammCount < ProtectTextCount do

 begin

   Gamma := Gamma + Edit2.Text;

   GammCount := Length(Gamma);

 end;

 if GammCount > ProtectTextCount then

   delete(Gamma, ProtectTextCount+1, (GammCount-ProtectTextCount));

 Edit2.Text := Gamma;

   {Шифрование текста}

 for i:=1 to ProtectTextCount do

 begin

   s1 := copy(ProtectText, i, 1);

   s2 := copy(Gamma, i, 1);

     {Сложение текста с гаммой}

   if Ord(S1[1])-Ord(S2[1])<0 then

     s3 := Chr((Ord(S1[1])-Ord(S2[1]))+255)

   else

     s3 := Chr((Ord(S1[1])-Ord(S2[1])));

   Text := Text + s3;

 end;

 Edit1.Text := Text;

    showmessage(Gamma);

end;

end.

Изм.

Лист

№ докум.

Подпись

Дата

Лист

4

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

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


 

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

44890. Новое время. Европа в начале нового времени 14.19 KB
  Новое время неразрывно связывается с утверждением €œбуржуазным индустриальным прогрессомâ€. В последнее время многие историки склоняются к мнению что нельзя искусственно отрывать от буржуазной цивилизации такие явления как великие географические открытия реформация и гуманизм научная революция которые дали толчок к зарождению буржуазии.: ранее новое время когда капитализм только зарождался и существовал в виде одного из укладов жизни.
44891. Методика формирования и развития системы понятий о химическом элементе 23.19 KB
  Цель изучения химических производств показать учащимся как достижения науки используются для практических нужд отразить роль науки как движущей силы производства и прогресса. Изучение химических производств позволяет существенно усилить экологическую сторону обучения химии раскрыть возможность реализации и требований экологической безопасности при грамотной организации производства что является важной воспитательной задачей курса химии средней школы. Структура системы понятий об основах химического производства. На этом основании можно...
44893. Понятие ОМ. Общественное мнение и паблицитный капитал как результаты PR-деятельности 20.26 KB
  Общественное мнение и паблицитный капитал как результаты PRдеятельности Общественное мнение –- это специфическое проявление общественного сознания выражающееся в оценках как в устной так и в письменной форме и характеризующее явное отношение групп общественности к актуальным проблемам действительности представляющим общественный интерес. Для PRдеятельности Общественное мнение его преобразование изменение в нужном для субъекта PR направлении – это объект и продукт PRдеятельности. Программы деятельности субъектов PR...
44894. Travelling. Путешествие 15.03 KB
  It is аlwys interesting to discover new things different wys of life to meet different people to try different food to listen to different musicl rhythms. Most trvellers nd holidymkers tke cmer with them nd tke pictures of everything tht interests them the sights of city old churches nd cstles views of mountins lkes vlleys plins wterflls forests different kinds of trees flowers nd plnts nimls nd birds.
44895. Трудная жизненная ситуация как категория социальной работы 23 KB
  Устоявшиеся нормативные стандарт трудныепротиворесчивые Признаки ТЖС:1 Неадекватность алгоритм. ЧеловекаТЖС ситуация соц.Факторы ТЖС: поведенческий экзистенциональный вероятностнопрогностическийСтруктура ТЖС:участники связан. Классификация ТЖС: по харкам субъектаиндивидуал.
44896. Синтаксические нормы 15.33 KB
  Благодаря преступной халатности водителя произошла эта авария Выбор падежной формы при гл. Выбор предлога. Выбор падежа при глаголе с отрицанием.
44897. Поняття культури мови. Комунікативні якості культури мови 25.5 KB
  Поняття культури мови. Комунікативні якості культури мови. Культура мови ознака літературної мови параметр за яким встановлюються авторитетні загальновизнані стандарти реалізовані в нормах писемного й усного спілкування. З культурою мови насамперед пов'язують уміння правильно говорити й писати дотримуватися всіх норм літературної мови.