| error -> assert (error :? UnableToDecryptKeys)
printfn ""
- let cyphertextLength = (int (FileInfo (cipherFilename)).Length) + API.hmacSize + API.signatureSize + API.keysSize
+ let cyphertextLength = (int (FileInfo (cipherFilename)).Length) - API.hmacSize - API.signatureSize - API.keysSize
printfn "== Altering the cyphertext... (%d bytes)" cyphertextLength
for i in 0 .. cyphertextLength do
printf "."
File.Delete cipherFilename
File.Delete plainFilename
- printfn "===== API tests OK"
+ printfn "===== API tests OK"
\ No newline at end of file