more cleanup of module kiki.hs

1 files changed, 20 insertions, 1 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 532acb8..cbbbf33 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -298,6 +298,20 @@ instance ASN1Object PKCS8_RSAPublicKey where
     fromASN1 _ =
         Left "fromASN1: RSAPublicKey: unexpected format"
 
+{-
+RSAPrivateKey ::= SEQUENCE {
+  version           Version,
+  modulus           INTEGER,  -- n
+  publicExponent    INTEGER,  -- e
+  privateExponent   INTEGER,  -- d
+  prime1            INTEGER,  -- p
+  prime2            INTEGER,  -- q
+  exponent1         INTEGER,  -- d mod (p1) -- ?? d mod (p-1)
+  exponent2         INTEGER,  -- d mod (q-1)
+  coefficient       INTEGER,  -- (inverse of q) mod p
+  otherPrimeInfos   OtherPrimeInfos OPTIONAL
+  }
+-}
 data RSAPrivateKey = RSAPrivateKey
     { rsaN :: MPI
     , rsaE :: MPI
@@ -2112,7 +2126,12 @@ merge db filename (Message ps) = merge_ db filename qs
         updateTrust _                    _   (pre,t) p = (pre,Map.insert filename p t) -- secret
 
 
-
+{-
+onionName :: KeyData -> (SockAddr,L.ByteString)
+onionName kd = (addr,name)
+ where
+    (addr,(name:_,_)) = getHostnames kd
+-}
 
 merge_ :: KeyDB -> FilePath -> [(Packet,Packet,(Packet,Map.Map FilePath Packet))]
                 -> KeyDB