From c0529b4c5858300c0bd9c94fd35540e1f105dfd6 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Sun, 31 Jul 2016 15:58:56 +0100
Subject: add support for sha256/sha512 and default to sha512

---
 perl-install/authentication.pm | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

(limited to 'perl-install/authentication.pm')

diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 65d9950fa..6c9bea33d 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -272,6 +272,8 @@ sub get() {
     my $authentication = {
 	blowfish => to_bool($system_auth =~ /\$2a\$/),
 	md5      => to_bool($system_auth =~ /md5/), 
+	sha256   => to_bool($system_auth =~ /sha256/),
+	sha512   => to_bool($system_auth =~ /sha512/),
 	shadow   => to_bool($system_auth =~ /shadow/),
     };
 
@@ -810,9 +812,23 @@ sub user_crypted_passwd {
 	require utf8;
 	utf8::encode($u->{password}); #- we don't want perl to do "smart" things in crypt()
 
-	crypt($u->{password}, 
-	      !$authentication || $authentication->{blowfish} ? '$2a$08$' . salt(60) :
-	      $authentication->{md5} ? '$1$' . salt(8) : salt(2));
+	# Default to sha512
+	$authentication = { sha512 => 1 } unless $authentication;
+
+	my $salt;
+	if ($authentication->{blowfish}) {
+	    $salt = '$2a$08$' . salt(60);
+	} elsif ($authentication->{md5}) {
+	    $salt = '$1$' . salt(8);
+	} elsif ($authentication->{sha256}) {
+	    $salt = '$5$' . salt(32);
+	} elsif ($authentication->{sha512}) {
+	    $salt = '$6$' . salt(64);
+	} else {
+	    $salt = salt(2);
+	}
+
+	crypt($u->{password}, $salt);
     } else {
 	$u->{pw} || '';
     }
-- 
cgit v1.2.1