51329

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

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

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

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

Русский

2014-02-09

57.94 KB

16 чел.

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

Изм.

Лист

№ докум.

Подпись

Дата

Лист

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

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


 

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

10990. Spline Interpolation 87.5 KB
  Spline Interpolation In the previous sections n 1th order polynomials were used to interpolate between n date points. For example for eight points we can derive a perfect seventh order polynomial. This curve would capture all the meanderings at least up to and including seventh derivatives suggested by the points. However there are cases where these functions can lead to erroneous results because of roundoff error and overshoot. An alternative approach is to apply low...
10991. Numerical Integration 156.5 KB
  2. Numerical Integration 2.1. Introduction Numerical integration which is also called quadrature has a history extending back to the invention of calculus and before. The fact that integrals of elementary functions could not in general be computed analytically while derivatives could be served to give the field a certain panache and to set it a cut above the arithmetic drudgery of numerical analysis during the whole of the 18th and 19th centuries. With the invention of automa...
10992. Extended Formulas (Closed) 145 KB
  Extended Formulas Closed If we use equation 2.5 N 1 times to do the integration in the intervals x1; x2; x2; x3; xN 1; xN and then add the results we obtain an extendedr or compositer formula for the integral from x1 to xN. Extended trapezoidal rule: In this method the area under the curve is approximated by sums of trapezoids areas under the curve see Fig. 2.3.. Figure 2.3. Extended trapezoidal rule. Trapezoid formul...
10993. Solution of Linear Algebraic Equations 132.5 KB
  Lesson 6 3. Solution of Linear Algebraic Equations 3.1. Introduction A set of linear algebraic equations looks like this: 3.1 Here the n unknowns xj j = 1 2 n are related by m equations. The coefficients aij with i = 1 2 m and j = 1 2 n are known numbers as are the righthand side quantities bi i = 1 2 m. If n = m then there are as many equations as unknowns and there is a good chance of solving for a unique solution...
10994. Проблема истины. Аргументы агностицизма 69 KB
  Проблема истины Способно ли человеческое познание в том числе и научное приводить к истине Автоматически ответить на этот вопрос положительно философия не может поскольку за тысячелетия ее существования было сформулировано немало аргументов выражавших на сей счет ...
10995. Культура и цивилизация, содержание и закономерности развития культуры 127.5 KB
  Культура и цивилизация Понятиями культура и цивилизация обозначены чрезвычайно важные точки роста на нескончаемой нити человеческого познания. Феномены культуры и цивилизации стремительно преображают окружающую среду оцениваются как факторы творческого жизнеустр
10996. Глобальные проблемы современности, Стимулы и потенциалы общественного развития 56 KB
  Глобальные проблемы современности. Современная глобальная ситуация. Политические экологические демографические экономические проблемы. Стимулы и потенциалы общественного развития. Глобальные проблемы современности являются самой актуальной тем
10997. Философия и мировоззрение. Типы мировоззрений 28 KB
  Философия и мировоззрение. Мировоззрение это сложное синтетическое интегральное образование общественного и индивидуального сознания. В нем присутствуют различные компоненты: знания убеждения верования настроения стремления ценности нормы идеалы и т.д. Мирово
10998. Основные особенности философского типа мышления 91.5 KB
  Основные особенности философского типа мышления: КОНЦЕПТУАЛЬНАЯ ОБОСНОВАННОСТЬ то есть последовательное проведение в решении мировоззренческих вопросов исходных однажды выбранных принципов их нельзя менять по ходу дела. В эти принципы конечно могут вноситься уточ...