dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-05-26 01:04:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

comments

Browse Source
This commit is contained in:
Alexander Bondarenko
2024-06-04 17:16:12 +03:00
parent 0267c6eda9
commit d8e7fefb32
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Crypto.hs
+2 -2
View File
@@ -1379,7 +1379,7 @@ keyError = \case
type NaclDhSecret = BA.ScrubbedBytes
-- type NaclDhSecret = C.DhSecret 'C.X25519h -- hashed DH used by NaCl "afternm" functions.
-- type NaclDhSecret = C.DhSecret 'C.X25519h -- hashed DH produced by NaCl "crypto_box_beforenm" and used by secretBox/Open
-- Run salsa20 in a hash mode to make our DH keys match 'c_crypto_box_beforenm' output.
hsalsa20 :: ByteArrayAccess key => key -> Either String NaclDhSecret
@@ -1398,7 +1398,7 @@ hsalsa20 key = unsafePerformIO $ do
c_0 = B.replicate 16 '\0'
{-# NOINLINE hsalsa20 #-}
secretBox :: NaclDhSecret -> ByteString -> ByteString -> Either String ByteString -- TODO: tag?
secretBox :: NaclDhSecret -> ByteString -> ByteString -> Either String ByteString
secretBox sk nonce msg = unsafePerformIO $ do
(r, c) <-
BA.withByteArray msg0 $ \mPtr ->