Перловый крякер md5

Скрипт на Perl для брутфорса MD5 хэшей:

#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);
# ... (полный код скрипта доступен в архиве)