MD5 Dosya Kıyımlama - PHP md5_file fonksiyonu ile maç Delphi çıktı

2 Cevap php

Şu anda Delphi 7 md5 karma için bu kodu kullanıyorum:

function MD5(const fileName : string) : string;
var
  idmd5 : TIdHashMessageDigest5;
  fs : TFileStream;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
  try
    result := idmd5.AsHex(idmd5.HashValue(fs)) ;
  finally
    fs.Free;
    idmd5.Free;
  end;
end;

ve ben çıktılarının PHP fonksiyonu olarak aynı almak için çalışıyorum

md5_file()

Etrafa bir göz yaşadım ve ortak sorunları kodlama ve sıfır ile dolgu değil gibi görünüyor, ama bu birini yapmak için nasıl bilmiyorum TIdHashMessageDigest5 kullanarak veya zaten işlevinde yapılır mı.

Herkes bunun için kullanmak herhangi bir fonksiyonları vardır eğer çok takdir ediyorum!

Veya Indy maç için php işlevini değiştirme muhtemelen bir yolu

2 Cevap

Ile sonuçları karşılaştırın:

Hepsi bir ama toplamı ne olduğunu kabul ederseniz, o zaman nerede kazmak için biliyorum.

Eh, bir Delphi sürüm numarasını vermedi, ama D2007 ya da eğer daha sonra this article. kontrol etmek isteyebilirsiniz

etiketler