Added "encrypt" and "sign" keys to be generated.

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index c042540..90d1699 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -255,9 +255,11 @@ importAndRefresh root cmn = do
                                                          , initializer = NoCreate
                                                          , transforms = [] }
                                 _          -> strm { spill = KF_Match "tor" })
-                , ( Generate 1 (GenRSA (1024 `div` 8)), strm { spill = KF_Match "ipsec" })
+                , ( Generate 1 (GenRSA (2048 `div` 8)), strm { spill = KF_Match "ipsec" })
                 , ( ArgFile sshcpath, (peminfo 2048 "ssh-client") )
                 , ( ArgFile sshspath, (peminfo 2048 "ssh-server") )
+                , ( Generate 2 (GenRSA (4096 `div` 8)), strm { spill = KF_Match "encrypt" })
+                , ( Generate 3 (GenRSA (4096 `div` 8)), strm { spill = KF_Match "sign" })
                 ]
              , opPassphrases = withAgent $ pwds ++ do pfd <- maybeToList passfd
                                                       return $ PassphraseSpec Nothing Nothing pfd