projects
/
crypto_lab2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Clean up + report in PDF.
[crypto_lab2.git]
/
labo2-fsharp
/
CryptoFile
/
Crypto.fs
diff --git
a/labo2-fsharp/CryptoFile/Crypto.fs
b/labo2-fsharp/CryptoFile/Crypto.fs
index
31d6475
..
e74409d
100644
(file)
--- a/
labo2-fsharp/CryptoFile/Crypto.fs
+++ b/
labo2-fsharp/CryptoFile/Crypto.fs
@@
-17,7
+17,7
@@
module internal Crypto =
/// Returns a cryptographically strong sequence of bytes.
let rand size : byte[] =
let result = Array.zeroCreate size
/// Returns a cryptographically strong sequence of bytes.
let rand size : byte[] =
let result = Array.zeroCreate size
-
let
generator = new RNGCryptoServiceProvider ()
+
use
generator = new RNGCryptoServiceProvider ()
generator.GetBytes result
result
generator.GetBytes result
result
@@
-70,5
+70,5
@@
module internal Crypto =
let ComputeHMAC (key: byte[]) (inputStream: Stream) : byte[] =
if key.Length <> 32 then raise KeySizeError
let ComputeHMAC (key: byte[]) (inputStream: Stream) : byte[] =
if key.Length <> 32 then raise KeySizeError
-
let
hmac = new HMACSHA256 (key)
+
use
hmac = new HMACSHA256 (key)
hmac.ComputeHash inputStream
\ No newline at end of file
hmac.ComputeHash inputStream
\ No newline at end of file