Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Блочный шифр TEA, В чём он не правильный? 
:(
    Опции темы
krobs
  Дата 31.5.2006, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.12.2005
Где: Барнаул

Репутация: нет
Всего: нет
Ситуация: Есть у нас предмет, "Безопасность информации". 
Курс лекций, которые провёл препод, состоял в описании и сравнивании разных систем шифрования, криптоагаритмов и не слово про программирование данных систем.  smile 
И вдруг он даёт нам задание создать криптоалгоритм на Паскале - мне попался "Блочный шифр TEA", а я Паскаль ни-ни. smile 
Скачал шифр из инета. Просмотрел его , потом чего-то промямлил преподу, но он не дурак и говорит: Что типа я не сам делал, поэтому должен обяснить чем "мой" код отличается от данного им схематического алоритма? Как он сказал, что "нарушена логическая связь в программе"... smile 
Я с этим заданием уже мучаюсь 2 месяца, а он упёртый... smile   Теперь если не сдам, сесию завалит! smile   

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

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

Присоединённый файл ( Кол-во скачиваний: 32 )
Присоединённый файл  TEA.zip 11,64 Kb
PM MAIL AOL   Вверх
skyboy
Дата 31.5.2006, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260
krobs, файл не качаеццо! 
PM MAIL   Вверх
Zero
Дата 31.5.2006, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
А у меня скачался:
Код

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  
PM MAIL ICQ   Вверх
krobs
Дата 1.6.2006, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.12.2005
Где: Барнаул

Репутация: нет
Всего: нет
Конечно я благодарю за ответы, но как сказал препод, говорит нарушена логическая структура кода, но программка-то работает, вот я и не знаю где она нарушена, может быть где-то в цикле??? smile  
PM MAIL AOL   Вверх
Zero
Дата 2.6.2006, 09:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Если бы она была нарушена, то хотябы декодирование не работало, а раз работает, значит ничего не нарушено.
Возможно не тот алгоритм или твой препод под этим словом подразумевал что-нибудь ещё...
Лучший способ разобраться ─ это пойти к преподу и уточнить вопрос, или точнее ошибку. 
PM MAIL ICQ   Вверх
krobs
Дата 2.6.2006, 10:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.12.2005
Где: Барнаул

Репутация: нет
Всего: нет
Спасибо за ответы!
Цитата

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


Упёртый он. Надо самому. 
Как он говорит, что хотя и программа работает, но логически она построена не правильно!
Опять же он уточнил, что неправильно в цикле. Намекнул также что если основываться по данному им алгоритму (блок-схеме), то программа будет построена не так. Но как?? smile  
PM MAIL AOL   Вверх
mulla
  Дата 7.6.2006, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.3.2006

Репутация: нет
Всего: нет
Твой код:
Код

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;
}
  

Это сообщение отредактировал(а) mulla - 7.6.2006, 11:43
PM MAIL   Вверх
ShadeSt
Дата 8.6.2006, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7
Если я правильно понял, то код ф-ии шифрования не соответствует приложенной схеме алгоритма шифрования. 
т.е. на схеме имеется блок, который повторяется 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;

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


--------------------
It's nice to be importand, but it's more importand to be nice © Scooter
PM MAIL ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0990 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.