--- 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