nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

make randomness non-deterministic

Browse source
This commit is contained in:
nek0 2022-04-30 10:10:26 +02:00
parent 48aba74b6d
commit 5e70cd6b0f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Util/Crypto.hs
View file

@ -6,10 +6,10 @@ import Crypto.Error (CryptoFailable)
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Data.ByteString.Base64 import Data.ByteString.Base64
import System.Random.Stateful (uniformByteStringM, newIOGenM, mkStdGen) import System.Random.Stateful (uniformByteStringM, newIOGenM, initStdGen)
randomString :: IO BS.ByteString randomString :: IO BS.ByteString
randomString = encode <$> (uniformByteStringM 32 =<< newIOGenM (mkStdGen 23)) randomString = encode <$> (uniformByteStringM 32 =<< newIOGenM =<< initStdGen)
argon2 :: BS.ByteString -> BS.ByteString -> CryptoFailable BS.ByteString argon2 :: BS.ByteString -> BS.ByteString -> CryptoFailable BS.ByteString
argon2 salt payload = encode <$> hash defaultOptions payload (decodeLenient salt) 64 argon2 salt payload = encode <$> hash defaultOptions payload (decodeLenient salt) 64