VPF::DCPcrypt — криптография в Delphi. - Форум программистов

loveisafix

Дата 16.11.2009, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Здравствуйте, уважаемые!

имеется хеш вида EE5B0E48C8FE97716D. Исходная строка - "1234". Известно что фиксированный ключ был такого вида: 23 82 107 6 35 78 88 7

при помощи примера в статье пытаюсь сгенерировать такой же хеш.

Код


DCP_3des1 := TDCP_3des.Create(Self);       // создаём объект
DCP_3des1.InitStr(PCHAR('238210763578887'), TDCP_sha1);    // инициализируем
Edit2.Text := DCP_3des1.EncryptString(Edit1.Text); // шифруем

Ничего не выходит. Только короткая строка "Eck4fQ=="... Как быть..
Если кто-то может помочь - буду рад! Заранее спасибо!

С уважением Дмитрий. loveisafix ЭТ gmail.com

Это сообщение отредактировал(а) loveisafix - 16.11.2009, 00:34

Georg97

Дата 15.5.2013, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Ошибка UI в переменнjой Self
what's up?

Это сообщение отредактировал(а) Georg97 - 14.12.2013, 11:27

ReGeDiT

Дата 29.12.2013, 04:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Цитата(Georg97 @ 15.5.2013, 16:06)

Ошибка UI в переменнjой Self
what's up?

такая-же возня )
наверное, так-же используете версию Делфи около 2009-2010...

глупо, конечно, но лечится это довольно просто:

Код


..
  DCP_rijndael1 := TDCP_rijndael.Create(DCP_rijndael1);
..

или объявить Self:

Код


...
Self : TComponent;
...
Self := DCP_rijndael;
...

хрен его знает, будет ли работать = Delphi сыпит warnings

Это сообщение отредактировал(а) ReGeDiT - 29.12.2013, 04:50

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »