[help] Delphi 6

[Ser Frood]

жжесть MD5Decode MD5Encode

не то...

 

[bork1234]

жжесть MD5Decode MD5Encode

не то...

Что именно не то? Функция

function MD5File(const FileName: string): TMD5Digest;

возвращает неверное значение для файла?

 

[HeavyHell]

жжесть MD5Decode MD5Encode

не то...

в чем жесть, и что не так? Я не юзал сие творенье но на вскидку похоже на правду
Просвети меня неразумного

 

[bork1234]

Поскольку автор топика где-то потерялся, то специально поставил delphi и проверил на одном файлике. Контрольная сумма, создаваемая функциями mp5.pas, совпала с той, что возвращает функция php md5_file().

Код используемых тестов прилагаю (если кому будет интересно). Посмотреть вложение test_md5.rar
В приложеном:

index.php // код php
Project1.dpr // проект delphi,  которым тестировал
md5.pas // собственно юнит md5
1.txt // файл на котором тестировал

Project1.exe // на всякий случай приложил 
             // скомпилированный проект на delphi 
             // (сорри за размер, не чистил :ah: )