removed more unused bindings from kiki.hs

1 files changed, 17 insertions, 0 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 0fc30ef..9775ef5 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -70,6 +70,23 @@ import ProcessUtils (systemEnv, ExitCode(ExitFailure, ExitSuccess) )
 -- DER-encoded elliptic curve ids
 nistp256_id  = 0x2a8648ce3d030107
 secp256k1_id = 0x2b8104000a
+-- "\x2a\x86\x48\xce\x3d\x03\x01\x07"
+{-     OID                  Curve description              Curve name
+    ----------------------------------------------------------------   
+    1.2.840.10045.3.1.7  NIST Curve P-256 [FIPS 186-2]  "NIST P-256"
+    1.3.132.0.34         NIST Curve P-384 [FIPS 186-2]  "NIST P-384"  
+    1.3.132.0.35         NIST Curve P-521 [FIPS 186-2]  "NIST P-521"  
+
+    Implementations MUST implement "NIST P-256", "NIST P-384" and "NIST
+    P-521".  The hexadecimal representation used in the public and
+    private key encodings are:
+
+    Curve Name   Len  Hexadecimal representation of the OID
+    ----------------------------------------------------------------   
+    "NIST P-256"  8   0x2A, 0x86, 0x48, 0xCE, 0x3D, 0x03, 0x01, 0x07 
+    "NIST P-384"  6   0x05, 0x2B, 0x81, 0x04, 0x00, 0x22            
+    "NIST P-521"  6   0x05, 0x2B, 0x81, 0x04, 0x00, 0x23          
+-}
 
 data HomeDir =
     HomeDir { homevar :: String