Delphi - Алгоритм шифрования TEA

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Delphi - Алгоритм шифрования TEA

fossil

Ветеран

Сообщения: 637
Благодарности: 20

Конфигурация

Профиль | Сайт | Отправить PM | Цитировать

Привет гуру.
Есть программка реализующая шифрование на TEA. Дело в том что, препод там нашел какую-то логическую ошибку.
При всех моих напряжениях я ничего не нашел. Если кто-то сталкивался с такой ситуацией, плз хелп.

Код:

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.

-------
Согласно непопулярному мнению, Windows - враждебная ОС.
Так получилось, что Windows не выбирает себе друзей.

Отправлено: 06:46, 25-10-2007