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

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


 

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

32261. Анализ различных методов возведения стальных вертикальных резервуаров 38.5 KB
  Конструкции поступившие на монтаж должны иметь маркировку изготовителя и сертификат качества а монтаж резервуаров должен производиться в соответствии с проектом и требованиями настоящих Правил строительных норм и правил разработанного ППР. Производитель работ монтажник должен иметь следующую нормативную и проектную документацию до выполнения монтажа: настоящие Правила; рабочую документацию КМ проектировщика; рабочие чертежи КМД изготовителя; проект плана производства работ далее ППР на сборку и сварку...
32262. Методы наращивания и подращивания поясов 26.5 KB
  Метод наращивания поясов резервуаров осуществляется на высоте путем сборки отдельных листов. Это позволяет возводить резервуары любого объема в основном для резервуаров с плавающей крышей. Недостаток данного метода возведения резервуаров монтаж конструкции неподвижной крыши осуществляется на значительной высоте что требует определенной квалификации рабочих задействование определенной техники и технологии возведения.
32263. Разработка грунта в траншее грейферным оборудованием для устройства «стены в грунте» 127 KB
  Схема разработки захватки траншеи за один проход грейфера представлена на рис. После разработки траншеи на полную глубину производится проверка глубины траншеи зачистка траншеи от слоя осыпавшего грунта и осадка глинистого раствора путем плавного опускания и перемещения грейфера по всей плоскости траншеи. Разработка захватки траншеи за один проход грейфера.
32264. Метод опускного колодца при строительстве сооружений водопровода и канализации 60 KB
  Сущность метода состоит в том что первоначально на поверхности земли возводят стены колодца оборудованные ножевой частью а затем внутри его разрабатывают грунт в направлении от центра к периметру стен.Первым этапом сооружения колодца является устройство основания под нож которое гарантирует надежное опирание последнего при возведении стен.По окончании устройства стен приступают к погружению колодца под действием его собственной силы тяжести.
32265. Устройство анкерного крепления котлованов 42 KB
  Грунтовые анкера относятся тоже к ограждению котлованов и применяются взамен распорной системы. Грунтовые анкера компенсируют опрокидывающий момент действующий со стороны грунта на конструкцию. Анкера располагаются за пределами котлована и как правило выходят за пределы участка застройки. Вовторых сами анкера не должны препятствовать дальнейшему городскому строительству в том числе подземному.
32267. Состав и порядок ведения исполнительной документации 143 KB
  Состав и порядок ведения исполнительной документации при осуществлении строительства реконструкции капитальном ремонте объектов капитального строительства разработан в соответствии с Градостроительным кодексом Российской Федерации иными нормативными правовыми актами Российской Федерации и обязательными требованиями технических регламентов норм и правил. В случае отсутствия технических регламентов проводится проверка соответствия выполняемых работ требованиям строительных норм и правил правил безопасности государственных стандартов...
32268. Виды вантовых покрытий 215.5 KB
  Системы с замкнутым контуром поэтому являются более экономичными. ПРЯМОУГОЛЬНЫЕ В ПЛАНЕ СИСТЕМЫ В таких зданиях применяют системы из параллельных вант или вантовых ферм; поверхность оболочки имеет цилиндрическую форму. Перед замоноличиванием швов ванты вновь натягивают гидравлическими домкратами чем создают требуемое предварительное натяжение вантовой системы. Системы могут быть однопролетными или многопролетными.