#!/usr/bin/perl
# quick 'n' dirty script that generates lookup tables of md5 hashed passwords as hash data structure (no salts! memory expensive!) use strict;
use warnings;
use Digest;
use Storable;
my %lut;
for my $pw ('aaaaa' .. 'zzzzz') {
my $ctx = Digest->new('MD5');
$lut{$pw} = $ctx->add($pw)->hexdigest();
}
store \%lut, 'lookup.tbl';