From 5ab710279751bbfc751d1921dc078d6ef1ee1a2a Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 22 Feb 2023 09:35:35 +0100 Subject: [PATCH] chore(lms): improve readability for lms passwords --- src/Handler/Utils/LMS.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Utils/LMS.hs b/src/Handler/Utils/LMS.hs index dcb92cdf0..3521d431a 100644 --- a/src/Handler/Utils/LMS.hs +++ b/src/Handler/Utils/LMS.hs @@ -127,7 +127,7 @@ maxLmsUserIdentRetries = 27 randomText :: MonadIO m => String -> Int -> m Text randomText extra n = fmap pack . evalRandTIO . replicateM n $ uniform range where - num_letters = ['0'..'9'] ++ ['a'..'z'] + num_letters = ['2'..'9'] ++ ['a'..'z'] \\ ['l'] range = extra ++ num_letters --TODO: consider using package elocrypt for user-friendly passwords here, licence requires mentioning of author, etc. though @@ -150,4 +150,4 @@ randomLMSIdentBut banList = untilJustMaxM maxLmsUserIdentRetries getIdentOk randomLMSpw :: MonadIO m => m Text randomLMSpw = randomText extra lengthPassword where - extra = "+*:=!?#&" -- you cannot distinguish ;: and ., in printed letters + extra = "+=!?" -- you cannot distinguish ;: and ., in printed letters