подсчет md5

[Noor]

Подскажите... у кого нить есть компонент для подсчета md5 суммы, а то я только нашел для подсчета CRC !!!

[JTG]

гм... почему именно компонент?

http://www.delphisources.ru/pages/faq/base/md5.html

[Noor]

Ну и если бы примерчиком, по испоьзованию этого модуля, угостили ...

[DeniCPP]

а на с++ есть что то готовое?
Если есть желание, помогите мне в этой теме: http://programmersforum.ru/showthread.php?t=44348

[s.Creator]

Сообщение от Noor

Ну и если бы примерчиком, по испоьзованию этого модуля, угостили ...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := MD5DigestToStr(MD5String('Hello World'));
end;

[Serge_Bliznykov]

s.Creator, это Вы зря... обратите внимание на дату сообщения, когда Noor примерчик просил... думаю, что он уже не ждёт ответ...

[s.Creator]

Да, на дату не посмотрел, но думаю что с примерчиком тема более законченная и может он пригодится тем кто воспользуется поиском.
И, кстати, еще бы добавил, что

MD5DigestToStr(MD5String('Hello World'))

в Delphi 7 и в Delphi 2009 дало разные результаты.
Связанно с тем, что в Delphi 2009 String = UnicodeString и, вероятно, необходимо внести коррекции в модуль для одинаковой работы и в среде 2009.

[Tempo69]

Пригодился, воспользовался, спасибо!

[Stilet]

Ну и конечно же всеми любимый http://www.delphiworld.narod.ru/base/md5.html