steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/random/windows/windows.factor
View File

@ -60,9 +60,13 @@ M: windows-rng random-bytes* ( n tuple -- bytes )
MS_DEF_PROV MS_DEF_PROV
PROV_RSA_FULL <windows-rng> system-random-generator set-global 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 ] "random.windows" add-init-hook