X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=labo2-fsharp%2FCryptoFileTests%2FProgram.fs;fp=labo2-fsharp%2FCryptoFileTests%2FProgram.fs;h=cc70f97c5ad4fdd41cbb35b6853c62c151ccbb6d;hb=beda8d83dc421c479bdcf5ee626ec85ee8555a80;hp=0000000000000000000000000000000000000000;hpb=8ba0c13cac9a84ef690dd09b92b846e85b7b02dd;p=crypto_lab2.git

diff --git a/labo2-fsharp/CryptoFileTests/Program.fs b/labo2-fsharp/CryptoFileTests/Program.fs
new file mode 100644
index 0000000..cc70f97
--- /dev/null
+++ b/labo2-fsharp/CryptoFileTests/Program.fs
@@ -0,0 +1,24 @@
+module Labo2.Main
+
+open System
+open CryptoFile
+
+let printUsage () = 
+    printfn "%s [ tests | encrypt <in file> <out file> | decrypt <in file> <out dir> ]\n\
+             \ttests: Run some tests to valid the 'CryptoFile' assembly\n\
+             \tencrypt: Encrypt a file <in> to <out>\n\
+             \tdecrypt: Decrypt a file <in> to <out>" System.AppDomain.CurrentDomain.FriendlyName
+
+[<EntryPoint>]
+let main args = 
+    printfn "Labo n°2"
+
+    let keySigPub, keySigPriv = API.generatKeysPair
+    let keyCryptPub, keyCryptPriv = API.generatKeysPair
+
+    match args with
+    | [| "tests" |] -> Tests.runAllTests ()
+    | [| "encrypt"; input; output |] -> API.encryptFile input output keySigPriv keyCryptPub
+    | [| "decrypt"; input; outputDir |] -> API.decryptFile input outputDir keySigPub keyCryptPriv
+    | _ -> printUsage ()
+    0