3DES в Delphi

← →
Квэнди © (2008-02-14 20:01) [0]

Здравствуйте. Помогите пожалуйста:
мне необходимо в некий момент закодировать/раскодироывть строку по алгоритму 3des МОжет есть уже у кого- нибудь готовые реализации этого алгоритма ? Или ссылками поделитесь пожалуйста.

← →
palva © (2008-02-14 21:25) [1]

http://www.torry.net/authorsmore.php?id=1500

← →
Квэнди © (2008-02-14 21:29) [2]

Да, пробовал эти компоненты, однако как- то странно:
Пробовал так:
DCP_3des1.initstr("qwerty",TDCP_md5);
showmessage((DCP_3des1.EncryptString("TEST")));

Проверял программой, которая умеется просто шифровать текст по этому же алгоритму, у нее результат совершенно другой. ПРоверил еще в нескольких местах, все равно результаты разняться. Отсюда у меня был вопрос, для чего в initstr нужно указывать некий тип хеша ? где он используется ? видимо просто проблема именно в этом, так как цель в том чтобы просто зашифровать строку 3des-ом с неким ключом и все.

← →
palva © (2008-02-14 21:59) [3]

> Проверял программой, которая умеется просто шифровать текст
> по этому же алгоритму, у нее результат совершенно другой.

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

Тип хэша, наверно, задает алгоритм для хэширования пароля и получения из него ключа. Кроме того, для блочного шифрования возникают всякие нюансы шифрования файлов, длина которых не делится на длину блока. Еще бывают всякие варианты сцепления блоков при шифровании. Короче, если сравнивать, с целью выяснить, правильно ли шифрует DES, то надо проверять шифрование одного 64-битного блока с 64-битным ключом. В этом ключе один бит каждого байта контрольный, т. е. фактически ключ 56-битный. Для тройного DES надо предъявить три таких ключа. Подпрограммы, которые шифруют один блок нужно искать в исходниках, если они не выведены в интерфейс.

← →
Квэнди © (2008-02-15 09:13) [4]

Да, но на примере шифрования статичной строки "TEST" с статичным ключем "qwerty" по идее же результат должен быть одинаков ? может просто у кого - нибудь есть реализация алгоритма 3des в простом варианте, где просто строка шифруется по указанному ключу без наворотов в виде хешей и иже с ними ?

> по идее же результат должен быть одинаков ?
вовсе нет. Я уже объяснял. DES не занимается шифрованием строки, он для этого не приспособлен. А qwerty - это не ключ. Всем этим занимается программа, которая только использует DES. Разные программы скорее всего дадут разный результат.

> может просто у кого - нибудь есть реализация алгоритма 3des
> в простом варианте

DES имеется в единственном варианте. И реализация этого варианта есть у Бартона по ссылке [1]. Откройте исходники и найдите нужную процедуру.

Понял, видимо вечером голова туго соображала ( Успешно реализовал с помощью blowfish спасибо вам за помощь )

3DES в Delphi Найти похожие ветки