show brute force cost estimate

1 files changed, 5 insertions, 1 deletions

diff --git a/keysafe.hs b/keysafe.hs
index 112ac54..d73ff61 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -10,6 +10,7 @@ module Main where
 import Types
 import Tunables
 import Encryption
+import Cost
 import Shard
 import Storage
 import Storage.LocalFiles
@@ -22,12 +23,15 @@ main = do
 storedemo :: IO ()
 storedemo = do
 	kek <- genKeyEncryptionKey tunables name password
+	putStrLn "Very rough estimate of cost to brute-force the password:"
+	print $ estimateAttack spotAWS $ estimateBruteforceOf kek
+		(passwordEntropy password)
 	let esk = encrypt kek secretkey
 	let sis = shardIdents tunables name keyid
 	shards <- genShards esk tunables
 	print =<< mapM (uncurry (storeShard localFiles)) (zip (getIdents sis) shards)
   where
-	password = Password "foo"
+	password = Password "correct horse battery staple"
 	name = Name "bar"
 	tunables = testModeTunables -- defaultTunables
 	keyid = KeyId gpgKey "foobar"