diff options
Diffstat (limited to 'Entropy.hs')
| -rw-r--r-- | Entropy.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -13,12 +13,12 @@ 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. -passwordEntropy :: Password -> UserDict -> Entropy UnknownPassword -passwordEntropy (Password p) userdict = Entropy $ floor $ +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. -nameEntropy :: Name -> Entropy UnknownName -nameEntropy (Name n) = Entropy $ floor $ +calcNameEntropy :: Name -> Entropy UnknownName +calcNameEntropy (Name n) = Entropy $ floor $ estimate (B.toString n) [] |