diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 20 |
1 files changed, 17 insertions, 3 deletions
@@ -1,8 +1,22 @@ -module Main where - {-# LANGUAGE OverloadedStrings #-} +module Main where + import Types +import Tunables import Encryption +import Shard -main = print $ genKeyEncryptionKey (Password "foo") (Name "bar") +main :: IO () +main = do + kek <- genKeyEncryptionKey tunables name password + let esk = encrypt kek secretkey + let sis = shardIdents tunables name keyid + shards <- genShards esk tunables + print $ zip (getIdents sis) shards + where + password = Password "foo" + name = Name "bar" + tunables = testModeTunables -- defaultTunables + keyid = KeyId gpgKey "foobar" + secretkey = SecretKey "this is a gpg private key" |