From ef9c973897ea40744600075a7743bf5f2f3fa2f0 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Mon, 11 Sep 2017 16:03:17 +0200
Subject: public_key: Deprecated random function replaced

---
 lib/public_key/src/pubkey_ssh.erl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'lib/public_key/src')

diff --git a/lib/public_key/src/pubkey_ssh.erl b/lib/public_key/src/pubkey_ssh.erl
index 5055866ab2..75c1880655 100644
--- a/lib/public_key/src/pubkey_ssh.erl
+++ b/lib/public_key/src/pubkey_ssh.erl
@@ -79,9 +79,7 @@ dh_gex_group(Min, N, Max, undefined) ->
 dh_gex_group(Min, N, Max, Groups) ->
     case select_by_keylen(Min-10, N, Max+10, Groups) of
 	{ok,{Sz,GPs}} ->
-            Rnd = crypto:rand_uniform(1, 1+length(GPs)),
-            %% 1 =< Rnd < 1+length(GPs)
-            %%        <=>
+            Rnd = rand:uniform( length(GPs) ),
             %% 1 =< Rnd =< length(GPs)
 	    {ok, {Sz, lists:nth(Rnd,GPs)}};
 	Other ->
-- 
cgit v1.2.3