Modernize the Bcrypt demands.

[pr0n] / perl / mkpasswd.pl

diff --git a/perl/mkpasswd.pl b/perl/mkpasswd.pl
index 5d6aac3872b8cef13d342c0af71e5bb01fe95827..44db3ed93bfd24745b0a8bb3d1e08210928ea5f0 100755 (executable)
--- a/perl/mkpasswd.pl
+++ b/perl/mkpasswd.pl
@@ -19,6 +19,6 @@ print STDERR "\n";
 Term::ReadKey::ReadMode(0);
 
 my $salt = Sesse::pr0n::Common::get_pseudorandom_bytes(16);  # Doesn't need to be cryptographically secur.
 Term::ReadKey::ReadMode(0);
 
 my $salt = Sesse::pr0n::Common::get_pseudorandom_bytes(16);  # Doesn't need to be cryptographically secur.

-my $hash = "\$2a\$07\$" . Crypt::Eksblowfish::Bcrypt::en_base64($salt);
+my $hash = "\$2a\$08\$" . Crypt::Eksblowfish::Bcrypt::en_base64($salt);

 print Crypt::Eksblowfish::Bcrypt::bcrypt($pass, $hash), "\n";
 
 print Crypt::Eksblowfish::Bcrypt::bcrypt($pass, $hash), "\n";