разный мд5

[aesoem]

Доброго дня, пытаюсь получить хеш строки. Хеш полученный в delphi отличается от хеша полученного в php.

Пример:
Если зашифровать единицу ("1") и в Delphi и в PHP хеши совпадают


Если зашифровать более 2х символов ("11") и в Delphi и в PHP хеши НЕ совпадают.


Как я их получаю, думаю нет смысла код выкладывать, в Delphi PAS найденый в интернете

{********************************** ********************************}
{ MD5 Hashsum Evaluation Unit For Borland Delphi }
{ }
{ Copyright © 2002 by Dimka Maslov }
{ E-mail: mainbox@endimus.com, }
{ Web-site: http://www.endimus.com }
{ }
{ Derived from the RSA Data Security, Inc. }
{ MD5 Message-Digest Algorithm described in RFC 1321 }
{ http://www.faqs.org/rfcs/rfc1321.html }
{********************************** ********************************}

на а в php md5('11');

[Artsiom]

Хм, действительно, а с чем это может быть связано?
Текст: Edit1
На делфях: 6CE660BAC8A0C5EF805D3F907FC3C5B3
1 сайт: 7318efc576d8c24b47540d5acfd58e5a
2 сайт: 3c4a359ade745c27537e3b08672425cb

Упс, а не, это я кривой, делфи: 7318efc576d8c24b47540d5acfd58e5a
Значит сайт 2 врёт, проблемы с кодировками?

[Serge_Bliznykov]

у меня в проекте Delphi
для 11

md5=6512BD43D9CAA6E02C990B0A82652DCA

php

<?php
echo md5('11');
?>

6512bd43d9caa6e02c990b0a82652dca

проект на дельфи прикрепляю.
md5_project.rar
md5_var1_EXE.rar


для текста Edit1
Delphi: 7318efc576d8c24b47540d5acfd58e5a
php: 7318efc576d8c24b47540d5acfd58e5a

[northener]

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

Доброго дня, пытаюсь получить хеш строки. Хеш полученный в delphi отличается от хеша полученного в php.

Пример:
Если зашифровать единицу ("1") и в Delphi и в PHP хеши совпадают


Если зашифровать более 2х символов ("11") и в Delphi и в PHP хеши НЕ совпадают.


Как я их получаю, думаю нет смысла код выкладывать, в Delphi PAS найденый в интернете


на а в php md5('11');

Как ты их получаешь действительно всё ясно. Вот только код Димки Маслова был написан в 2002 году, когда Дельфи даже ещё и не думал переходить на Юникод.

[aesoem]

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

у меня в проекте Delphi
для 11

md5=6512BD43D9CAA6E02C990B0A82652DCA

php

<?php
echo md5('11');
?>

6512bd43d9caa6e02c990b0a82652dca

проект на дельфи прикрепляю.
Вложение 84830
Вложение 84831


для текста Edit1
Delphi: 7318efc576d8c24b47540d5acfd58e5a
php: 7318efc576d8c24b47540d5acfd58e5a

Откомпилированный вами ЕХЕ показывает хеш верно, совпадает и на сайте и в делфи. Но стоит мне заново откомпилировать ваш проект без изменений у себя, хеши не совпадают...

[Alex11223]

Дельфи-то какая?

[aesoem]

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

Дельфи-то какая?

Delphi 10.1 Berlin

[Serge_Bliznykov]

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

Дельфи-то какая?

похоже, что > 2009 (скорее всего - современная XE какая-то)
там все строки (String) - Unicode
скорее всего northener прав, проблема в unicode.

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

Но стоит мне заново откомпилировать ваш проект без изменений у себя, хеши не совпадают...

заменяйте в модуле вычисления все переменные типа String на тип AnsiString.

ну или просто возьмите более современный код, подходящий для вашей версии Delphi.

А вот тема на нашем форуме Delphi XE2 и MD5

[aesoem]

Serge_Bliznykov, спасибо, помогло.

[ZuBy]

// uses System.Hash
result := THashMD5.GetHashString('11');