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

fix random.windows -- use CRYPT_MACHINE_KEYSET

db4
Doug Coleman 2009-05-22 17:15:40 -05:00
parent d7ab0ad7c0
commit 92ecb2f3be
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,7 +25,8 @@ CONSTANT: factor-crypto-container "FactorCryptoContainer"
CryptAcquireContextW handle swap ; CryptAcquireContextW handle swap ;
: acquire-crypto-context ( provider type -- handle ) : acquire-crypto-context ( provider type -- handle )
0 (acquire-crypto-context) CRYPT_MACHINE_KEYSET
(acquire-crypto-context)
0 = [ 0 = [
GetLastError NTE_BAD_KEYSET = GetLastError NTE_BAD_KEYSET =
[ drop f ] [ win32-error-string throw ] if [ drop f ] [ win32-error-string throw ] if
@ -34,7 +35,7 @@ CONSTANT: factor-crypto-container "FactorCryptoContainer"
] if ; ] if ;
: create-crypto-context ( provider type -- handle ) : create-crypto-context ( provider type -- handle )
CRYPT_NEWKEYSET (acquire-crypto-context) win32-error=0/f *void* ; { CRYPT_MACHINE_KEYSET CRYPT_NEWKEYSET } (acquire-crypto-context) win32-error=0/f *void* ;
ERROR: acquire-crypto-context-failed provider type ; ERROR: acquire-crypto-context-failed provider type ;