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

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


 

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

27514. Перечислите и охарактеризуйте виды диспозиций правовых норм 29 KB
  Диспозиция юридическое расположение сторон элемент определяющий модель поведения субъектов с помощью установления прав и обязанностей возникающих при наличии указанных в гипотезе юридических фактов; диспозиция выступает основной регулирующей частью нормы ее ядром; 1 В зависимости от того как излагается правило поведения различают следующие виды диспозиции: а простая – диспозиция называющая вариант поведения но не раскрывающая не разъясняющая его например ст. Что представляют собой обособленные водные объекты норма не...
27515. Соотношение права и обычая 30.5 KB
  Обычаи весьма многообразны ибо складываются в рамках жизнедеятельности того или иного народа нации территориальной либо профессиональной группы и т. Обычаи исторически первая группа социальных норм возникшая одновременно с возникновением самого общества. Обычаи воплощают в себе определенные итоги жизнедеятельности общественный опыт закрепляют то что сложилось в результате длительной социальной практики. Обычаи не столь тесно связаны с правом как нормы морали.
27516. Соотношение права и технических норм 27.5 KB
  Соотношение права и технических норм Социальные нормы – правила поведения регулирующие отношения между людьми. Технические нормыправила характеризующие отношения людей к природе технике орудиям и средствам производства. Система социальных норм представляет собой правила поведения используемые для регулирования общественных отношений. К ним относятся правовые моральные религиозные обычные корпоративные нормы и др.
27517. Состав правонарушения. Причины правонарушений в российском обществе 31.5 KB
  Правонарушение общественно опасное противоправное виновное деяние наносящее вред личности собственности госву или обществу в целом за кот. мира на которые направлено противоправное деяние: общий общественные отношения охраняемые правом той или иной его отраслью; родовой группа однородных обществ. Элементы: деяние поведение находся под контролем воли и разума чела и выражся в действие или бездействии; противоправ. деяние противоречие его предписаниям юр.
27518. Социальная ценность и назначение права 27 KB
  Ценность права – это способность права служить целью и средством для удовлетворения социально справедливых прогрессивных потребностей и интересов граждан общества в целом. Можно отметить следующие основные проявления социальной ценности права: 1 Право обладает прежде всего инструментальной ценностью. Право тем самым вносит элементы упорядоченности и порядка в общественные отношения делает их цивилизованными; 2 Способствует развитию тех отношений в которых заинтересованы как отдельные индивиды так и общество в целом; 3 Ценность права...
27519. Специфика власти и социального регулирования в первобытном обществе 29.5 KB
  Основной формой чел-го общежития был род, сформировавшийся с течением времени из первобытного стада. Члены рода были объединены общностью процесса труда и общей собственностью на им-во. Власть принадлежала всей общине. Обществ. дела решались общим собранием всех членов рода, решения выражали волю всех членов рода. Обществ. власть не отделялась от общества, а совпадала с ним. Все члены рода были равны, никто не имел привилегий.
27520. Структура правоприменительного акта 32 KB
  Структура правоприменительного акта. Признаками акта применения права являются следующие: 1 акт имеет властный характер и охраняется принудительной силой государства в нем олицетворяется авторитет и сила государства; 2 исходит от компетентных органов; 3 имеет определенную установленную законом форму. Законом строго определен порядок издания и оформления индивидуальных актов необходимые реквизиты акта; 4 носит индивидуальный персонифицированный характер а не нормативный характер так как адресован конкретным субъектам указывая в...
27521. Субъективное право и юридическая обязанность: понятие и соотношение 26.5 KB
  Субъективное право и юридическая обязанность являются юридическим содержанием правоотношения ибо анализируя эти элементы правоотношения можно судить о его характере и цели. Субъективное право – право принадлежащее субъекту права то есть лицу управомоченному. Субъективное право – это мера возможного поведения т.
27522. Политическая система России: понятие, соотношение с политической организацией общества 26 KB
  Взаимодействие государства и общественных объединений Взаимодействие государства и общественных объединений происходит в следующих случаях: – общественные объединения принимают участие в формировании органов государственной власти выдвигая и поддерживая в предвыборной борьбе своих кандидатов в депутаты органов законодательной власти и на иные выборные должности в органы исполнительной власти; – общественные объединения осуществляют контроль за деятельностью органов государственной власти; – представители общественных объединений могут входить...