diff options
Diffstat (limited to 'Entropy.hs')
| -rw-r--r-- | Entropy.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Entropy.hs b/Entropy.hs new file mode 100644 index 0000000..198c798 --- /dev/null +++ b/Entropy.hs @@ -0,0 +1,24 @@ +{- Copyright 2016 Joey Hess <id@joeyh.name> + - + - Licensed under the GNU AGPL version 3 or higher. + -} + +module Entropy where + +import Types +import Types.Cost +import qualified Data.ByteString.UTF8 as B +import Text.Password.Strength (estimate, UserDict) + +-- | Calculation of the entropy of a password. +-- Uses zxcvbn so takes word lists, and other entropy weakening problems +-- into account. +calcPasswordEntropy :: Password -> UserDict -> Entropy UnknownPassword +calcPasswordEntropy (Password p) userdict = Entropy $ floor $ + estimate (B.toString p) userdict + +-- | Naive calculation of the entropy of a name. +-- Assumes that the attacker is not targeting a particular list of names. +calcNameEntropy :: Name -> Entropy UnknownName +calcNameEntropy (Name n) = Entropy $ floor $ + estimate (B.toString n) [] |