diff options
Diffstat (limited to 'fripost-mkpass.pl')
-rwxr-xr-x | fripost-mkpass.pl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/fripost-mkpass.pl b/fripost-mkpass.pl deleted file mode 100755 index 83a58ac..0000000 --- a/fripost-mkpass.pl +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl - -use 5.010_000; -use warnings; -use strict; - -=head1 NAME - -fripost-mkpass.pl - Create a random new password - -=cut - -use FindBin qw($Bin); -use lib "$Bin/lib"; - -our $VERSION = '0.01'; - -use Fripost::Password; -use String::MkPasswd qw/mkpasswd/; - -# Generate password -my $password = $ARGV[0]; - -$password //= mkpasswd( - -length => 20, - -minnum => 5, - -minspecial => 3 -); - -# Show the information that will be inserted -say "Password: $password"; -say "Salted MD5: " . smd5($password); - -=head1 AUTHOR - -Stefan Kangas C<< <skangas at skangas.se> >> - -=head1 COPYRIGHT - -Copyright 2010 Stefan Kangas. - -=head1 LICENSE - -This program is free software; you can redistribute it and/or modify it -under the same terms as perl itself. - -=cut |