From: Alexey Shchepin <alexey@process-one.net>
Date: Mon, 4 Jan 2016 10:55:25 +0000 (+0300)
Subject: Use crypto:rand_uniform instead of random:uniform
X-Git-Tag: 16.01~18
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=fb8a51136519a190145265736c4243095e2516ec;p=ejabberd

Use crypto:rand_uniform instead of random:uniform
---

diff --git a/src/randoms.erl b/src/randoms.erl
index 4068fa79d..9d9b392f6 100644
--- a/src/randoms.erl
+++ b/src/randoms.erl
@@ -29,23 +29,12 @@
 
 -export([get_string/0]).
 
--export([start/0, init/0]).
+-export([start/0]).
 
 start() ->
-    register(random_generator, spawn(randoms, init, [])).
-
-init() ->
-    random:seed(p1_time_compat:timestamp()), loop().
-
-loop() ->
-    receive
-      {From, get_random, N} ->
-	  From ! {random, random:uniform(N)}, loop();
-      _ -> loop()
-    end.
+    ok.
 
 get_string() ->
-    random_generator ! {self(), get_random, 65536 * 65536},
-    receive
-      {random, R} -> jlib:integer_to_binary(R)
-    end.
+    R = crypto:rand_uniform(0, 16#10000000000000000),
+    jlib:integer_to_binary(R).
+