Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Блочный шифр TEA

Автор: krobs 31.5.2006, 21:27

Ситуация: Есть у нас предмет, "Безопасность информации".
Курс лекций, которые провёл препод, состоял в описании и сравнивании разных систем шифрования, криптоагаритмов и не слово про программирование данных систем. smile

И вдруг он даёт нам задание создать криптоалгоритм на Паскале - мне попался "Блочный шифр TEA", а я Паскаль ни-ни. smile

Скачал шифр из инета. Просмотрел его , потом чего-то промямлил преподу, но он не дурак и говорит: Что типа я не сам делал, поэтому должен обяснить чем "мой" код отличается от данного им схематического алоритма? Как он сказал, что "нарушена логическая связь в программе"... smile

Я с этим заданием уже мучаюсь 2 месяца, а он упёртый... smile

Теперь если не сдам, сесию завалит! smile

Товарищи, подскажите, пожалуйста, где нарушенна эта чёртова связь? smile

Исходник программы и "его" алгоритм можно взять в прилагаемом файле!

Автор: skyboy 31.5.2006, 21:38

krobs, файл не качаеццо!

Автор: Zero 31.5.2006, 22:26

А у меня скачался:

Код


Program tea;
Uses crt;
type
    TLong2=array[0..1] of longint;
    TLong2x2=array[0..1] of TLong2;
const Delta=$9E3779B9;
var key:TLong2x2;
    text:string;
procedure EnCrypt(var data);
var y,z,sum:longint;
    a:byte;
begin
  y:=TLong2(data)[0];
  z:=TLong2(data)[1];
  sum:=0;
  for a:=0 to 31 do
    begin
      inc(sum,Delta);
      inc(y,((z shl 4)+key[0,0]) xor (z+sum) xor ((z shr 5)+key[0,1]));
      inc(z,((y shl 4)+key[1,0]) xor (y+sum) xor ((y shr 5)+key[1,1]));
    end;
  TLong2(data)[0]:=y;
  TLong2(data)[1]:=z;
end;

procedure DeCrypt(var data);
var y,z,sum:longint;
    a:byte;
begin
  y:=TLong2(data)[0];
  z:=TLong2(data)[1];
  sum:=Delta shl 5;
  for a:=0 to 31 do
  begin
    dec(z,((y shl 4)+key[1,1]) xor (y+sum) xor ((y shr 5)+key[1,0]));
    dec(y,((z shl 4)+key[0,1]) xor (z+sum) xor ((z shr 5)+key[0,0]));
    dec(sum,Delta);
  end;
  TLong2(data)[0]:=y;
  TLong2(data)[1]:=z;
end;

Begin
  clrscr;
  write('Введите текст: ');
  read(text);
  EnCrypt(text);
  writeln('Зашифрованный текст: ',text);
  DeCrypt(text);
  write('Расшифрованный текст: ',text);
end.

Ну в схеме из вордовского алгоритма мне разбиратся не охота, а без ТЗ, на вопрос чё должна делать программа на самом деле, ответить не получится.

Добавлено @ 22:30
Хотя общий принцип такой:
вначале ты вводишь строку, потом эта строка зашифровывается процедурой EnCrypt и выводится, а потом расшифровывается процедурой DeCrypt и тоже выводится.
Вот собсна и всё... smile

Автор: krobs 1.6.2006, 14:49

Конечно я благодарю за ответы, но как сказал препод, говорит нарушена логическая структура кода, но программка-то работает, вот я и не знаю где она нарушена, может быть где-то в цикле??? smile

Автор: Zero 2.6.2006, 09:17

Если бы она была нарушена, то хотябы декодирование не работало, а раз работает, значит ничего не нарушено.
Возможно не тот алгоритм или твой препод под этим словом подразумевал что-нибудь ещё...
Лучший способ разобраться ─ это пойти к преподу и уточнить вопрос, или точнее ошибку.

Автор: krobs 2.6.2006, 10:32

Спасибо за ответы!

Цитата

Лучший способ разобраться ─ это пойти к преподу и уточнить вопрос, или точнее ошибку.

Упёртый он. Надо самому.
Как он говорит, что хотя и программа работает, но логически она построена не правильно!
Опять же он уточнил, что неправильно в цикле. Намекнул также что если основываться по данному им алгоритму (блок-схеме), то программа будет построена не так. Но как?? smile

Автор: mulla 7.6.2006, 10:59

Твой код:

Код


procedure EnCrypt(var data);
var y,z,sum:longint;
   a:byte;
begin
y:=TLong2(data)[0];
z:=TLong2(data)[1];
sum:=0;
for a:=0 to 31 do
begin
 inc(sum,Delta);
 inc(y,((z shl 4)+key[0,0]) xor (z+sum) xor ((z shr 5)+key[0,1]));
 inc(z,((y shl 4)+key[1,0]) xor (y+sum) xor ((y shr 5)+key[1,1]));
end;
TLong2(data)[0]:=y;
TLong2(data)[1]:=z;
end;
....

На шарпе:

Код


private void code(uint[] v, uint[] k)
{
   uint y = v[0];
   uint z = v[1];
   uint sum = 0;
   uint delta=0x9e3779b9;
   uint n=32;

   while(n-->0)
   {
       y += (z << 4 ^ z >> 5) + z ^ sum + k[sum & 3];
       sum += delta;
       z += (y << 4 ^ y >> 5) + y ^ sum + k[sum >> 11 & 3];
   }
   v[0]=y;
   v[1]=z;
}

Автор: ShadeSt 8.6.2006, 15:44

Если я правильно понял, то код ф-ии шифрования не соответствует приложенной схеме алгоритма шифрования.
т.е. на схеме имеется блок, который повторяется 32 раза, в нем в каждый единичный проход меняется только одна переменная Z, причем ее изменение зависит от переменной X и промежуточной переменной, которая каждый раз увеличивается на $9E779B9.
После выполнения блока переменные меняются местами и алгоритм повторяется...

а в данном случае:

Код


procedure EnCrypt(var data);    
var y,z,sum:longint;    
    a:byte;    
begin    
  y:=TLong2(data)[0];    
  z:=TLong2(data)[1];    
  sum:=0;    
  for a:=0 to 31 do    
    begin    
      inc(sum,Delta);    
      inc(y,((z shl 4)+key[0,0]) xor (z+sum) xor ((z shr 5)+key[0,1]));    
      inc(z,((y shl 4)+key[1,0]) xor (y+sum) xor ((y shr 5)+key[1,1]));    
    end;    
  TLong2(data)[0]:=y;    
  TLong2(data)[1]:=z;    
end;

за один проход меняются обе переменные...