change RSA key size from 2048 to 3072.

[crypto_lab2.git] / labo2-fsharp / CryptoFile / UnitTests.fs

diff --git a/labo2-fsharp/CryptoFile/UnitTests.fs b/labo2-fsharp/CryptoFile/UnitTests.fs
index 7345538..51912d3 100644 (file)
--- a/labo2-fsharp/CryptoFile/UnitTests.fs
+++ b/labo2-fsharp/CryptoFile/UnitTests.fs
@@ -7,7 +7,7 @@ module UnitTests =
     open Crypto
 
     let testRSA () =
-        let kpub, kpriv = generateRSAKeysPair
+        let kpub, kpriv = generateRSAKeysPair ()
         let plaintext = "Are you from the past?"
         let cipherdata = encryptRSA kpub (Encoding.UTF8.GetBytes plaintext)
         let decryptedData = decryptRSA kpriv cipherdata
@@ -17,7 +17,7 @@ module UnitTests =
         printfn "testRSA OK"
 
     let testRSASignature () =
-        let kpub, kpriv = generateRSAKeysPair
+        let kpub, kpriv = generateRSAKeysPair ()
         let plaintext = "Lightspeed is too slow. We'll have to go right to ludicrous speed!"
         use sha256 = new SHA256Managed ()
         let signature = signRSA kpriv (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext))