my $md5 = Digest::MD5->new;
   $md5->add($key);
   $md5->add( chr($_) ) for length($key) .. 255;
   my $tfkey = $md5->digest();