cc70f97c5ad4fdd41cbb35b6853c62c151ccbb6d
7 printfn
"%s [ tests | encrypt <in file> <out file> | decrypt <in file> <out dir> ]\n\
8 \ttests: Run some tests to valid the 'CryptoFile' assembly\n\
9 \tencrypt: Encrypt a file <in> to <out>\n\
10 \tdecrypt: Decrypt a file <in> to <out>" System.AppDomain.CurrentDomain.FriendlyName
16 let keySigPub, keySigPriv
= API.generatKeysPair
17 let keyCryptPub, keyCryptPriv
= API.generatKeysPair
20 | [| "tests" |] -> Tests.runAllTests
()
21 | [| "encrypt"; input
; output
|] -> API.encryptFile
input output
keySigPriv keyCryptPub
22 | [| "decrypt"; input; outputDir
|] -> API.decryptFile
input outputDir
keySigPub keyCryptPriv