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

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


 

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

24097. Синтез стероидных гормонов 52.5 KB
  Биосинтез стероидных гормонов идет из холестерина. Этапы синтеза стероидных гормонов. Образование ключевого предшественника гормонов прегненолона покидающего митохондрии.
24098. Гормональная регуляция обмена углеводов. Механизм действия адреналина и глюкагона 43 KB
  Гормональная регуляция обмена углеводов Основным показателем состояния углеводного обмена является содержание глюкозы в крови. В норме содержание глюкозы составляет 35 55 ммоль л. Снижение содержания глюкозы ниже 33 ммоль л называется гипогликемия. При снижении содержания глюкозы ниже 27 ммоль л развивается грозное осложнение гипогликемическая кома.
24100. Методы диагностики сахарного диабета 32.5 KB
  В результате недостатка инсулина нарушается проникновение глюкозы в ткани и глюкоза накапливается в крови. В ответ на дефицит глюкозы в клетках печени усиливается распад гликогена и выход свободной глюкозы в кровь что усугубляет гипергликемию. Когда содержание глюкозы в крови превышает способность почечных канальцев к реабсорбции глюкозы она выделяется с мочой. Вследствие дефицита глюкозы в тканях клетки начинают использовать в качестве энергии жиры.
24101. Гликогенозы. Мышечные гликогенозы 27 KB
  Виды гликогенозов Печеночные Мышечные Смешанные Гликогеноз I типа болезнь Гирке характеризуется дефектом фермента глюкозо6фосфатазы. Гликогеноз VI типа болезнь Херса. Накопление гликогена характерны симптомы I типа но менее выражены глюкоза в кровь поступает. Мышечные гликогенозы Гликогеноз V типа дефект или отсутствие фосфорилазы в мышцах.
24102. Обмен углеводов в мышцах 61.5 KB
  В состоянии покоя значительные количества глюкозы резервируются в форме гликогена. Обмен углеводов в мышцах обеспечивает создание тканевых запасов гликогена в состоянии покоя и использование этих запасов а также поступающей глюкозы при напряженной работе; основные энергетические потребности всех типов мышц удовлетворяются главным образом за счет окисления продуктов обмена жиров. Фосфорилирование глюкозы в мышцах происходит под дейстием гексокиназы в печени этот процесс катализируется глюкокиназой. Если в крови поступающей к мозгу...
24103. Обмен углеводов в эритроцитах 52.5 KB
  Обмен углеводов в эритроцитах. Основным процессом в эритроцитах который дает энергию является анаэробный гликолиз. Побочным продуктом гликолиза в эритроцитах является 23дифосфоглицерат. Обмен углеводов в эритроцитах.
24104. Патология обмена углеводов 34.5 KB
  В норме содержание глюкозы составляет 35 55 ммоль л. Снижение содержания глюкозы ниже 33 ммоль л называется гипогликемия. При снижении содержания глюкозы ниже 27 ммоль л развивается грозное осложнение гипогликемическая кома.
24105. Жизнь как философское понятие 14.64 KB
  Жизнь это движение по оси. Тогда смерть это движение по иной оси направленной противоположно оси жизни и не совпадающей с ней. По окончании движения по оси смерти объект начинает двигаться по оси структуризации и систематизации снова переходя из неживого в живой объект. Для когото движение по оси смерти это движение по своей параллельной оси жизни.