diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -8,7 +8,6 @@ module Types where import Types.Cost -import Entropy import qualified Data.ByteString as B import Data.String @@ -42,22 +41,10 @@ type ShardNum = Int newtype Password = Password B.ByteString deriving (IsString) --- | Naive calculation of the entropy of a password. --- Does not take common passwords and password generation patterns into --- account, so this is an overestimation of how hard a password --- is to crack. -passwordEntropy :: Password -> Entropy UnknownPassword -passwordEntropy (Password p) = Entropy $ floor $ totalEntropy p - -- | A name associated with a key stored in keysafe. newtype Name = Name B.ByteString deriving (Show) --- | Very 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 $ totalEntropy n - -- | The type of the key that is stored in keysafe. newtype KeyType = KeyType B.ByteString deriving (Show) |