diff options
| -rw-r--r-- | src/ZeroBin/SJCL.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ZeroBin/SJCL.hs b/src/ZeroBin/SJCL.hs index b121546..fc3aa1b 100644 --- a/src/ZeroBin/SJCL.hs +++ b/src/ZeroBin/SJCL.hs @@ -84,7 +84,7 @@ encrypt password plaintext = do BS.replicate (fromIntegral eL) 0 ] a1iv = ivAdd (fromJust . makeIV $ a0) 1 - ciphtext = C.append + ciphtext = BS.append (ctrCombine cipher a1iv plaintext) (BA.xor (ecbEncrypt cipher a0) tag) return Content { iv = toWeb ivd, salt = toWeb slt, ct = toWeb ciphtext } |