try to fall back on AES if RSA isn't found

db4
Doug Coleman 2009-05-20 20:06:05 -05:00
parent 52e959e6a1
commit ef3656aea8
1 changed files with 8 additions and 4 deletions

View File

@ -60,9 +60,13 @@ M: windows-rng random-bytes* ( n tuple -- bytes )
MS_DEF_PROV
PROV_RSA_FULL <windows-rng> system-random-generator set-global
MS_STRONG_PROV
PROV_RSA_FULL <windows-rng> secure-random-generator set-global
[
MS_STRONG_PROV
PROV_RSA_FULL <windows-rng> secure-random-generator set-global
] [
drop
MS_ENH_RSA_AES_PROV
PROV_RSA_AES <windows-rng> secure-random-generator set-global
] recover
! MS_ENH_RSA_AES_PROV
! PROV_RSA_AES <windows-rng> secure-random-generator set-global
] "random.windows" add-init-hook