MD5 (z ang. Message-Digest algorithm 5 – Skrót wiadomości wersja 5) – algorytm z dziedziny kryptografii. Jest to popularna kryptograficzna funkcja skrótu, która z dowolnego ciągu danych generuje 128-bitowy skrót.

Źródło: http://pl.wikipedia.org/wiki/MD5

Język programowania jakim jest Delphi, mimo swojej potęgi nie posiada wbudowanych funkcji do obliczania sum kontrolnych, nawet tak popularnych jak MD5. Nie będę pokazywał jak stworzyć implementację algorytmu MD5 w object pascalu, chociaż jest to możliwe, a zademonstruję jak policzyć sumę kontrolną dowolnego łańcucha z wykorzystaniem pakietu DCPcrypt.

Pakiet DCPcrypt posiada implementację dla bardzo dużej ilości algorytmów mieszających jak i szyfrujących. W tym wpisie zajmiemy się jego niewielką cząstką w postaci sumy MD5. Pierwsze co musimy zrobić to pobrać ów pakiet, można to zrobić na stronie autora kodu, bądź bezpośrednio tutaj. DCPcrypt można zainstalować jako komponent w środowisku Delphi, nie mniej, my ograniczymy się do wypakowania plików i dodania w konfiguracji środowiska ścieżki przeszukiwania bibliotek (Tools > Options > Library – Win32 > Library path). Operację tę przeprowadzamy dla głównego folderu pakietu oraz podfolderu Hashes.

Po wstępnej konfiguracji możemy przejść do napisania pożądanej funkcji. W pierwszej kolejności dodajemy do listy używanych bibliotek (uses) moduł DCPmd5.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DCPmd5;

Kolejno deklarujemy funkcję o nazwie MD5, która przyjmuje 1 parametr wejściowy w postaci ciągu znaków, oraz takowy zwraca – jego sumę kontrolną.

function MD5(const S: String): String;
var
  i: Byte;
  digest: array[0..15] of Byte;
begin

  with TDCP_md5.Create(nil) do
  begin
    Init;
    Update(S[1], Length(S));
    Final(digest);
    Free;
  end;

  Result := '';
  for i := 0 to Length(digest)-1 do
    Result := Result + IntToHex(digest[i], 2);
  Result := LowerCase(Result);

end;

Na koniec kilka słów objaśnienia powyższego kodu. Po stworzeniu instancji klasy TDCP_md5, następuje jej inicjacja metodą Init. Metoda Update może być wywoływana dowolną ilość razy i przyjmuje jako parametry bufor ciągu bajtów z którego generowana jest funkcja skrótu, oraz jego długość. W naszym przypadku, podajemy początek ciągu znaków ([1] jest wymagane gdyż zerowym elementem tablicy jakim jest String jest jego długość, co powodowało by błędne obliczenia). Jeśli obliczalibyśmy sumę kontrolną pliku, dobrym zwyczajem jest, aby nie obciążać pamięci, odczytywać fragmentami badany plik oraz obliczać część sumy przy pomocy metody Update. Całościowe odczytanie pliku wymagało by zadeklarowania tyle pamięci RAM ile zajmuje dany plik.

Metoda Final kończy obliczenia i zrzuca sumę w postaci tablicy bajtów. Końcowa pętla przekształca ją do postaci w jakiej jest zwykle używana (np: 0cc1099409f2effa3e09912cda637023 dla ciągu wejściowego bbproject.net).

Jeśli zajedzie potrzeba, powyższy kod bardzo łatwo możemy zmodyfikować na potrzeby choćby sumy SHA-1, lub dowolnej innej obsługiwanej przez DCPcrypt. Dlaczego użyłem akurat tego pakietu, podczas gdy w internecie łatwo znaleźć dziesiątki innych, gotowych implementacji? Powodów jest kilka, po pierwsze szybkość obliczeń, z moich testów wynika iż implementacja wykonana w pakiecie DCPcrypt najszybciej oblicza sumy kontrolne. Drugim powodem jest możliwość cząstkowego obliczania sumy kontrolnej (przydatne przy bardzo dużych plikach). Ilość obsługiwanych algorytmów też nie pozostała bez znaczenia.