CBC for file about cryptonite HOT 1 OPEN

import qualified Data.ByteString.Lazy as L
import Crypto.Error
import Crypto.Cipher

encrypt key in out = do
    let cipher = (throwCryptoError $ cipherInit key) :: AES128
    inData <- L.readFile in
    iv <- makeIV <$> getRandom 16
    let outData = loop cipher iv inData
    L.writeFile out (L.fromChunks outData)
  where loop cipher iv l =
                  let (a,b) = L.splitAt 1024 l
                   in if L.empty b
                            then cbcEncrypt cipher iv (applyPadding b)
                            else let out = cbcEncrypt cipher iv (L.toStrict a) 
                                       nextIv = makeIV $ takeLast 16 out
                                     in out : loop cipher nextIv b