Data::Password::Top10000 - Check if a given string is in the Top 10000 list of common passwords
version 1.0.1
use v5.24;
use Data::Password::Top10000 (is_in_top10000);
my $password = '12345';
if ( is_in_top10000( $password ) ) {
say 'please use an other password';
}At https://github.com/danielmiessler/SecLists a "security tester's companion" is curated. Part of this companion is a list of the Top 10000 used passwords. It is good practice to disallow users to use those passwords.
Checks
The distribution is contained in a Git repository, so simply clone the repository
$ git clone https://github.com/perlservices/Data-Password-Top10000/issues.git
and change into the newly-created directory.
$ cd issues
The project uses Dist::Zilla to
build the distribution, hence this will need to be installed before
continuing:
$ cpanm Dist::Zilla
To install the required prequisite packages, run the following set of commands:
$ dzil authordeps --missing | cpanm
$ dzil listdeps --author --missing | cpanm
The distribution can be tested like so:
$ dzil test
To run the full set of tests (including author and release-process tests),
add the --author and --release options:
$ dzil test --author --release
Renee Baecker reneeb@cpan.org
This software is Copyright (c) 2022 by Renee Baecker.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)