File 2512-ssh-replace-deprecated-crypto-rand_uniform... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2512-ssh-replace-deprecated-crypto-rand_uniform.patch of Package erlang

From 24cce98e38f1c8d36abb67bc7aca0668cf64c1ad Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Wed, 12 Apr 2017 19:56:12 +0200
Subject: [PATCH] ssh: replace deprecated crypto:rand_uniform

---
 lib/ssh/src/ssh_transport.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ssh/src/ssh_transport.erl b/lib/ssh/src/ssh_transport.erl
index 54ea80c72..6b47868d5 100644
--- a/lib/ssh/src/ssh_transport.erl
+++ b/lib/ssh/src/ssh_transport.erl
@@ -181,7 +181,7 @@ ssh_vsn() ->
     end.
     
 random_id(Nlo, Nup) ->
-    [crypto:rand_uniform($a,$z+1) || _<- lists:duplicate(crypto:rand_uniform(Nlo,Nup+1),x)  ].
+    [$a + rand:uniform($z-$a+1) - 1 || _<- lists:duplicate(Nlo + rand:uniform(Nup-Nlo+1) - 1, x)].
 
 hello_version_msg(Data) ->
     [Data,"\r\n"].
@@ -1041,7 +1041,7 @@ padding_length(Size, #ssh{encrypt_block_size = BlockSize,
 		    end,
     PadBlockSize =  max(BlockSize,4),
     MaxExtraBlocks = (max(RandomLengthPadding,MinPaddingLen) - MinPaddingLen) div PadBlockSize,
-    ExtraPaddingLen = try crypto:rand_uniform(0,MaxExtraBlocks)*PadBlockSize
+    ExtraPaddingLen = try (rand:uniform(MaxExtraBlocks+1) - 1) * PadBlockSize
 		      catch _:_ -> 0
 		      end,
     MinPaddingLen + ExtraPaddingLen.
-- 
2.12.2

Places

File 2512-ssh-replace-deprecated-crypto-rand_uniform.patch of Package erlang

Places