diff options
Diffstat (limited to 'Encryption.hs')
-rw-r--r-- | Encryption.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Encryption.hs b/Encryption.hs index 98afdfd..23da288 100644 --- a/Encryption.hs +++ b/Encryption.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE OverloadedStrings, MultiParamTypeClasses #-} module Encryption where @@ -19,6 +19,9 @@ data KeyEncryptionKey = KeyEncryptionKey (Cost DecryptionOp) (CostCalc BruteForceOp UnknownPassword) +instance Bruteforceable KeyEncryptionKey UnknownPassword where + getBruteCostCalc (KeyEncryptionKey _ _ c) = c + -- | The ExpensiveHash of the Password is combined with a -- RandomObstacle to form the AES key. Combination method is logical OR. genKeyEncryptionKey :: Tunables -> KeyIdent -> Password -> KeyEncryptionKey |