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

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


 

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

79880. Схемы специальных усилителей на ОУ 271 KB
  Напряжение на нагрузке Rн включенной в цепь ООС усилителя показана схема усилителя в котором нагрузка включена между выходами инвертирующего и неинвертирующего усилителей. Схема модифицированного двухканального усилителя показана модифицированная схема усилителя в котором дифференциальный усилитель выполнен на транзисторах V1 и V2.
79881. Логические функции и логические элементы. Представление информации физическими сигналами 2.73 MB
  Логические переменные хорошо описывают состояния таких объектов, как реле, тумблеры, кнопки, т.е. объектов, которые могут находиться в двух четко различимых состояниях...
79882. Типовые комбинационные устройства 2.34 MB
  В комбинационных схемах (КС) совокупность выходных сигналов в любой момент времени однозначно определяется входными сигналами, поступающими на входы в тот же момент времени. Закон функционирования КС определен, если задано соответствие между входными и выходными сигналами в виде таблицы
79883. Арифметические устройства 1.81 MB
  Примерами простейших конечных ЦА являются триггеры. Триггеры 4.1 RSтриггер Триггером Т называют логическую схему с положительной обратной связью имеющую два устойчивых состояния которые называются единичным и нулевым и обозначаются 1 и 0. Перевод триггера в единичное состояние путем воздействия на его входы называют установкой set триггера а устанавливающий сигнал и вход на который он воздействует обозначают S от set.
79885. Широкополосные усилители на транзисторах 131 KB
  Одним из наиболее распространенных и наиболее простых способов ВЧкоррекции с помощью частотнозависимой ООС является эмиттерная коррекция когда используется комплексная ООС в эмиттерной цепи с помощью цепи RэкорСэкор рис. Благодаря этой цепи в усилительном каскаде создается достаточно глубокая последовательная ООС по току. Конденсатор Сэ большой емкости шунтирует Rэ по переменному току на всех рабочих частотах поэтому частотнозависимая ООС создается только благодаря цепи RэкорСэкор. Для расширения полосы частот...
79886. Усилители постоянного тока. Операционные усилители 415.5 KB
  Коэффициент усиления Ку отношение приращения значения выходного напряжения к вызвавшему его изменению дифференциального входного напряжения. Входное сопротивление для синфазного сигнала rсф величина равная отношению приращения синфазного входного напряжения к приращению среднего входного тока ОУ rсф обычно на 1 2 порядка больше rвх.сф определяется как отношение изменения выходного напряжения к вызвавшему его изменению синфазного входного сигнала. Коэффициент влияния нестабильности источника питания Кп отношение изменения...
79888. Микропроцессорная техника. Микропроцессоры и микропроцессорные комплекты 388.5 KB
  Микропроцессор МП – это обрабатывающее и управляющее устройство способное под программным управлением выполнять обработку информации принятие решений ввод и вывод информации и выполненное в виде одной или нескольких БИС. используемое для временного хранения информации в процессе работы МП. В отличие от ПЗУ в ОЗУ возможно как считывание так и запись информации по сигналам Чт и Зап в ячейку адрес которой находится на ША. По сигналу Вв ввод на ШУ происходит передача информации от внешнего устройства на ШД а по сигналу Выв вывод...