aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorEvgeniy Khramtsov <ekhramtsov@process-one.net>2017-08-17 19:32:15 +0300
committerEvgeniy Khramtsov <ekhramtsov@process-one.net>2017-08-17 19:32:15 +0300
commit6e20e9bcf9b3181eeee335815e06bb7313c17919 (patch)
treeb3dfa6411b957559e49587a3cff3d304cc643b46 /src
parentmod_stream_mgmt: Delete 'c2s_init' hook (diff)
Get rid of deprecated crypto functions
Diffstat (limited to 'src')
-rw-r--r--src/ejabberd_s2s_out.erl2
-rw-r--r--src/mod_http_upload.erl2
-rw-r--r--src/randoms.erl15
3 files changed, 17 insertions, 2 deletions
diff --git a/src/ejabberd_s2s_out.erl b/src/ejabberd_s2s_out.erl
index e8cad9792..fea5d8162 100644
--- a/src/ejabberd_s2s_out.erl
+++ b/src/ejabberd_s2s_out.erl
@@ -374,7 +374,7 @@ mk_bounce_error(_Lang, _State) ->
-spec get_delay() -> non_neg_integer().
get_delay() ->
MaxDelay = ejabberd_config:get_option(s2s_max_retry_delay, 300),
- crypto:rand_uniform(1, MaxDelay).
+ randoms:uniform(MaxDelay).
-spec set_idle_timeout(state()) -> state().
set_idle_timeout(#{on_route := send, server := LServer} = State) ->
diff --git a/src/mod_http_upload.erl b/src/mod_http_upload.erl
index 6d981e9ec..8d986d0d3 100644
--- a/src/mod_http_upload.erl
+++ b/src/mod_http_upload.erl
@@ -658,7 +658,7 @@ make_rand_string(S, N) -> make_rand_string([make_rand_char() | S], N - 1).
-spec make_rand_char() -> char().
make_rand_char() ->
- map_int_to_char(crypto:rand_uniform(0, 62)).
+ map_int_to_char(randoms:uniform(0, 61)).
-spec map_int_to_char(0..61) -> char().
diff --git a/src/randoms.erl b/src/randoms.erl
index ad07b47c2..7686edcff 100644
--- a/src/randoms.erl
+++ b/src/randoms.erl
@@ -32,6 +32,20 @@
-define(THRESHOLD, 16#10000000000000000).
+-ifdef(RAND_UNIFORM).
+get_string() ->
+ R = rand:uniform(?THRESHOLD),
+ integer_to_binary(R).
+
+uniform() ->
+ rand:uniform().
+
+uniform(N) ->
+ rand:uniform(N).
+
+uniform(N, M) ->
+ rand:uniform(M-N+1) + N-1.
+-else.
get_string() ->
R = crypto:rand_uniform(0, ?THRESHOLD),
integer_to_binary(R).
@@ -44,6 +58,7 @@ uniform(N) ->
uniform(N, M) ->
crypto:rand_uniform(N, M+1).
+-endif.
-ifdef(STRONG_RAND_BYTES).
bytes(N) ->