blob: 198c79899ab5d2cf753ef17f3b5b211c2fddb9da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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) []
|
