view release on metacpan or  search on metacpan

lib/Authen/Passphrase/SaltedSHA512.pm  view on Meta::CPAN

        # 64 bytes is 512 bits, or 128 hex characters.
        my $salt = random_bytes_hex(NUM_BYTES);

        # We're generating our own salt.  Don't accept others.
        delete $args{$_} for qw( salt salt_hash );

        $args{salt_hex} = $salt;
    }

    # Let the super-class instantiate and handle our preprocessed args.
    return $class->SUPER::new(%args);
}

sub generate_salted_sha512 {
    my $password = shift;
    my $gen = __PACKAGE__->new( passphrase => $password );
    return ( $gen->salt_hex, $gen->hash_hex );
}

sub validate_salted_sha512 {
    my ( $password, $salt_hex, $hash_hex ) = @_;