Modernize the Bcrypt demands.
authorSteinar H. Gunderson <sgunderson@bigfoot.com>
Fri, 6 Jul 2018 12:22:56 +0000 (14:22 +0200)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Fri, 6 Jul 2018 12:22:56 +0000 (14:22 +0200)
perl/mkpasswd.pl

index 5d6aac3872b8cef13d342c0af71e5bb01fe95827..44db3ed93bfd24745b0a8bb3d1e08210928ea5f0 100755 (executable)
@@ -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.
-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";