Całkiem niedawno postanowiłem zrobić malutkie narzędzie on-line do liczenia sum kontrolnych. Ktoś powie że pełno już takich narzędzi zrobiono. I faktycznie, ale jeśli bliżej się przyjrzeć, to te działające on-line z reguł ograniczają się tylko do md5 lub bardziej popularnych. Ja poszedłem o krok dalej – poznajcie checksum.me!

Czym jest checksum.me? Prostym serwisem obliczającym w locie sumy kontrolne wybranego ciągu znaków. Wszystko dzieje się bez przeładowania strony za pomocą techniki AJAX. Głównym wykonawcą jest funkcją hash języka PHP. I to w zasadzie już wszystko. Prototyp działał już po kilku godzinach a całość, wraz z rejestracją domeny i końcowymi poprawkami zawarłem w jednym dniu z hakiem.

Dzień pierwszy – etapy rozwoju

Drugiego dnia dodałem jedynie kilka drobnostek i wprowadziłem drobne poprawki do całości. To co można by dodać w przyszłości to ew. sprawdzanie sum kontrolnych plików.

Dzień drugi – ostatni

Oczywiście zdaje sobie sprawę z tego, iż grupa docelowa odbiorców tej mini strony jest dość wąska. Nie mniej, liczę że znajdą się osoby którym się przyda .

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.