Лаба по DES

@Programmia · Регистрация: 18.02.2020

Author24 — интернет-сервис помощи студентам

Добрый день. У меня есть все подпрограммы по des шифрованию, но собрать воедино их не могу. Я не понимаю, как они работают, так как нас разделили на группы и каждый писал свою подпрограмму, чтобы потом собрать их воедино. Но я не могу понять как это сделать. Помогите, пожалуйста.

Задание
-разбить текст на блоки по 8 байт, последний блок дополнить нулями
-разбить блок на биты - и уложить их в байты.
-все перестановки
- генерация ключей.
- переворачивание ключей
- XOR
-перестановка в S-блоке

Код:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
   mas=array[1..64]of byte;
   tmas=array[1..64]of byte;
  tmas64=array[1..64]of byte;
  tmas32=array[1..32]of byte;
   tmas48=array[1..48]of byte;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo5: TMemo;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 const
in48:tmas48=(14,17,11,24,1,5,3,28,15,6,21,10,23,19,12,4,26,8,16,7,27,20,13,2,41,52,31,37,47,55,30,40,51,45,33,48,44,49,39,56,34,53,46,42,50,36,29,32);
in64:tmas64=(40,8,48,16,56,24,64,32,39,7,47,15,55,23,63,31,38,6,46,14,54,22,62,30,37,5,45,13,53,21,61,29,36,4,44,12,52,20,60,28,35,3,43,11,51,19,59,27,34,2,41,10,50,18,58,26,33,1,41,9,49,17,57,25);
out64:tmas64=(58,50,42,34,26,18,10,2,60,52,44,36,28,20,12,4,62,54,46,38,30,22,14,6,64,56,48,40,32,24,16,8,57,49,41,33,25,17,9,1,59,51,43,35,27,19,11,3,61,53,45,37,29,21,13,5,63,55,47,39,31,23,15,7);
in32:tmas32=(16,7,20,21,29,12,28,17,1,15,23,26,5,18,31,10,2,8,24,14,32,27,3,9,19,13,30,6,22,11,4,25);
 
var
  Form1: TForm1;
  a:mas;
  key0:mas;
  R1, R2, L, key1, KL, KR: mas;
  keys: array [1 .. 16] of mas;
  iskey:mas;
  S: array [1..8,0..3,0..15] of integer =       (((14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7),
                                              (0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8),
                                              (4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0),
                                              (15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13)),
                                             ((15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10),
                                              (3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5),
                                              (0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15),
                                              (13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9)),
                                             ((10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8),
                                              (13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1),
                                              (13,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7),
                                              (1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12)),
                                             ((7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15),
                                              (13,8,11,5,6,15,0,3,4,7,2,12,1,10,14,9),
                                              (10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4),
                                              (3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14)),
                                             ((2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9),
                                              (14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6),
                                              (4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14),
                                              (11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3)),
                                             ((12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11),
                                              (10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8),
                                              (9,14,15,5,2,8,12,3,7,0,4,10,1,13,11,6),
                                              (4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13)),
                                             ((4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1),
                                              (13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6),
                                              (1,4,11,13,12,3,7,14,10,15,6,8,0,5,9,2),
                                              (6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12)),
                                             ((13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7),
                                              (1,15,13,8,10,3,7,4,12,5,6,11,0,14,9,2),
                                              (7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8),
                                              (2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11)));
R:array[1..16] of integer=(1,2,2,2,2,2,2,1,2,2,2,2,2,2,1,0);
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.clear;
memo2.Clear;
memo3.Clear;
memo4.Clear;
memo5.Clear;
edit1.Text:='загадка';
memo1.Lines.LoadFromFile('E:\Nasral_ZipFile\Zi_DES\text.txt');
memo1.Text:=memo1.Text+'       ';
//setlength(memo1.Text,
end;
 
procedure SSBlock (Z:array of byte; var fin:array  of byte);
Var
j,stroke,column:integer;
begin
 for j := 0 to 48 do Z[j]:=1;
 for j := 0 to 8 do
  begin
    stroke:=z[j*6] shl 1 + z[j*6+5];
    column:=z[j*6+1] shl 3 + z[j*6+2] shl 2 + z[j*6+3] shl 1 + z[j*6+4];
 
    fin[j*8]:=Byte(S[j,stroke,column]);
    fin[j*8+1]:=Byte(S[j,stroke,column] shr 8);
    fin[j*8+2]:=Byte(S[j,stroke,column] shr 16);
    fin[j*8+3]:=Byte(S[j,stroke,column] shr 24);
   end;
end;
 
procedure LeftShift(var Key:mas);
var
i,j,v:integer;
begin
v:=Key[1];
  for i := 2 to 28 do Key[i-1]:=Key[i];
Key[28]:=v;
v:=Key[29];
  for i := 29 to 56 do Key[i-1]:=Key[i];
Key[56]:=v;
end;
 
 
Procedure Xor_(Type_:bool;InputArray1:mas;InputArray2:mas; var res:mas);
var
i,j:byte;
n:integer;
begin
fillchar(res,sizeof(res),#0);
i:=1;
j:=1;
  if Type_=true then n:=48 else n:=32; //2x48
      while j<=n do
       begin
        if (InputArray1[j]=InputArray2[j]) then res[j]:=0 else
 res[j]:=1;
        inc(j);
       end;
    end;
 
procedure vhod64(arr:mas; var res:mas);
var
i:integer;
in48,mas48:tmas48;
mas64,masout64,in64,out64:tmas64;
in32,mas32:tmas32;
 
begin
for i := 1 to 64 do
  begin
    mas64[i]:=arr[in64[i]];
  end;
 
end;
 
procedure vhod32(arr:mas; var res:mas);
var
i:integer;
in48,mas48:tmas48;
mas64,masout64,in64,out64:tmas64;
in32,mas32:tmas32;
 
begin
for i := 1 to 32 do
  begin
    mas64[i]:=arr[in64[i]];
  end;
 
end;
 
procedure vhod48(arr:mas; var res:mas);
var
i:integer;
in48,mas48:tmas48;
mas64,masout64,in64,out64:tmas64;
in32,mas32:tmas32;
 
begin
for i := 1 to 48 do
  begin
    mas64[i]:=arr[in64[i]];
  end;
 
end;
 
procedure vihod64(arr:mas; var res:mas);
var
i:integer;
in48,mas48:tmas48;
mas64,masout64,in64,out64:tmas64;
in32,mas32:tmas32;
 
begin
for i := 1 to 64 do
  begin
    masout64[i]:=arr[in64[i]];
  end;
 
end;
 
procedure SudKey(var Key:array  of mas; ishKey:mas; cript:boolean);
var
i:integer;
//temp:string;
begin
fillchar(Key,sizeof(Key),#0);
i:=1;
for i := 1 to 16 do
  begin
vhod48(ishKey,Key[i]);
LeftShift(ishKey);
if r[i]=2 then
  begin
  LeftShift(ishKey);
  end;
  end;
  end;
 
procedure DePack(s:string; i:integer; var a:mas);
var
j,k,l:integer;
b,m:byte;
begin
k:=1;             //номер бита в блоке
begin
for j:=1 to 8 do  //байты
  begin
  m:=128;
  b:=byte(form1.memo1.Text[i*8+j]);
  form1.memo2.Text:=form1.memo2.Text+inttohex(b,2)+' ';
  for l:=1 to 8 do //биты
    begin
     if byte(b and m)=0 then a[k]:=0 else a[k]:=1;
     inc(k);
     m:=m shr 1;
    end;           // 8 бит собрали
  end;            //блок 64-бита
end;
end;
 
procedure Pack(a:mas; var r:string);
var
b:byte;
i,j:integer;
begin
r:='';
  for j:= 0 to 7 do
  begin
    b:=0;
      for i:= 0 to 8 do
        begin
          b:=b*2+a[i+j*8];
        end;
         r:=r+char(b);
    end;
  //r:=r+char(b);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n:integer;
text:string;
b,m:byte;
k:integer;
begin
{k:=0;
//keys
   for i := 1 to 7 do
      text[i]:= Edit1.Text[i];
    vhod64(a,key);
    //16 ключей
  for i:= 1 to 16 do
     begin
 
     end;}
   DePack(memo1.Text,i,a); //key
         //подпрограмма SubKey
n:=(length(memo1.Text) div 8);
i:=0;      //
while i<n do   //блоки текста
begin
  DePack(memo1.Text,i,a);
 
         //перестановка
 
  Pack(a,text);
  form1.memo5.Text:=form1.Memo5.Text+text;
  for j:=1 to 64 do form1.memo3.Text:=form1.memo3.Text+char(a[j]+$30);
form1.memo4.Text:=form1.Memo4.Lines.Text+text;
form1.memo4.Text:=form1.memo2.Text+inttohex(b,2)+' ';
form1.memo2.Text:=form1.memo2.Text+#13#10;
form1.memo3.Text:=form1.memo3.Text+#13#10;
  inc(i);
 //шифрую
 //расшифровываю
end;
end;
end.

@Пытливый · 04.03.2023, 14:03

Надо было согласовать в группах общие имена типов, а так вы наплодили разных имен. Сделайте в обоих модулях один общий тип:

Delphi

1	TMas64=array[1..64] of byte;

и его используйте в аргументах ваших процедур. Вот тогда они станут совместимы.

Добавлено через 10 минут
Посмотрел я повнимательнее на процедуры из модуля Unit2. Вот пример одной процедуры, а там их 4 штуки под копирку сделанных:

Delphi

procedure vhod64(arr:tmas);
var
i:integer;
in48,mas48:tmas48;
mas64,masout64,in64,out64:tmas64;
in32,mas32:tmas32;
 
begin
for i := 1 to 64 do
  begin
    mas64[i]:=arr[in64[i]];
  end;
 
end;

Это что за дичь?

@Programmia · 04.03.2023, 14:05 **[ТС]**

Я же говорю, что это разные люди делали. Делали так как могли. Но теперь все это просто в одну программу надо собрать и чтобы это работало.

@Пытливый · 04.03.2023, 14:17

Сообщение от Programmia

Но теперь все это просто в одну программу надо собрать и чтобы это работало.

Что бы это заработало, надо что бы детали функционировали. А сейчас вы собрали в кучу перья, косточки, камешки и вам только заклинания не хватает, что бы из этого хлама пепелац получился.

@D1973 · 04.03.2023, 14:20

Не по теме:

Сообщение от Пытливый

и вам только заклинания не хватает

бубен еще нужен...

@SeGun · 04.03.2023, 21:57

Теория.
Практический пример.
Пробуйте. . .

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

@Programmia 0 / 0 / 0 Регистрация: 18.02.2020 Сообщений: 95
	04.03.2023, 14:05 [ТС]	3
	Я же говорю, что это разные люди делали. Делали так как могли. Но теперь все это просто в одну программу надо собрать и чтобы это работало. 0

@Пытливый 3760 / 2264 / 705 Регистрация: 29.05.2013 Сообщений: 9,616
	04.03.2023, 14:17	4
	Сообщение от Programmia Но теперь все это просто в одну программу надо собрать и чтобы это работало. Что бы это заработало, надо что бы детали функционировали. А сейчас вы собрали в кучу перья, косточки, камешки и вам только заклинания не хватает, что бы из этого хлама пепелац получился. 0

@D1973
	04.03.2023, 14:20 #5
	Не по теме: Сообщение от Пытливый и вам только заклинания не хватает бубен еще нужен... 0

@SeGun 122 / 103 / 19 Регистрация: 23.05.2015 Сообщений: 648
	04.03.2023, 21:57	6
	Теория. Практический пример. Пробуйте. . . 0