Better suggestion when user is having difficulty thinking of a strong enough password.

This commit was sponsored by Ignacio on Patreon.

1 files changed, 6 insertions, 1 deletions

diff --git a/keysafe.hs b/keysafe.hs
index 738274f..cbbbb86 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -170,7 +170,12 @@ backup cmdline ui tunables distinguisher (secretkeysource, secretkey) = do
 		let mincost = Dollars 100000
 		if crackcost < mincost
 			then do
-				showError ui $ "Weak password! It would cost only " ++ show crackcost ++ " to crack the password. Please think of a better one. More words would be good.."
+				showError ui $ unlines
+					[ "Weak password! It would cost only " ++ show crackcost ++ " to crack the password."
+					, "Please think of a better one."
+					, ""
+					, "Suggestion: Pick 3 or 4 unrelated words for a strong password, like \"correct horse battery staple\""
+					]
 				promptpassword name
 			else do
 				(thisyear, _, _) <- toGregorian . utctDay