1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  aDay, aMonth, aYear: Integer;
  Temp: String;
const
  Hash = '21D0E9077B6CF51BC68C2D79DB8D8078';
begin
  for aYear := 1930 to 1996 do
    for aMonth := 1 to 12 do
      for aDay := 1 to 31 do
      begin
        Temp := Format('%.2d.%.2d.%d', [aDay, aMonth, aYear]);

        if MD5Print(MD5String(Temp)) = AnsiLowerCase(Hash) then
          ShowMessage('Sie ist am ' + Temp + ' geboren');
      end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

program WGtwo;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  md5;

{
  :: Delphi-Forum.de Adventsgewinnspiel 2006 2. Woche
  :: Lösung von EvilSoft.de

  Die Zahlen und Buchstaben sind nichts anderes wie ein "Hash"!
  Da das Delphi-Forum auf dem phpBB-Board basiert,
  und eh' die meisten dieser Scripte die selbe
  Methode benutzen, kommt man leicht darauf das,
  es ein MD5 Hash ist!
  Ich habe es so gelöst, das ich jede Datum-Kombination (Standart-Format (xx.xx.19xx)),
  generiert habe, und es in Hash Form mit dem MD5-Hash aus dem Delphi-Forum
  verglichen habe!
}

function CrackMD5(hash:String):String;
var
  tag, monat, jahr: Integer;
  stag, smonat, sjahr, temp: String;
begin
  Result := 'Nicht gefunden!';
  for jahr := 1927 to 1997 do
  begin
    sjahr := IntToStr(jahr);
    for monat := 1 to 12 do
    begin
      smonat := IntToStr(monat);
      if length(smonat) = 1 then
        smonat := '0'+smonat;
      for tag := 1 to 31 do
      begin
        stag := IntToStr(tag);
        if length(stag) = 1 then
          stag := '0'+stag;
        temp := stag+'.'+smonat+'.'+sjahr;
        if UpperCase(MD5Print(MD5String(temp))) = hash then
        begin
          Result := temp;
          exit;
        end;
      end;
    end;
  end;
end;

begin
  WriteLN('Geburtsdatum: '+CrackMD5('21D0E9077B6CF51BC68C2D79DB8D8078'));
  ReadLN;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

<?php
$find = '21d0e9077b6cf51bc68c2d79db8d8078';
for($i=1;$i<=31;$i++){
  for($i2=1;$i2<=12;$i2++){
    for($i3=1916;$i3<=2006;$i3++){
      $datum = date('d.m.Y',mktime(0, 0, 0, $i2, $i, $i3));
      $mdhash = md5($datum);
      if($find == $mdhash){
        echo $find.''.$mdhash.''.$datum;
        die;
      }
    }
  }
}
?>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
  function inttostrN(a, count: integer): string;
  begin
    result := inttostr(a);
    while length(result) < count do
      result := '0' + result;
  end;
const
  hash = '21D0E9077B6CF51BC68C2D79DB8D8078';
var
  d, m, y: integer;
begin
  for y := 2000 downto 1900 do
    for m := 12 downto 1 do
      for d := 31 downto 1 do
        if uppercase(MD5Print(MD5String(inttostrN(d, 2) + '.' + inttostrN(m, 2) + '.' + inttostrN(y, 4)))) = hash then
        begin
          edit2.text := inttostrN(d, 2) + '.' + inttostrN(m, 2) + '.' + inttostrN(y, 4);
          exit;
        end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

<?php
  $cmp = strtolower("21D0E9077B6CF51BC68C2D79DB8D8078");
  for ($y = 1920; $y<=1997; $y++){
    for ($m = 1; $m<=12; $m++){
      if ($m<10) $mstr =".0".$m.".".$y;
      else $mstr =".".$m.".".$y;
      for ($d = 1; $d<=31; $d++){
        if ($d<10) $str ="0".$d.$mstr;
        else $str =$d.$mstr;
        if (md5($str) == $cmp) {
          echo $str;
        }
      }
    }
  }
?>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

var
  Form1: TForm1;
  datum, hash: string;
  day, month, year: integer;

implementation

{$R *.dfm}

function MakeHash: string;
begin
   result := md5print(md5string(datum));
end;

//generiert das Datum aus day, month und year
function GenerateDate: string;
begin
  result := '';

  //Tag
  if (Day > 9) then
    result := result + inttostr(Day)
  else
    result := result + '0' + inttostr(Day);

  //Punkt zwischen Tag und Monat
  result := result + '.';



  //Monat
  if (Month > 9) then
    result := result + inttostr(Month)
  else
    result := result + '0' + inttostr(Month);

  //Punkt zwischen Monat und Jahr

  result := result + '.';

  //Jahr
  result := result + inttostr(Year);
end;

//erhöht day, month und year
procedure NextDay;
begin
  if (Day < 31) then
  begin
    inc(Day);
  end
  else begin
    day := 1;
    if (Month < 12) then
    begin
      inc(Month);
    end
    else begin
      Month := 1;
      inc(Year);
    end;
  end;
end;


function IsCorrectDate: boolean;
begin
  if (UpperCase(Hash) = '21D0E9077B6CF51BC68C2D79DB8D8078') then
    result := true
  else
    result := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Day := 1;
Month := 1;
Year := 1920;
Hash := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat
    NextDay;
    Datum := GenerateDate;
    Memo1.Lines.Add('Datum: '+Datum);
    Hash := MakeHash;
    Memo1.Lines.Add('Hash: '+Hash);
    Memo1.Lines.Add('');
  until IsCorrectDate;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var jahr, monat, tag, i  : Integer;
begin
for jahr := 1930 to 1996 do
 for monat := 1 to 12 do
  for tag := 1 to 31 do
 if AnsiLowerCase(MD5Print(MD5String(inttostr(tag)+'.0'+inttostr(monat)+'.'+inttostr(jahr))))
    = '21d0e9077b6cf51bc68c2d79db8d8078' then
  Label1.Caption := inttostr(tag)+'.0'+inttostr(monat)+'.'+inttostr(jahr)
   else Label1.Caption := 'NOPE!';
end;