Различие MD5 Delphi и MD5 PHP

[Viteef]

Проблема в том что хэш дельфийских модулей не совпадает с тем что возвращает PHP

1)26A5B64D95447269BED200360DB0F0B2
2)628c781eae084f1aa24f895f476d8072
3)55d98fb1516429b4956ee1ad12b79e98

Это хэш одной строки. Первые 2 это от тех модулей что я цеплял к Delphi, третий создан php.

А получать надо результат идентичный PHP. Все это нужно для онлайн генератора ключей.

Delphi 2009.

[Serge_Bliznykov]

НЕ ПОДТВЕРЖДАЮ!!!!

я не знаю, что и как Вы там мутите.
Но, например,
для строчки '1234567890' (без кавычек)
MD5 получается:

e807f1fcf82d132f9bb018ca6738a19f
или (что то же самое)
E807F1FCF82D132F9BB018CA6738A19F

проверено консольной утилитой.

Обе подпрограммы выдают ИДЕНТИЧНЫЙ MD5 hash
(проверял в Delphi5)
и из umd5(1).zip
Edit1.Text := MD5('1234567890');
и из umd5(2).zip
Edit2.Text := MD5DigestToStr( MD5String('1234567890'));
p.s. umd5(2).zip выдаёт в верхнем регистре...

[Viteef]

1.

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
begin
s:='100';
edit1.Text:=md5(s);
end;

для строки 100 результат 62518aa5a9a4cd21eb54b93bc1ec351f (проект и exe в аттаче)

2.

PHP код:

<?
echo md5($_GET['s']);
?>

Результат - f899139df5e1059396431415e770c6dd
http://incyberteam.ru/md5.php?s=100

[Serge_Bliznykov]

у меня всё в порядке
проект и EXEшник прикладываю...

подозреваю, что это Дельфи2009 выпендрюкивается
(насколько мне известно, 2009 версия первая с полной поддержкой unicode. возможно, это и приводит к искажениям ;( )

на другую версию (младше) Дельфи есть возможность перейти?

Добавлено
Ваш exe-шник работал действительно так, как Вы описали.
перекомпилировал ваш проект (только меня смутило вот в program Project1; вот это

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  umd5 in '..\umd5.pas';

у себя поправил.
и, если у Вас umd5 лежит в вышележащем каталоге, то значит всё нормально...
После перекомпиляции всё заработало...

[Viteef]

на другую версию (младше) Дельфи есть возможность перейти?

Увы...

подозреваю, что это Дельфи2009 выпендрюкивается
(насколько мне известно, 2009 версия первая с полной поддержкой unicode. возможно, это и приводит к искажениям ;( )

Эта версия подтврждается здесь. Спасибо. В принципе все понятно, буду искать.

[Serge_Bliznykov]

так.
вопрос — у Вас это сильно "горит" ? срочность большая? Я бы мог на праздники поковыряться...

и второе. я практически уверен, что в Delphi 2009 либо есть директива компилятора, которая указывает считать строки String обычными, не unicode,
либо банально заменить string на AnsiString (надеюсь, что AnsiString не стала уникодной!)

удачи.

[Viteef]

Именно так string -> AnsiString.

Прикрепляю поправленный umd5.pas для Delphi 2009

[Viteef]

да, umd5.pas у меня на уровень выше

[Viteef]

Тем не менее один из модулей подклюкивал на длинных строках

[Serge_Bliznykov]

Тем не менее один из модулей подклюкивал на длинных строках

Точно!! подверждаю. то же самое!
Причём, глючит тот, который umd5(1).zip (MD5(...) )
второй, который MD5DigestToStr( MD5String(..) работает корректно!