From 82accedf88d05cb538e38ea23ec354e823c5dfa5 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 10 May 2023 12:49:11 -0400
Subject: [PATCH] remove editor backup file accidentally added
---
make-keypairs/Main.hs~ | 29 -----------------------------
1 file changed, 29 deletions(-)
delete mode 100644 make-keypairs/Main.hs~
diff --git a/make-keypairs/Main.hs~ b/make-keypairs/Main.hs~
deleted file mode 100644
index d04d160..0000000
--- a/make-keypairs/Main.hs~
+++ /dev/null
@@ -1,29 +0,0 @@
-module Main where
-
-import Codec.Crypto.RSA (generateKeyPair)
-import Crypto.Random (CryptoRandomGen (newGenIO), SystemRandom)
-import Data.ASN1.BinaryEncoding (DER (DER))
-import Data.ASN1.Encoding (ASN1Encoding (encodeASN1))
-import Data.ASN1.Types (ASN1Object (toASN1))
-import qualified Data.ByteString.Lazy as LB
-
--- | The size of the keys to generate.
-bits :: Int
-bits = 2048
-
--- | The number of keys to generate.
-count :: Int
-count = 5
-
-main :: IO ()
-main = do
- g <- newGenIO :: IO SystemRandom
- mapM_ (genKey g) [0 .. count - 1]
-
-genKey :: (Show a, CryptoRandomGen c) => c -> a -> IO ()
-genKey g n =
- let
- (_, priv, _) = generateKeyPair g bits
- bytes = encodeASN1 DER (toASN1 priv [])
- in
- LB.writeFile ("key-" <> show n <> ".der") bytes
--
GitLab