4 type internal Metadata (d
: (string * string) list
) =
5 new (stream
: Stream, size
: int) =
6 let binaryReader = new BinaryReader (stream
)
8 member this
.WriteTo (stream
: Stream) =
9 let binaryWriter = new BinaryWriter (stream
)
10 List.iter
(fun (key
: string, value
: string) -> binaryWriter.Write key; binaryWriter.Write value) d
13 let internal filename
= "filename"
14 let internal creationTimeKey
= "file-creation-time"
16 let generatKeysPair : Key * Key = Crypto.generateRSAKeysPair
18 let encryptFile (inputFilePath
: string) (outputFilePath
: string) (signaturePrivKey
: Key) (cryptPubKey
: Key) =
19 let keyAES, keyMAC
, iv
= Crypto.rand
32, Crypto.rand
32, Crypto.rand
16
20 let fileInfo = new FileInfo (inputFilePath
)
21 use inputStream = new FileStream (inputFilePath
, FileMode.Open, FileAccess.Read)
22 use outputStream = new FileStream (outputFilePath
, FileMode.Create, FileAccess.Write)
23 let writer = new BinaryWriter (outputStream)
25 ignore
<| writer.Seek (8 + 32 + 256, SeekOrigin.Current) // Skips file-content-size, mac and signature. They will be written later.
27 Crypto.encryptRSA cryptPubKey
(Array.append
keyAES <| Array.append keyMAC iv
) |> writer.Write
29 printfn
"pos: %A" outputStream.Position
31 use cryptoStream = Crypto.encryptAES
keyAES iv
outputStream
32 let cryptoWriter = new BinaryWriter (cryptoStream)
35 let metaData = new Metadata ([filename
, fileInfo.Name; creationTimeKey
, fileInfo.CreationTimeUtc.Ticks.ToString ()])
36 let metaDataStream = new MemoryStream ()
37 metaData.WriteTo metaDataStream
38 cryptoWriter.Write (int metaDataStream.Length)
39 printfn
"meta size: %A" (int metaDataStream.Length)
40 metaDataStream.Position <- 0L
41 metaDataStream.CopyTo cryptoStream
44 let decryptFile (sourceFilePath
: string) (targetDirPath
: string) (signaturePubKey
: Key) (decryptPrivKey
: Key) =