| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TIdCoderMD5 [D6, WinXP]

waw ©   (2003-01-16 16:27:00) 

Как воспользоватся для подсчета контрольной суммы?
Пробую так:
IdCoderMD51.Reset;
IdCoderMD51.CodeString(Memo1.Text);
Memo2.Text := IdCoderMD51.CompletedInput;

Получаю строку 18 байт, а должна быть 16 (128 бит).

Подскажите как им правильно воспользоватся.

---

Dimka Maslov   (2003-01-16 18:47:00) [1]

http://delphibase.endimus.com/?action=viewfunc&topic=mathcode&id=10243

---

mrcat   (2003-01-16 18:17:00) [2]

Memo2.Text := IdCoderMD51.CompletedInput;

Попробуйте так:

var
MD5Str: string;

...
IdCoderMD51.Reset;
IdCoderMD51.CodeString(Memo1.Text);
MD5Str := IdCoderMD51.CompletedInput;
...

---

Наверх