diff options
Diffstat (limited to 'src/erl_make_certs.erl')
-rw-r--r-- | src/erl_make_certs.erl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/erl_make_certs.erl b/src/erl_make_certs.erl index 8212ef7..dfa9955 100644 --- a/src/erl_make_certs.erl +++ b/src/erl_make_certs.erl @@ -178,7 +178,7 @@ make_tbs(SubjectKey, Opts) -> subject(proplists:get_value(subject, Opts),false) end, - {#'OTPTBSCertificate'{serialNumber = trunc(random:uniform()*100000000)*10000 + 1, + {#'OTPTBSCertificate'{serialNumber = trunc(rand:uniform()*100000000)*10000 + 1, signature = SignAlgo, issuer = Issuer, validity = validity(Opts), @@ -455,7 +455,8 @@ odd_rand(Size) -> odd_rand(Min, Max). odd_rand(Min,Max) -> - Rand = crypto:rand_uniform(Min,Max), + Delta = Max - Min, + Rand = Min + trunc(rand:uniform() * Delta), case Rand rem 2 of 0 -> Rand + 1; |