voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-08-23 06:26:27 +03:00
parent ed9add84d7
commit 34371126b1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
View File

@ -276,10 +276,8 @@ generateGroupKeyFancy mbk pks = create
rcpt <- forM pks $ \pk -> do rcpt <- forM pks $ \pk -> do
box <- liftIO $ AK.boxSeal pk (LBS.toStrict $ serialise sk) <&> EncryptedBox box <- liftIO $ AK.boxSeal pk (LBS.toStrict $ serialise sk) <&> EncryptedBox
pure (pk, box) pure (pk, box)
-- TODO: GroupKeyIdJustHash-implies-timestamp let enc = SK.secretbox sk (nonceFrom (mempty :: ByteString)) (LBS.toStrict $ serialise sk)
-- теперь просто хэш = хэш (ключ, таймстемп) let ha = hashObject @HbSync enc
-- так лучше
let ha = hashObject @HbSync (serialise (sk,now))
pure $ GroupKeySymmFancy pure $ GroupKeySymmFancy
(HashMap.fromList rcpt) (HashMap.fromList rcpt)
(Just GroupKeyIdJustHash) (Just GroupKeyIdJustHash)