module CryptoFileTests.Main
open System
-open System.IO;
+open System.IO
open CryptoFile
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)
| _ ->
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