keygen example

3 files changed, 51 insertions, 4 deletions

diff --git a/.gitignore b/.gitignore
index 655c11c..7a4ad60 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,5 +3,6 @@
 *.swp*
 verify
 sign
+keygen
 dist/*
 report.html
diff --git a/Makefile b/Makefile
index b02c9f2..37d3f0b 100644
--- a/Makefile
+++ b/Makefile
@@ -3,18 +3,21 @@ HLINTFLAGS=-XHaskell98 -XNoCPP -i 'Use camelCase' -i 'Use String' -i 'Use head'
 
 .PHONY: all clean doc install
 
-all: sign verify report.html doc dist/build/libHSopenpgp-0.2.a dist/openpgp-0.2.tar.gz
+all: sign verify keygen report.html doc dist/build/libHSopenpgp-0.2.a dist/openpgp-0.2.tar.gz
 
 install: dist/build/libHSopenpgp-0.2.a
         cabal install
 
-sign: examples/sign.hs
+sign: examples/sign.hs Data/*.hs Data/OpenPGP/*.hs
         ghc --make $(GHCFLAGS) -o $@ $^
 
-verify: examples/verify.hs
+verify: examples/verify.hs Data/*.hs Data/OpenPGP/*.hs
         ghc --make $(GHCFLAGS) -o $@ $^
 
-report.html: examples/* Data/* Data/OpenPGP/*
+keygen: examples/keygen.hs Data/*.hs Data/OpenPGP/*.hs
+        ghc --make $(GHCFLAGS) -o $@ $^
+
+report.html: examples/*.hs Data/*.hs Data/OpenPGP/*.hs
         hlint $(HLINTFLAGS) --report Data examples || true
 
 doc: dist/doc/html/openpgp/index.html README
diff --git a/examples/keygen.hs b/examples/keygen.hs
new file mode 100644
index 0000000..65c3e33
--- /dev/null
+++ b/examples/keygen.hs
@@ -0,0 +1,43 @@
+import System.Time (getClockTime, ClockTime(..))
+import qualified Data.Map as Map
+import qualified Data.ByteString.Lazy as LZ
+
+import Data.Binary
+import OpenSSL.RSA
+import Control.Arrow (second)
+import Codec.Encryption.RSA.NumberTheory (extEuclGcd)
+
+import qualified Data.OpenPGP as OpenPGP
+import qualified Data.OpenPGP.Crypto as OpenPGP
+
+main :: IO ()
+main = do
+        time <- getClockTime
+        let TOD t _ = time
+
+        nkey <- generateRSAKey' 1042 65537
+
+        let secretKey = OpenPGP.SecretKeyPacket {
+                OpenPGP.version = 4,
+                OpenPGP.timestamp = fromIntegral t,
+                OpenPGP.key_algorithm = OpenPGP.RSA,
+                OpenPGP.key = Map.fromList $ map (second OpenPGP.MPI)
+                        [('n', rsaN nkey), ('e', rsaE nkey),
+                        ('d', rsaD nkey), ('p', rsaP nkey), ('q', rsaQ nkey),
+                        ('u', fst $ extEuclGcd (rsaP nkey) (rsaQ nkey))],
+                OpenPGP.s2k_useage = 0,
+                OpenPGP.symmetric_type = undefined,
+                OpenPGP.s2k_type = undefined,
+                OpenPGP.s2k_hash_algorithm = undefined,
+                OpenPGP.s2k_salt = undefined,
+                OpenPGP.s2k_count = undefined,
+                OpenPGP.encrypted_data = undefined,
+                OpenPGP.private_hash = undefined }
+
+        let userID = OpenPGP.UserIDPacket "Test <test@example.com>"
+        let message = OpenPGP.Message[ secretKey, userID ]
+
+        let message' = OpenPGP.Message [ secretKey, userID,
+                OpenPGP.sign message message OpenPGP.SHA256 [] (fromIntegral t)]
+
+        LZ.putStr $ encode message'