diff -r ca67740f19b2 -r 8572d1f8b2f0 gameServer/NetRoutines.hs --- a/gameServer/NetRoutines.hs Sun Jan 26 10:20:42 2014 +0400 +++ b/gameServer/NetRoutines.hs Mon Jan 27 00:33:42 2014 +0400 @@ -30,7 +30,7 @@ sendChan' <- newChan uid <- newUnique - salt <- liftM (B.pack . Base64.encode . BW.unpack) $ hGetEntropy ch 16 + salt <- liftM (B.pack . Base64.encode . BW.unpack) $ hGetEntropy ch 18 let newClient = (ClientInfo