scrypt-work-factor-benchmark.pl

use strict;
use warnings;
use Benchmark;
use Crypt::ScryptKDF qw(scrypt_hash random_bytes);

my $types = {
    map {
        my $v = $_;
        $v => sub {
            scrypt_hash("s3kr1t_password", random_bytes(), 2**$v, 8, 1, 32);
        }
    } (7..15)
};

print "Scrypt work factor:\n";
Benchmark::cmpthese(500, $types);