Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Алгоритм шифрования TEA

Ответить
Настройки темы
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

 

Аватара для Coutty

Кот Ти


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

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

Думаю, что приложить и сам алгоритм было бы не лишним )

Отправлено: 07:35, 25-10-2007 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для fossil

Ветеран


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

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

Да в интернете полно статей в принципе.
Если кто не знает и ему лень искать http://www.citforum.ru/internet/infs...s2000_19.shtml

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

Отправлено: 11:38, 25-10-2007 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Алгоритм шифрования TEA

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Утилиты - программу для шифрования\дишифрования текста. svetohka Программное обеспечение Windows 9 13-02-2022 09:26
[решено] WinXP+Win2k3. сеанс будет прекращен из-за ошибки шифрования данных strannik73 Microsoft Windows NT/2000/2003 12 05-09-2013 01:23
Verbatim разработала DVD-болванки со встроенной системой шифрования данных boss911 Новости железа 2 16-01-2010 00:40
VBA - программа шифрования алгоритм RC4 Anton Naumov Программирование и базы данных 4 04-01-2010 12:48
Программа шифрования данных __sa__nya Программное обеспечение Windows 5 21-04-2008 10:32


« Предыдущая тема | Следующая тема »


 
Переход