change RSA key size from 2048 to 3072.

[crypto_lab2.git] / labo2-fsharp / CryptoFileTests / Program.fs

diff --git a/labo2-fsharp/CryptoFileTests/Program.fs b/labo2-fsharp/CryptoFileTests/Program.fs
index a0cfba9..509b6d7 100644 (file)
--- a/labo2-fsharp/CryptoFileTests/Program.fs
+++ b/labo2-fsharp/CryptoFileTests/Program.fs
@@ -1,7 +1,7 @@
 module CryptoFileTests.Main
 
 open System
-open System.IO;
+open System.IO
 open CryptoFile
 
 let printUsage () = 
@@ -14,7 +14,7 @@ let printUsage () =
 // The private keys are stored in plain file! Do not let anyone access these files!
 module internal Keys =
     // Try to read the public key and private key from files. If one of a file doesn't exist
-    // a new key pair is created, stored the returned.
+    // a new key pair is created, stored then returned.
     let getKey (filenamePub: string) (filenamePriv: string) : Key * Key =
         try
             use srPub = new StreamReader (filenamePub)
@@ -24,7 +24,7 @@ module internal Keys =
         | _ ->
             use swPub = new StreamWriter (filenamePub)
             use swPriv = new StreamWriter (filenamePriv)
-            let keyPub, keyPriv = API.generatKeysPair
+            let keyPub, keyPriv = API.generatKeysPair ()
             swPub.Write keyPub
             swPriv.Write keyPriv
             keyPub, keyPriv