Help for this page

Select Code to Download


  1. or download this
    use Digest::MD5 qw(md5_hex);
    use Math::Prime::Util ':all';
    ...
    $unique_offering = todigitstring(fromdigits(md5_hex($harvest), 16), 36
    +);
    
  2. or download this
    $unique_offering = sub {
        require Digest::MD5;
    ...
               Math::Prime::Util->fromdigits(
               Digest::MD5->md5_hex($harvest), 16), 36);
        };