Sprawdzanie Sumy Kontrolnej

[fervi (Skovv)]

Witajcie!

 

Robię program coś w stylu Steama, i w moim programie musi być zamieszczona suma kontrolna MD5 i musi się zgadzać z plikiem, ale nie mam pojęcia jak zrobić tą sumę kontrolną, ma ktoś przykład programu sprawdzającego sumę kontrolną i porównywającą?

 

W skrócie

Program ma porównać sumę kontrolną pliku ;p

 

Fervi

[gnysek]

wystarczy DLL do MD5 :) Lub własna funkcja.

 

Wersja do Delphi 7:

 

function GetCheckSum(FileName: string): DWORD;
var
  F: file of DWORD;
  P: Pointer;
  Fsize: DWORD;
  Buffer: array [0..500] of DWORD;
begin
  FileMode := 0;
  AssignFile(F, FileName);
  Reset(F);
  Seek(F, FileSize(F) div 2);
  Fsize := FileSize(F) - 1 - FilePos(F);
  if Fsize > 500 then Fsize := 500;
  BlockRead(F, Buffer, Fsize);
  Close(F);
  P := @Buffer;
  asm
     xor eax, eax
     xor ecx, ecx
     mov edi , p
     @again:
       add eax, [edi + 4*ecx]
       inc ecx
       cmp ecx, fsize
     jl @again
     mov @result, eax
   end;
end;

 

a zeby zobaczyc MD5

 

ShowMessage(IntToStr(GetCheckSum('C:/Pelna/Sciezka/do/pliku.exe')));