?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
ole32: Rename PROPSET_BLOCK_SIZE to RAW_DIRENTRY_SIZE.
[wine/testsucceed.git] / dlls / advapi32 / crypt.c
bloba26770ec885df6436b57abfc84ae07d86ce3ef2f
1 /*
2 * Copyright 1999 Ian Schmidt
3 * Copyright 2001 Travis Michielsen
4 *
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2.1 of the License, or (at your option) any later version.
9 *
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
14 *
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
18 */
19
20 /***********************************************************************
21 *
22 * TODO:
23 * - Reference counting
24 * - Thread-safing
25 */
26
27 #include "config.h"
28 #include "wine/port.h"
29
30 #include <time.h>
31 #include <stdlib.h>
32 #include <stdio.h>
33 #include <sys/types.h>
34 #ifdef HAVE_SYS_STAT_H
35 # include <sys/stat.h>
36 #endif
37 #include <fcntl.h>
38 #ifdef HAVE_UNISTD_H
39 # include <unistd.h>
40 #endif
41
42 #include "ntstatus.h"
43 #define WIN32_NO_STATUS
44 #include "crypt.h"
45 #include "winnls.h"
46 #include "winreg.h"
47 #include "rpc.h"
48 #include "wine/debug.h"
49 #include "wine/unicode.h"
50 #include "winternl.h"
51
52 WINE_DEFAULT_DEBUG_CHANNEL(crypt);
53
54 static HWND crypt_hWindow;
55
56 #define CRYPT_Alloc(size) (LocalAlloc(LMEM_ZEROINIT, size))
57 #define CRYPT_Free(buffer) (LocalFree(buffer))
58
59 static inline PWSTR CRYPT_GetProvKeyName(PCWSTR pProvName)
60 {
61 static const WCHAR KEYSTR[] = {
62 'S','o','f','t','w','a','r','e','\\',
63 'M','i','c','r','o','s','o','f','t','\\',
64 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
65 'D','e','f','a','u','l','t','s','\\',
66 'P','r','o','v','i','d','e','r','\\',0
67 };
68 PWSTR keyname;
69
70 keyname = CRYPT_Alloc((strlenW(KEYSTR) + strlenW(pProvName) +1)*sizeof(WCHAR));
71 if (keyname)
72 {
73 strcpyW(keyname, KEYSTR);
74 strcpyW(keyname + strlenW(KEYSTR), pProvName);
75 } else
76 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
77 return keyname;
78 }
79
80 static inline PWSTR CRYPT_GetTypeKeyName(DWORD dwType, BOOL user)
81 {
82 static const WCHAR MACHINESTR[] = {
83 'S','o','f','t','w','a','r','e','\\',
84 'M','i','c','r','o','s','o','f','t','\\',
85 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
86 'D','e','f','a','u','l','t','s','\\',
87 'P','r','o','v','i','d','e','r',' ','T','y','p','e','s','\\',
88 'T','y','p','e',' ','X','X','X',0
89 };
90 static const WCHAR USERSTR[] = {
91 'S','o','f','t','w','a','r','e','\\',
92 'M','i','c','r','o','s','o','f','t','\\',
93 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
94 'P','r','o','v','i','d','e','r',' ','T','y','p','e',' ','X','X','X',0
95 };
96 PWSTR keyname;
97 PWSTR ptr;
98
99 keyname = CRYPT_Alloc( ((user ? strlenW(USERSTR) : strlenW(MACHINESTR)) +1)*sizeof(WCHAR));
100 if (keyname)
101 {
102 user ? strcpyW(keyname, USERSTR) : strcpyW(keyname, MACHINESTR);
103 ptr = keyname + strlenW(keyname);
104 *(--ptr) = (dwType % 10) + '0';
105 *(--ptr) = ((dwType / 10) % 10) + '0';
106 *(--ptr) = (dwType / 100) + '0';
107 } else
108 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
109 return keyname;
110 }
111
112 /* CRYPT_UnicodeTOANSI
113 * wstr - unicode string
114 * str - pointer to ANSI string
115 * strsize - size of buffer pointed to by str or -1 if we have to do the allocation
116 *
117 * returns TRUE if unsuccessful, FALSE otherwise.
118 * if wstr is NULL, returns TRUE and sets str to NULL! Value of str should be checked after call
119 */
120 static inline BOOL CRYPT_UnicodeToANSI(LPCWSTR wstr, LPSTR* str, int strsize)
121 {
122 int count;
123
124 if (!wstr)
125 {
126 *str = NULL;
127 return TRUE;
128 }
129 count = WideCharToMultiByte(CP_ACP, 0, wstr, -1, NULL, 0, NULL, NULL);
130 if (strsize == -1)
131 *str = CRYPT_Alloc(count * sizeof(CHAR));
132 else
133 count = min( count, strsize );
134 if (*str)
135 {
136 WideCharToMultiByte(CP_ACP, 0, wstr, -1, *str, count, NULL, NULL);
137 return TRUE;
138 }
139 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
140 return FALSE;
141 }
142
143 /* CRYPT_ANSITOUnicode
144 * str - ANSI string
145 * wstr - pointer to unicode string
146 * wstrsize - size of buffer pointed to by wstr or -1 if we have to do the allocation
147 */
148 static inline BOOL CRYPT_ANSIToUnicode(LPCSTR str, LPWSTR* wstr, int wstrsize)
149 {
150 unsigned int wcount;
151
152 if (!str)
153 {
154 *wstr = NULL;
155 return TRUE;
156 }
157 wcount = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
158 if (wstrsize == -1)
159 *wstr = CRYPT_Alloc(wcount * sizeof(WCHAR));
160 else
161 wcount = min( wcount, wstrsize/sizeof(WCHAR) );
162 if (*wstr)
163 {
164 MultiByteToWideChar(CP_ACP, 0, str, -1, *wstr, wcount);
165 return TRUE;
166 }
167 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
168 return FALSE;
169 }
170
171 /* These next 2 functions are used by the VTableProvStruc structure */
172 static BOOL CALLBACK CRYPT_VerifyImage(LPCSTR lpszImage, BYTE* pData)
173 {
174 if (!lpszImage || !pData)
175 {
176 SetLastError(ERROR_INVALID_PARAMETER);
177 return FALSE;
178 }
179
180 FIXME("(%s, %p): not verifying image\n", lpszImage, pData);
181
182 return TRUE;
183 }
184
185 static void CALLBACK CRYPT_ReturnhWnd(HWND *phWnd)
186 {
187 if (phWnd) *phWnd = crypt_hWindow;
188 }
189
190 #define CRYPT_GetProvFunc(name) \
191 if ( !(provider->pFuncs->p##name = (void*)GetProcAddress(provider->hModule, #name)) ) goto error
192 #define CRYPT_GetProvFuncOpt(name) \
193 provider->pFuncs->p##name = (void*)GetProcAddress(provider->hModule, #name)
194 static PCRYPTPROV CRYPT_LoadProvider(PCWSTR pImage)
195 {
196 PCRYPTPROV provider;
197 DWORD errorcode = ERROR_NOT_ENOUGH_MEMORY;
198
199 if ( !(provider = CRYPT_Alloc(sizeof(CRYPTPROV))) ) goto error;
200 if ( !(provider->pFuncs = CRYPT_Alloc(sizeof(PROVFUNCS))) ) goto error;
201 if ( !(provider->pVTable = CRYPT_Alloc(sizeof(VTableProvStruc))) ) goto error;
202 if ( !(provider->hModule = LoadLibraryW(pImage)) )
203 {
204 errorcode = (GetLastError() == ERROR_FILE_NOT_FOUND) ? NTE_PROV_DLL_NOT_FOUND : NTE_PROVIDER_DLL_FAIL;
205 FIXME("Failed to load dll %s\n", debugstr_w(pImage));
206 goto error;
207 }
208 provider->dwMagic = MAGIC_CRYPTPROV;
209 provider->refcount = 1;
210
211 errorcode = NTE_PROVIDER_DLL_FAIL;
212 CRYPT_GetProvFunc(CPAcquireContext);
213 CRYPT_GetProvFunc(CPCreateHash);
214 CRYPT_GetProvFunc(CPDecrypt);
215 CRYPT_GetProvFunc(CPDeriveKey);
216 CRYPT_GetProvFunc(CPDestroyHash);
217 CRYPT_GetProvFunc(CPDestroyKey);
218 CRYPT_GetProvFuncOpt(CPDuplicateHash);
219 CRYPT_GetProvFuncOpt(CPDuplicateKey);
220 CRYPT_GetProvFunc(CPEncrypt);
221 CRYPT_GetProvFunc(CPExportKey);
222 CRYPT_GetProvFunc(CPGenKey);
223 CRYPT_GetProvFunc(CPGenRandom);
224 CRYPT_GetProvFunc(CPGetHashParam);
225 CRYPT_GetProvFunc(CPGetKeyParam);
226 CRYPT_GetProvFunc(CPGetProvParam);
227 CRYPT_GetProvFunc(CPGetUserKey);
228 CRYPT_GetProvFunc(CPHashData);
229 CRYPT_GetProvFunc(CPHashSessionKey);
230 CRYPT_GetProvFunc(CPImportKey);
231 CRYPT_GetProvFunc(CPReleaseContext);
232 CRYPT_GetProvFunc(CPSetHashParam);
233 CRYPT_GetProvFunc(CPSetKeyParam);
234 CRYPT_GetProvFunc(CPSetProvParam);
235 CRYPT_GetProvFunc(CPSignHash);
236 CRYPT_GetProvFunc(CPVerifySignature);
237
238 /* FIXME: Not sure what the pbContextInfo field is for.
239 * Does it need memory allocation?
240 */
241 provider->pVTable->Version = 3;
242 provider->pVTable->FuncVerifyImage = CRYPT_VerifyImage;
243 provider->pVTable->FuncReturnhWnd = CRYPT_ReturnhWnd;
244 provider->pVTable->dwProvType = 0;
245 provider->pVTable->pbContextInfo = NULL;
246 provider->pVTable->cbContextInfo = 0;
247 provider->pVTable->pszProvName = NULL;
248 return provider;
249
250 error:
251 SetLastError(errorcode);
252 if (provider)
253 {
254 provider->dwMagic = 0;
255 if (provider->hModule)
256 FreeLibrary(provider->hModule);
257 CRYPT_Free(provider->pVTable);
258 CRYPT_Free(provider->pFuncs);
259 CRYPT_Free(provider);
260 }
261 return NULL;
262 }
263 #undef CRYPT_GetProvFunc
264 #undef CRYPT_GetProvFuncOpt
265
266
267 static void CRYPT_CreateMachineGuid(void)
268 {
269 static const WCHAR cryptographyW[] = {
270 'S','o','f','t','w','a','r','e','\\',
271 'M','i','c','r','o','s','o','f','t','\\',
272 'C','r','y','p','t','o','g','r','a','p','h','y',0 };
273 static const WCHAR machineGuidW[] = {
274 'M','a','c','h','i','n','e','G','u','i','d',0 };
275 LONG r;
276 HKEY key;
277
278 r = RegOpenKeyExW(HKEY_LOCAL_MACHINE, cryptographyW, 0, KEY_ALL_ACCESS,
279 &key);
280 if (!r)
281 {
282 DWORD size;
283
284 r = RegQueryValueExW(key, machineGuidW, NULL, NULL, NULL, &size);
285 if (r == ERROR_FILE_NOT_FOUND)
286 {
287 static const WCHAR rpcrt4[] = {
288 'r','p','c','r','t','4',0 };
289 HMODULE lib = LoadLibraryW(rpcrt4);
290
291 if (lib)
292 {
293 RPC_STATUS (RPC_ENTRY *pUuidCreate)(UUID *);
294 UUID uuid;
295 WCHAR buf[37];
296 RPC_STATUS rs;
297 static const WCHAR uuidFmt[] = {
298 '%','0','8','x','-','%','0','4','x','-',
299 '%','0','4','x','-','%','0','2','x',
300 '%','0','2','x','-','%','0','2','x',
301 '%','0','2','x','%','0','2','x',
302 '%','0','2','x','%','0','2','x',
303 '%','0','2','x',0 };
304
305 pUuidCreate = (void *)GetProcAddress(lib, "UuidCreate");
306 rs = pUuidCreate(&uuid);
307 if (rs == S_OK)
308 {
309 sprintfW(buf, uuidFmt,
310 uuid.Data1, uuid.Data2, uuid.Data3,
311 uuid.Data4[0], uuid.Data4[1],
312 uuid.Data4[2], uuid.Data4[3],
313 uuid.Data4[4], uuid.Data4[5],
314 uuid.Data4[6], uuid.Data4[7] );
315 RegSetValueExW(key, machineGuidW, 0, REG_SZ,
316 (const BYTE *)buf,
317 (lstrlenW(buf)+1)*sizeof(WCHAR));
318 }
319 FreeLibrary(lib);
320 }
321 }
322 RegCloseKey(key);
323 }
324 }
325
326 /******************************************************************************
327 * CryptAcquireContextW (ADVAPI32.@)
328 *
329 * Acquire a crypto provider context handle.
330 *
331 * PARAMS
332 * phProv [O] Pointer to HCRYPTPROV for the output.
333 * pszContainer [I] Key Container Name
334 * pszProvider [I] Cryptographic Service Provider Name
335 * dwProvType [I] Crypto provider type to get a handle.
336 * dwFlags [I] flags for the operation
337 *
338 * RETURNS
339 * TRUE on success, FALSE on failure.
340 */
341 BOOL WINAPI CryptAcquireContextW (HCRYPTPROV *phProv, LPCWSTR pszContainer,
342 LPCWSTR pszProvider, DWORD dwProvType, DWORD dwFlags)
343 {
344 PCRYPTPROV pProv = NULL;
345 HKEY key;
346 PWSTR imagepath = NULL, keyname = NULL, provname = NULL, temp = NULL;
347 PSTR provnameA = NULL, pszContainerA = NULL;
348 DWORD keytype, type, len;
349 ULONG r;
350 static const WCHAR nameW[] = {'N','a','m','e',0};
351 static const WCHAR typeW[] = {'T','y','p','e',0};
352 static const WCHAR imagepathW[] = {'I','m','a','g','e',' ','P','a','t','h',0};
353
354 TRACE("(%p, %s, %s, %d, %08x)\n", phProv, debugstr_w(pszContainer),
355 debugstr_w(pszProvider), dwProvType, dwFlags);
356
357 if (dwProvType < 1 || dwProvType > MAXPROVTYPES)
358 {
359 SetLastError(NTE_BAD_PROV_TYPE);
360 return FALSE;
361 }
362
363 if (!phProv)
364 {
365 SetLastError(ERROR_INVALID_PARAMETER);
366 return FALSE;
367 }
368
369 /* Make sure the MachineGuid value exists */
370 CRYPT_CreateMachineGuid();
371
372 if (!pszProvider || !*pszProvider)
373 {
374 /* No CSP name specified so try the user default CSP first
375 * then try the machine default CSP
376 */
377 if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, TRUE)) ) {
378 TRACE("No provider registered for crypto provider type %d.\n", dwProvType);
379 SetLastError(NTE_PROV_TYPE_NOT_DEF);
380 return FALSE;
381 }
382 if (RegOpenKeyW(HKEY_CURRENT_USER, keyname, &key))
383 {
384 CRYPT_Free(keyname);
385 if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, FALSE)) ) {
386 TRACE("No type registered for crypto provider type %d.\n", dwProvType);
387 RegCloseKey(key);
388 SetLastError(NTE_PROV_TYPE_NOT_DEF);
389 goto error;
390 }
391 if (RegOpenKeyW(HKEY_LOCAL_MACHINE, keyname, &key)) {
392 TRACE("Did not find registry entry of crypto provider for %s.\n", debugstr_w(keyname));
393 CRYPT_Free(keyname);
394 RegCloseKey(key);
395 SetLastError(NTE_PROV_TYPE_NOT_DEF);
396 goto error;
397 }
398 }
399 CRYPT_Free(keyname);
400 r = RegQueryValueExW(key, nameW, NULL, &keytype, NULL, &len);
401 if( r != ERROR_SUCCESS || !len || keytype != REG_SZ)
402 {
403 TRACE("error %d reading size of 'Name' from registry\n", r );
404 RegCloseKey(key);
405 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
406 goto error;
407 }
408 if(!(provname = CRYPT_Alloc(len)))
409 {
410 RegCloseKey(key);
411 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
412 goto error;
413 }
414 r = RegQueryValueExW(key, nameW, NULL, NULL, (LPBYTE)provname, &len);
415 if( r != ERROR_SUCCESS )
416 {
417 TRACE("error %d reading 'Name' from registry\n", r );
418 RegCloseKey(key);
419 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
420 goto error;
421 }
422 RegCloseKey(key);
423 } else {
424 if ( !(provname = CRYPT_Alloc((strlenW(pszProvider) +1)*sizeof(WCHAR))) )
425 {
426 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
427 goto error;
428 }
429 strcpyW(provname, pszProvider);
430 }
431
432 keyname = CRYPT_GetProvKeyName(provname);
433 r = RegOpenKeyW(HKEY_LOCAL_MACHINE, keyname, &key);
434 CRYPT_Free(keyname);
435 if (r != ERROR_SUCCESS)
436 {
437 SetLastError(NTE_KEYSET_NOT_DEF);
438 goto error;
439 }
440 len = sizeof(DWORD);
441 r = RegQueryValueExW(key, typeW, NULL, NULL, (BYTE*)&type, &len);
442 if (r != ERROR_SUCCESS)
443 {
444 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
445 goto error;
446 }
447 if (type != dwProvType)
448 {
449 TRACE("Crypto provider has wrong type (%d vs expected %d).\n", type, dwProvType);
450 SetLastError(NTE_PROV_TYPE_NO_MATCH);
451 goto error;
452 }
453
454 r = RegQueryValueExW(key, imagepathW, NULL, &keytype, NULL, &len);
455 if ( r != ERROR_SUCCESS || keytype != REG_SZ)
456 {
457 TRACE("error %d reading size of 'Image Path' from registry\n", r );
458 RegCloseKey(key);
459 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
460 goto error;
461 }
462 if (!(temp = CRYPT_Alloc(len)))
463 {
464 RegCloseKey(key);
465 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
466 goto error;
467 }
468 r = RegQueryValueExW(key, imagepathW, NULL, NULL, (LPBYTE)temp, &len);
469 if( r != ERROR_SUCCESS )
470 {
471 TRACE("error %d reading 'Image Path' from registry\n", r );
472 RegCloseKey(key);
473 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
474 goto error;
475 }
476 RegCloseKey(key);
477 len = ExpandEnvironmentStringsW(temp, NULL, 0);
478 if ( !(imagepath = CRYPT_Alloc(len*sizeof(WCHAR))) )
479 {
480 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
481 goto error;
482 }
483 if (!ExpandEnvironmentStringsW(temp, imagepath, len))
484 {
485 /* ExpandEnvironmentStrings will call SetLastError */
486 goto error;
487 }
488 pProv = CRYPT_LoadProvider(imagepath);
489 if (!pProv) {
490 /* CRYPT_LoadProvider calls SetLastError */
491 goto error;
492 }
493 pProv->pVTable->dwProvType = dwProvType;
494 if(!CRYPT_UnicodeToANSI(provname, &provnameA, -1))
495 {
496 /* CRYPT_UnicodeToANSI calls SetLastError */
497 goto error;
498 }
499 pProv->pVTable->pszProvName = provnameA;
500 if(!CRYPT_UnicodeToANSI(pszContainer, &pszContainerA, -1))
501 {
502 /* CRYPT_UnicodeToANSI calls SetLastError */
503 goto error;
504 }
505 if (pProv->pFuncs->pCPAcquireContext(&pProv->hPrivate, pszContainerA, dwFlags, pProv->pVTable))
506 {
507 /* MSDN: When this flag is set, the value returned in phProv is undefined,
508 * and thus, the CryptReleaseContext function need not be called afterwards.
509 * Therefore, we must clean up everything now.
510 */
511 if (dwFlags & CRYPT_DELETEKEYSET)
512 {
513 pProv->dwMagic = 0;
514 FreeLibrary(pProv->hModule);
515 CRYPT_Free(provnameA);
516 CRYPT_Free(pProv->pVTable);
517 CRYPT_Free(pProv->pFuncs);
518 CRYPT_Free(pProv);
519 } else {
520 *phProv = (HCRYPTPROV)pProv;
521 }
522 CRYPT_Free(pszContainerA);
523 CRYPT_Free(provname);
524 CRYPT_Free(temp);
525 CRYPT_Free(imagepath);
526 return TRUE;
527 }
528 /* FALLTHROUGH TO ERROR IF FALSE - CSP internal error! */
529 error:
530 if (pProv)
531 {
532 pProv->dwMagic = 0;
533 if (pProv->hModule)
534 FreeLibrary(pProv->hModule);
535 CRYPT_Free(pProv->pVTable);
536 CRYPT_Free(pProv->pFuncs);
537 CRYPT_Free(pProv);
538 }
539 CRYPT_Free(pszContainerA);
540 CRYPT_Free(provnameA);
541 CRYPT_Free(provname);
542 CRYPT_Free(temp);
543 CRYPT_Free(imagepath);
544 return FALSE;
545 }
546
547 /******************************************************************************
548 * CryptAcquireContextA (ADVAPI32.@)
549 *
550 * See CryptAcquireContextW.
551 */
552 BOOL WINAPI CryptAcquireContextA (HCRYPTPROV *phProv, LPCSTR pszContainer,
553 LPCSTR pszProvider, DWORD dwProvType, DWORD dwFlags)
554 {
555 PWSTR pProvider = NULL, pContainer = NULL;
556 BOOL ret = FALSE;
557
558 TRACE("(%p, %s, %s, %d, %08x)\n", phProv, pszContainer,
559 pszProvider, dwProvType, dwFlags);
560
561 if ( !CRYPT_ANSIToUnicode(pszContainer, &pContainer, -1) )
562 {
563 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
564 return FALSE;
565 }
566 if ( !CRYPT_ANSIToUnicode(pszProvider, &pProvider, -1) )
567 {
568 CRYPT_Free(pContainer);
569 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
570 return FALSE;
571 }
572
573 ret = CryptAcquireContextW(phProv, pContainer, pProvider, dwProvType, dwFlags);
574
575 CRYPT_Free(pContainer);
576 CRYPT_Free(pProvider);
577
578 return ret;
579 }
580
581 /******************************************************************************
582 * CryptContextAddRef (ADVAPI32.@)
583 *
584 * Increases reference count of a cryptographic service provider handle
585 * by one.
586 *
587 * PARAMS
588 * hProv [I] Handle to the CSP whose reference is being incremented.
589 * pdwReserved [IN] Reserved for future use and must be NULL.
590 * dwFlags [I] Reserved for future use and must be NULL.
591 *
592 * RETURNS
593 * Success: TRUE
594 * Failure: FALSE
595 */
596 BOOL WINAPI CryptContextAddRef (HCRYPTPROV hProv, DWORD *pdwReserved, DWORD dwFlags)
597 {
598 PCRYPTPROV pProv = (PCRYPTPROV)hProv;
599
600 TRACE("(0x%lx, %p, %08x)\n", hProv, pdwReserved, dwFlags);
601
602 if (!pProv)
603 {
604 SetLastError(NTE_BAD_UID);
605 return FALSE;
606 }
607
608 if (pProv->dwMagic != MAGIC_CRYPTPROV)
609 {
610 SetLastError(ERROR_INVALID_PARAMETER);
611 return FALSE;
612 }
613
614 pProv->refcount++;
615 return TRUE;
616 }
617
618 /******************************************************************************
619 * CryptReleaseContext (ADVAPI32.@)
620 *
621 * Releases the handle of a CSP. Reference count is decreased.
622 *
623 * PARAMS
624 * hProv [I] Handle of a CSP.
625 * dwFlags [I] Reserved for future use and must be NULL.
626 *
627 * RETURNS
628 * Success: TRUE
629 * Failure: FALSE
630 */
631 BOOL WINAPI CryptReleaseContext (HCRYPTPROV hProv, ULONG_PTR dwFlags)
632 {
633 PCRYPTPROV pProv = (PCRYPTPROV)hProv;
634 BOOL ret = TRUE;
635
636 TRACE("(0x%lx, %08lx)\n", hProv, dwFlags);
637
638 if (!pProv)
639 {
640 SetLastError(NTE_BAD_UID);
641 return FALSE;
642 }
643
644 if (pProv->dwMagic != MAGIC_CRYPTPROV)
645 {
646 SetLastError(ERROR_INVALID_PARAMETER);
647 return FALSE;
648 }
649
650 pProv->refcount--;
651 if (pProv->refcount <= 0)
652 {
653 ret = pProv->pFuncs->pCPReleaseContext(pProv->hPrivate, dwFlags);
654 pProv->dwMagic = 0;
655 FreeLibrary(pProv->hModule);
656 #if 0
657 CRYPT_Free(pProv->pVTable->pContextInfo);
658 #endif
659 CRYPT_Free(pProv->pVTable->pszProvName);
660 CRYPT_Free(pProv->pVTable);
661 CRYPT_Free(pProv->pFuncs);
662 CRYPT_Free(pProv);
663 }
664 return ret;
665 }
666
667 /******************************************************************************
668 * CryptGenRandom (ADVAPI32.@)
669 *
670 * Fills a buffer with cryptographically random bytes.
671 *
672 * PARAMS
673 * hProv [I] Handle of a CSP.
674 * dwLen [I] Number of bytes to generate.
675 * pbBuffer [I/O] Buffer to contain random bytes.
676 *
677 * RETURNS
678 * Success: TRUE
679 * Failure: FALSE
680 *
681 * NOTES
682 * pdBuffer must be at least dwLen bytes long.
683 */
684 BOOL WINAPI CryptGenRandom (HCRYPTPROV hProv, DWORD dwLen, BYTE *pbBuffer)
685 {
686 PCRYPTPROV prov = (PCRYPTPROV)hProv;
687
688 TRACE("(0x%lx, %d, %p)\n", hProv, dwLen, pbBuffer);
689
690 if (!hProv)
691 {
692 SetLastError(ERROR_INVALID_HANDLE);
693 return FALSE;
694 }
695
696 if (prov->dwMagic != MAGIC_CRYPTPROV)
697 {
698 SetLastError(ERROR_INVALID_PARAMETER);
699 return FALSE;
700 }
701
702 return prov->pFuncs->pCPGenRandom(prov->hPrivate, dwLen, pbBuffer);
703 }
704
705 /******************************************************************************
706 * CryptCreateHash (ADVAPI32.@)
707 *
708 * Initiates the hashing of a stream of data.
709 *
710 * PARAMS
711 * hProv [I] Handle of a CSP.
712 * Algid [I] Identifies the hash algorithm to use.
713 * hKey [I] Key for the hash (if required).
714 * dwFlags [I] Reserved for future use and must be NULL.
715 * phHash [O] Address of the future handle to the new hash object.
716 *
717 * RETURNS
718 * Success: TRUE
719 * Failure: FALSE
720 *
721 * NOTES
722 * If the algorithm is a keyed hash, hKey is the key.
723 */
724 BOOL WINAPI CryptCreateHash (HCRYPTPROV hProv, ALG_ID Algid, HCRYPTKEY hKey,
725 DWORD dwFlags, HCRYPTHASH *phHash)
726 {
727 PCRYPTPROV prov = (PCRYPTPROV)hProv;
728 PCRYPTKEY key = (PCRYPTKEY)hKey;
729 PCRYPTHASH hash;
730
731 TRACE("(0x%lx, 0x%x, 0x%lx, %08x, %p)\n", hProv, Algid, hKey, dwFlags, phHash);
732
733 if (!prov)
734 {
735 SetLastError(ERROR_INVALID_HANDLE);
736 return FALSE;
737 }
738 if (!phHash || prov->dwMagic != MAGIC_CRYPTPROV)
739 {
740 SetLastError(ERROR_INVALID_PARAMETER);
741 return FALSE;
742 }
743 if (dwFlags)
744 {
745 SetLastError(NTE_BAD_FLAGS);
746 return FALSE;
747 }
748 if ( !(hash = CRYPT_Alloc(sizeof(CRYPTHASH))) )
749 {
750 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
751 return FALSE;
752 }
753
754 hash->pProvider = prov;
755
756 if (prov->pFuncs->pCPCreateHash(prov->hPrivate, Algid,
757 key ? key->hPrivate : 0, 0, &hash->hPrivate))
758 {
759 *phHash = (HCRYPTHASH)hash;
760 return TRUE;
761 }
762
763 /* CSP error! */
764 CRYPT_Free(hash);
765 *phHash = 0;
766 return FALSE;
767 }
768
769 /******************************************************************************
770 * CryptDecrypt (ADVAPI32.@)
771 *
772 * Decrypts data encrypted by CryptEncrypt.
773 *
774 * PARAMS
775 * hKey [I] Handle to the decryption key.
776 * hHash [I] Handle to a hash object.
777 * Final [I] TRUE if this is the last section to be decrypted.
778 * dwFlags [I] Reserved for future use. Can be CRYPT_OAEP.
779 * pbData [I/O] Buffer that holds the encrypted data. Holds decrypted
780 * data on return
781 * pdwDataLen [I/O] Length of pbData before and after the call.
782 *
783 * RETURNS
784 * Success: TRUE
785 * Failure: FALSE
786 */
787 BOOL WINAPI CryptDecrypt (HCRYPTKEY hKey, HCRYPTHASH hHash, BOOL Final,
788 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen)
789 {
790 PCRYPTPROV prov;
791 PCRYPTKEY key = (PCRYPTKEY)hKey;
792 PCRYPTHASH hash = (PCRYPTHASH)hHash;
793
794 TRACE("(0x%lx, 0x%lx, %d, %08x, %p, %p)\n", hKey, hHash, Final, dwFlags, pbData, pdwDataLen);
795
796 if (!key || !pbData || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
797 {
798 SetLastError(ERROR_INVALID_PARAMETER);
799 return FALSE;
800 }
801
802 prov = key->pProvider;
803 return prov->pFuncs->pCPDecrypt(prov->hPrivate, key->hPrivate, hash ? hash->hPrivate : 0,
804 Final, dwFlags, pbData, pdwDataLen);
805 }
806
807 /******************************************************************************
808 * CryptDeriveKey (ADVAPI32.@)
809 *
810 * Generates session keys derived from a base data value.
811 *
812 * PARAMS
813 * hProv [I] Handle to a CSP.
814 * Algid [I] Identifies the symmetric encryption algorithm to use.
815 * hBaseData [I] Handle to a hash object.
816 * dwFlags [I] Type of key to generate.
817 * phKey [I/O] Address of the newly generated key.
818 *
819 * RETURNS
820 * Success: TRUE
821 * Failure: FALSE
822 */
823 BOOL WINAPI CryptDeriveKey (HCRYPTPROV hProv, ALG_ID Algid, HCRYPTHASH hBaseData,
824 DWORD dwFlags, HCRYPTKEY *phKey)
825 {
826 PCRYPTPROV prov = (PCRYPTPROV)hProv;
827 PCRYPTHASH hash = (PCRYPTHASH)hBaseData;
828 PCRYPTKEY key;
829
830 TRACE("(0x%lx, 0x%08x, 0x%lx, 0x%08x, %p)\n", hProv, Algid, hBaseData, dwFlags, phKey);
831
832 if (!prov || !hash)
833 {
834 SetLastError(ERROR_INVALID_HANDLE);
835 return FALSE;
836 }
837 if (!phKey || prov->dwMagic != MAGIC_CRYPTPROV)
838 {
839 SetLastError(ERROR_INVALID_PARAMETER);
840 return FALSE;
841 }
842 if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
843 {
844 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
845 return FALSE;
846 }
847
848 key->pProvider = prov;
849 if (prov->pFuncs->pCPDeriveKey(prov->hPrivate, Algid, hash->hPrivate, dwFlags, &key->hPrivate))
850 {
851 *phKey = (HCRYPTKEY)key;
852 return TRUE;
853 }
854
855 /* CSP error! */
856 CRYPT_Free(key);
857 *phKey = 0;
858 return FALSE;
859 }
860
861 /******************************************************************************
862 * CryptDestroyHash (ADVAPI32.@)
863 *
864 * Destroys the hash object referenced by hHash.
865 *
866 * PARAMS
867 * hHash [I] Handle of the hash object to be destroyed.
868 *
869 * RETURNS
870 * Success: TRUE
871 * Failure: FALSE
872 */
873 BOOL WINAPI CryptDestroyHash (HCRYPTHASH hHash)
874 {
875 PCRYPTHASH hash = (PCRYPTHASH)hHash;
876 PCRYPTPROV prov;
877 BOOL ret;
878
879 TRACE("(0x%lx)\n", hHash);
880
881 if (!hash)
882 {
883 SetLastError(ERROR_INVALID_HANDLE);
884 return FALSE;
885 }
886
887 if (!hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
888 {
889 SetLastError(ERROR_INVALID_PARAMETER);
890 return FALSE;
891 }
892
893 prov = hash->pProvider;
894 ret = prov->pFuncs->pCPDestroyHash(prov->hPrivate, hash->hPrivate);
895 CRYPT_Free(hash);
896 return ret;
897 }
898
899 /******************************************************************************
900 * CryptDestroyKey (ADVAPI32.@)
901 *
902 * Releases the handle referenced by hKey.
903 *
904 * PARAMS
905 * hKey [I] Handle of the key to be destroyed.
906 *
907 * RETURNS
908 * Success: TRUE
909 * Failure: FALSE
910 */
911 BOOL WINAPI CryptDestroyKey (HCRYPTKEY hKey)
912 {
913 PCRYPTKEY key = (PCRYPTKEY)hKey;
914 PCRYPTPROV prov;
915 BOOL ret;
916
917 TRACE("(0x%lx)\n", hKey);
918
919 if (!key)
920 {
921 SetLastError(ERROR_INVALID_HANDLE);
922 return FALSE;
923 }
924
925 if (!key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
926 {
927 SetLastError(ERROR_INVALID_PARAMETER);
928 return FALSE;
929 }
930
931 prov = key->pProvider;
932 ret = prov->pFuncs->pCPDestroyKey(prov->hPrivate, key->hPrivate);
933 CRYPT_Free(key);
934 return ret;
935 }
936
937 /******************************************************************************
938 * CryptDuplicateHash (ADVAPI32.@)
939 *
940 * Duplicates a hash.
941 *
942 * PARAMS
943 * hHash [I] Handle to the hash to be copied.
944 * pdwReserved [I] Reserved for future use and must be zero.
945 * dwFlags [I] Reserved for future use and must be zero.
946 * phHash [O] Address of the handle to receive the copy.
947 *
948 * RETURNS
949 * Success: TRUE
950 * Failure: FALSE
951 */
952 BOOL WINAPI CryptDuplicateHash (HCRYPTHASH hHash, DWORD *pdwReserved,
953 DWORD dwFlags, HCRYPTHASH *phHash)
954 {
955 PCRYPTPROV prov;
956 PCRYPTHASH orghash, newhash;
957
958 TRACE("(0x%lx, %p, %08x, %p)\n", hHash, pdwReserved, dwFlags, phHash);
959
960 orghash = (PCRYPTHASH)hHash;
961 if (!orghash || pdwReserved || !phHash || !orghash->pProvider ||
962 orghash->pProvider->dwMagic != MAGIC_CRYPTPROV)
963 {
964 SetLastError(ERROR_INVALID_PARAMETER);
965 return FALSE;
966 }
967
968 prov = orghash->pProvider;
969 if (!prov->pFuncs->pCPDuplicateHash)
970 {
971 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
972 return FALSE;
973 }
974
975 if ( !(newhash = CRYPT_Alloc(sizeof(CRYPTHASH))) )
976 {
977 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
978 return FALSE;
979 }
980
981 newhash->pProvider = prov;
982 if (prov->pFuncs->pCPDuplicateHash(prov->hPrivate, orghash->hPrivate, pdwReserved, dwFlags, &newhash->hPrivate))
983 {
984 *phHash = (HCRYPTHASH)newhash;
985 return TRUE;
986 }
987 CRYPT_Free(newhash);
988 return FALSE;
989 }
990
991 /******************************************************************************
992 * CryptDuplicateKey (ADVAPI32.@)
993 *
994 * Duplicate a key and the key's state.
995 *
996 * PARAMS
997 * hKey [I] Handle of the key to copy.
998 * pdwReserved [I] Reserved for future use and must be NULL.
999 * dwFlags [I] Reserved for future use and must be zero.
1000 * phKey [I] Address of the handle to the duplicated key.
1001 *
1002 * RETURNS
1003 * Success: TRUE
1004 * Failure: FALSE
1005 */
1006 BOOL WINAPI CryptDuplicateKey (HCRYPTKEY hKey, DWORD *pdwReserved, DWORD dwFlags, HCRYPTKEY *phKey)
1007 {
1008 PCRYPTPROV prov;
1009 PCRYPTKEY orgkey, newkey;
1010
1011 TRACE("(0x%lx, %p, %08x, %p)\n", hKey, pdwReserved, dwFlags, phKey);
1012
1013 orgkey = (PCRYPTKEY)hKey;
1014 if (!orgkey || pdwReserved || !phKey || !orgkey->pProvider ||
1015 orgkey->pProvider->dwMagic != MAGIC_CRYPTPROV)
1016 {
1017 SetLastError(ERROR_INVALID_PARAMETER);
1018 return FALSE;
1019 }
1020
1021 prov = orgkey->pProvider;
1022 if (!prov->pFuncs->pCPDuplicateKey)
1023 {
1024 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
1025 return FALSE;
1026 }
1027
1028 if ( !(newkey = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1029 {
1030 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1031 return FALSE;
1032 }
1033
1034 newkey->pProvider = prov;
1035 if (prov->pFuncs->pCPDuplicateKey(prov->hPrivate, orgkey->hPrivate, pdwReserved, dwFlags, &newkey->hPrivate))
1036 {
1037 *phKey = (HCRYPTKEY)newkey;
1038 return TRUE;
1039 }
1040 CRYPT_Free(newkey);
1041 return FALSE;
1042 }
1043
1044 /******************************************************************************
1045 * CryptEncrypt (ADVAPI32.@)
1046 *
1047 * Encrypts data.
1048 *
1049 * PARAMS
1050 * hKey [I] Handle to the encryption key.
1051 * hHash [I] Handle to a hash object.
1052 * Final [I] TRUE if this is the last section to encrypt.
1053 * dwFlags [I] Can be CRYPT_OAEP.
1054 * pbData [I/O] Data to be encrypted. Contains encrypted data after call.
1055 * pdwDataLen [I/O] Length of the data to encrypt. Contains the length of the
1056 * encrypted data after call.
1057 * dwBufLen [I] Length of the input pbData buffer.
1058 *
1059 * RETURNS
1060 * Success: TRUE
1061 * Failure: FALSE
1062 *
1063 * NOTES
1064 * If pbData is NULL, CryptEncrypt determines stores the number of bytes
1065 * required for the returned data in pdwDataLen.
1066 */
1067 BOOL WINAPI CryptEncrypt (HCRYPTKEY hKey, HCRYPTHASH hHash, BOOL Final,
1068 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen, DWORD dwBufLen)
1069 {
1070 PCRYPTPROV prov;
1071 PCRYPTKEY key = (PCRYPTKEY)hKey;
1072 PCRYPTHASH hash = (PCRYPTHASH)hHash;
1073
1074 TRACE("(0x%lx, 0x%lx, %d, %08x, %p, %p, %d)\n", hKey, hHash, Final, dwFlags, pbData, pdwDataLen, dwBufLen);
1075
1076 if (!key || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1077 {
1078 SetLastError(ERROR_INVALID_PARAMETER);
1079 return FALSE;
1080 }
1081
1082 prov = key->pProvider;
1083 return prov->pFuncs->pCPEncrypt(prov->hPrivate, key->hPrivate, hash ? hash->hPrivate : 0,
1084 Final, dwFlags, pbData, pdwDataLen, dwBufLen);
1085 }
1086
1087 /******************************************************************************
1088 * CryptEnumProvidersW (ADVAPI32.@)
1089 *
1090 * Returns the next available CSP.
1091 *
1092 * PARAMS
1093 * dwIndex [I] Index of the next provider to be enumerated.
1094 * pdwReserved [I] Reserved for future use and must be NULL.
1095 * dwFlags [I] Reserved for future use and must be zero.
1096 * pdwProvType [O] DWORD designating the type of the provider.
1097 * pszProvName [O] Buffer that receives data from the provider.
1098 * pcbProvName [I/O] Specifies the size of pszProvName. Contains the number
1099 * of bytes stored in the buffer on return.
1100 *
1101 * RETURNS
1102 * Success: TRUE
1103 * Failure: FALSE
1104 *
1105 * NOTES
1106 * If pszProvName is NULL, CryptEnumProvidersW sets the size of the name
1107 * for memory allocation purposes.
1108 */
1109 BOOL WINAPI CryptEnumProvidersW (DWORD dwIndex, DWORD *pdwReserved,
1110 DWORD dwFlags, DWORD *pdwProvType, LPWSTR pszProvName, DWORD *pcbProvName)
1111 {
1112 HKEY hKey;
1113 static const WCHAR providerW[] = {
1114 'S','o','f','t','w','a','r','e','\\',
1115 'M','i','c','r','o','s','o','f','t','\\',
1116 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
1117 'D','e','f','a','u','l','t','s','\\',
1118 'P','r','o','v','i','d','e','r',0
1119 };
1120 static const WCHAR typeW[] = {'T','y','p','e',0};
1121
1122 TRACE("(%d, %p, %d, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1123 pdwProvType, pszProvName, pcbProvName);
1124
1125 if (pdwReserved || !pcbProvName)
1126 {
1127 SetLastError(ERROR_INVALID_PARAMETER);
1128 return FALSE;
1129 }
1130 if (dwFlags)
1131 {
1132 SetLastError(NTE_BAD_FLAGS);
1133 return FALSE;
1134 }
1135
1136 if (RegOpenKeyW(HKEY_LOCAL_MACHINE, providerW, &hKey))
1137 {
1138 SetLastError(NTE_FAIL);
1139 return FALSE;
1140 }
1141
1142 if (!pszProvName)
1143 {
1144 DWORD numkeys;
1145 WCHAR *provNameW;
1146
1147 RegQueryInfoKeyW(hKey, NULL, NULL, NULL, &numkeys, pcbProvName,
1148 NULL, NULL, NULL, NULL, NULL, NULL);
1149
1150 if (!(provNameW = CRYPT_Alloc(*pcbProvName * sizeof(WCHAR))))
1151 {
1152 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1153 return FALSE;
1154 }
1155
1156 RegEnumKeyExW(hKey, dwIndex, provNameW, pcbProvName, NULL, NULL, NULL, NULL);
1157 CRYPT_Free(provNameW);
1158 (*pcbProvName)++;
1159 *pcbProvName *= sizeof(WCHAR);
1160
1161 if (dwIndex >= numkeys)
1162 {
1163 SetLastError(ERROR_NO_MORE_ITEMS);
1164 return FALSE;
1165 }
1166 } else {
1167 DWORD size = sizeof(DWORD);
1168 DWORD result;
1169 HKEY subkey;
1170
1171 result = RegEnumKeyW(hKey, dwIndex, pszProvName, *pcbProvName / sizeof(WCHAR));
1172 if (result)
1173 {
1174 SetLastError(result);
1175 return FALSE;
1176 }
1177 if (RegOpenKeyW(hKey, pszProvName, &subkey))
1178 return FALSE;
1179 if (RegQueryValueExW(subkey, typeW, NULL, NULL, (BYTE*)pdwProvType, &size))
1180 return FALSE;
1181 RegCloseKey(subkey);
1182 }
1183 RegCloseKey(hKey);
1184 return TRUE;
1185 }
1186
1187 /******************************************************************************
1188 * CryptEnumProvidersA (ADVAPI32.@)
1189 *
1190 * See CryptEnumProvidersW.
1191 */
1192 BOOL WINAPI CryptEnumProvidersA (DWORD dwIndex, DWORD *pdwReserved,
1193 DWORD dwFlags, DWORD *pdwProvType, LPSTR pszProvName, DWORD *pcbProvName)
1194 {
1195 PWSTR str = NULL;
1196 DWORD bufsize;
1197 BOOL ret; /* = FALSE; */
1198
1199 TRACE("(%d, %p, %08x, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1200 pdwProvType, pszProvName, pcbProvName);
1201
1202 if(!CryptEnumProvidersW(dwIndex, pdwReserved, dwFlags, pdwProvType, NULL, &bufsize))
1203 return FALSE;
1204 if ( pszProvName && !(str = CRYPT_Alloc(bufsize)) )
1205 {
1206 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1207 return FALSE;
1208 }
1209 ret = CryptEnumProvidersW(dwIndex, pdwReserved, dwFlags, pdwProvType, str, &bufsize);
1210 if (str)
1211 CRYPT_UnicodeToANSI(str, &pszProvName, *pcbProvName);
1212 *pcbProvName = bufsize / sizeof(WCHAR); /* FIXME: not correct */
1213 if (str)
1214 {
1215 CRYPT_Free(str);
1216 if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
1217 {
1218 SetLastError(ERROR_MORE_DATA);
1219 return FALSE;
1220 }
1221 }
1222 return ret;
1223 }
1224
1225 /******************************************************************************
1226 * CryptEnumProviderTypesW (ADVAPI32.@)
1227 *
1228 * Retrieves the next type of CSP supported.
1229 *
1230 * PARAMS
1231 * dwIndex [I] Index of the next provider to be enumerated.
1232 * pdwReserved [I] Reserved for future use and must be NULL.
1233 * dwFlags [I] Reserved for future use and must be zero.
1234 * pdwProvType [O] DWORD designating the type of the provider.
1235 * pszTypeName [O] Buffer that receives data from the provider type.
1236 * pcbTypeName [I/O] Specifies the size of pszTypeName. Contains the number
1237 * of bytes stored in the buffer on return.
1238 *
1239 * RETURNS
1240 * Success: TRUE
1241 * Failure: FALSE
1242 *
1243 * NOTES
1244 * If pszTypeName is NULL, CryptEnumProviderTypesW sets the size of the name
1245 * for memory allocation purposes.
1246 */
1247 BOOL WINAPI CryptEnumProviderTypesW (DWORD dwIndex, DWORD *pdwReserved,
1248 DWORD dwFlags, DWORD *pdwProvType, LPWSTR pszTypeName, DWORD *pcbTypeName)
1249 {
1250 HKEY hKey, hSubkey;
1251 DWORD keylen, numkeys, dwType;
1252 PWSTR keyname, ch;
1253 DWORD result;
1254 static const WCHAR KEYSTR[] = {
1255 'S','o','f','t','w','a','r','e','\\',
1256 'M','i','c','r','o','s','o','f','t','\\',
1257 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
1258 'D','e','f','a','u','l','t','s','\\',
1259 'P','r','o','v','i','d','e','r',' ','T','y','p','e','s',0
1260 };
1261 static const WCHAR typenameW[] = {'T','y','p','e','N','a','m','e',0};
1262
1263 TRACE("(%d, %p, %08x, %p, %p, %p)\n", dwIndex, pdwReserved,
1264 dwFlags, pdwProvType, pszTypeName, pcbTypeName);
1265
1266 if (pdwReserved || !pdwProvType || !pcbTypeName)
1267 {
1268 SetLastError(ERROR_INVALID_PARAMETER);
1269 return FALSE;
1270 }
1271 if (dwFlags)
1272 {
1273 SetLastError(NTE_BAD_FLAGS);
1274 return FALSE;
1275 }
1276
1277 if (RegOpenKeyW(HKEY_LOCAL_MACHINE, KEYSTR, &hKey))
1278 return FALSE;
1279
1280 RegQueryInfoKeyW(hKey, NULL, NULL, NULL, &numkeys, &keylen, NULL, NULL, NULL, NULL, NULL, NULL);
1281 if (dwIndex >= numkeys)
1282 {
1283 SetLastError(ERROR_NO_MORE_ITEMS);
1284 return FALSE;
1285 }
1286 keylen++;
1287 if ( !(keyname = CRYPT_Alloc(keylen*sizeof(WCHAR))) )
1288 {
1289 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1290 return FALSE;
1291 }
1292 if ( RegEnumKeyW(hKey, dwIndex, keyname, keylen) ) {
1293 CRYPT_Free(keyname);
1294 return FALSE;
1295 }
1296 RegOpenKeyW(hKey, keyname, &hSubkey);
1297 ch = keyname + strlenW(keyname);
1298 /* Convert "Type 000" to 0, etc/ */
1299 *pdwProvType = *(--ch) - '0';
1300 *pdwProvType += (*(--ch) - '0') * 10;
1301 *pdwProvType += (*(--ch) - '0') * 100;
1302 CRYPT_Free(keyname);
1303
1304 result = RegQueryValueExW(hSubkey, typenameW, NULL, &dwType, (LPBYTE)pszTypeName, pcbTypeName);
1305 if (result)
1306 {
1307 SetLastError(result);
1308 return FALSE;
1309 }
1310
1311 RegCloseKey(hSubkey);
1312 RegCloseKey(hKey);
1313 return TRUE;
1314 }
1315
1316 /******************************************************************************
1317 * CryptEnumProviderTypesA (ADVAPI32.@)
1318 *
1319 * See CryptEnumProviderTypesW.
1320 */
1321 BOOL WINAPI CryptEnumProviderTypesA (DWORD dwIndex, DWORD *pdwReserved,
1322 DWORD dwFlags, DWORD *pdwProvType, LPSTR pszTypeName, DWORD *pcbTypeName)
1323 {
1324 PWSTR str = NULL;
1325 DWORD bufsize;
1326 BOOL ret;
1327
1328 TRACE("(%d, %p, %08x, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1329 pdwProvType, pszTypeName, pcbTypeName);
1330
1331 if(!CryptEnumProviderTypesW(dwIndex, pdwReserved, dwFlags, pdwProvType, NULL, &bufsize))
1332 return FALSE;
1333 if ( pszTypeName && !(str = CRYPT_Alloc(bufsize)) )
1334 {
1335 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1336 return FALSE;
1337 }
1338 ret = CryptEnumProviderTypesW(dwIndex, pdwReserved, dwFlags, pdwProvType, str, &bufsize);
1339 if (str)
1340 CRYPT_UnicodeToANSI(str, &pszTypeName, *pcbTypeName);
1341 *pcbTypeName = bufsize / sizeof(WCHAR);
1342 if (str)
1343 {
1344 CRYPT_Free(str);
1345 if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
1346 {
1347 SetLastError(ERROR_MORE_DATA);
1348 return FALSE;
1349 }
1350 }
1351 return ret;
1352 }
1353
1354 /******************************************************************************
1355 * CryptExportKey (ADVAPI32.@)
1356 *
1357 * Exports a cryptographic key from a CSP.
1358 *
1359 * PARAMS
1360 * hKey [I] Handle to the key to export.
1361 * hExpKey [I] Handle to a cryptographic key of the end user.
1362 * dwBlobType [I] Type of BLOB to be exported.
1363 * dwFlags [I] CRYPT_DESTROYKEY/SSL2_FALLBACK/OAEP.
1364 * pbData [O] Buffer to receive BLOB data.
1365 * pdwDataLen [I/O] Specifies the size of pbData.
1366 *
1367 * RETURNS
1368 * Success: TRUE
1369 * Failure: FALSE
1370 *
1371 * NOTES
1372 * if pbData is NULL, CryptExportKey sets pdwDataLen as the size of the
1373 * buffer needed to hold the BLOB.
1374 */
1375 BOOL WINAPI CryptExportKey (HCRYPTKEY hKey, HCRYPTKEY hExpKey, DWORD dwBlobType,
1376 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen)
1377 {
1378 PCRYPTPROV prov;
1379 PCRYPTKEY key = (PCRYPTKEY)hKey, expkey = (PCRYPTKEY)hExpKey;
1380
1381 TRACE("(0x%lx, 0x%lx, %d, %08x, %p, %p)\n", hKey, hExpKey, dwBlobType, dwFlags, pbData, pdwDataLen);
1382
1383 if (!key || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1384 {
1385 SetLastError(ERROR_INVALID_PARAMETER);
1386 return FALSE;
1387 }
1388
1389 prov = key->pProvider;
1390 return prov->pFuncs->pCPExportKey(prov->hPrivate, key->hPrivate, expkey ? expkey->hPrivate : 0,
1391 dwBlobType, dwFlags, pbData, pdwDataLen);
1392 }
1393
1394 /******************************************************************************
1395 * CryptGenKey (ADVAPI32.@)
1396 *
1397 * Generates a random cryptographic session key or a pub/priv key pair.
1398 *
1399 * PARAMS
1400 * hProv [I] Handle to a CSP.
1401 * Algid [I] Algorithm to use to make key.
1402 * dwFlags [I] Specifies type of key to make.
1403 * phKey [I] Address of the handle to which the new key is copied.
1404 *
1405 * RETURNS
1406 * Success: TRUE
1407 * Failure: FALSE
1408 */
1409 BOOL WINAPI CryptGenKey (HCRYPTPROV hProv, ALG_ID Algid, DWORD dwFlags, HCRYPTKEY *phKey)
1410 {
1411 PCRYPTPROV prov = (PCRYPTPROV)hProv;
1412 PCRYPTKEY key;
1413
1414 TRACE("(0x%lx, %d, %08x, %p)\n", hProv, Algid, dwFlags, phKey);
1415
1416 if (!prov)
1417 {
1418 SetLastError(ERROR_INVALID_HANDLE);
1419 return FALSE;
1420 }
1421 if (!phKey || !prov || prov->dwMagic != MAGIC_CRYPTPROV)
1422 {
1423 SetLastError(ERROR_INVALID_PARAMETER);
1424 return FALSE;
1425 }
1426 if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1427 {
1428 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1429 return FALSE;
1430 }
1431
1432 key->pProvider = prov;
1433
1434 if (prov->pFuncs->pCPGenKey(prov->hPrivate, Algid, dwFlags, &key->hPrivate))
1435 {
1436 *phKey = (HCRYPTKEY)key;
1437 return TRUE;
1438 }
1439
1440 /* CSP error! */
1441 CRYPT_Free(key);
1442 return FALSE;
1443 }
1444
1445 /******************************************************************************
1446 * CryptGetDefaultProviderW (ADVAPI32.@)
1447 *
1448 * Finds the default CSP of a certain provider type.
1449 *
1450 * PARAMS
1451 * dwProvType [I] Provider type to look for.
1452 * pdwReserved [I] Reserved for future use and must be NULL.
1453 * dwFlags [I] CRYPT_MACHINE_DEFAULT/USER_DEFAULT
1454 * pszProvName [O] Name of the default CSP.
1455 * pcbProvName [I/O] Size of pszProvName
1456 *
1457 * RETURNS
1458 * Success: TRUE
1459 * Failure: FALSE
1460 *
1461 * NOTES
1462 * If pszProvName is NULL, pcbProvName will hold the size of the buffer for
1463 * memory allocation purposes on return.
1464 */
1465 BOOL WINAPI CryptGetDefaultProviderW (DWORD dwProvType, DWORD *pdwReserved,
1466 DWORD dwFlags, LPWSTR pszProvName, DWORD *pcbProvName)
1467 {
1468 HKEY hKey;
1469 PWSTR keyname;
1470 DWORD result;
1471 static const WCHAR nameW[] = {'N','a','m','e',0};
1472
1473 if (pdwReserved || !pcbProvName)
1474 {
1475 SetLastError(ERROR_INVALID_PARAMETER);
1476 return FALSE;
1477 }
1478 if (dwFlags & ~(CRYPT_USER_DEFAULT | CRYPT_MACHINE_DEFAULT))
1479 {
1480 SetLastError(NTE_BAD_FLAGS);
1481 return FALSE;
1482 }
1483 if (dwProvType > 999)
1484 {
1485 SetLastError(NTE_BAD_PROV_TYPE);
1486 return FALSE;
1487 }
1488 if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)) )
1489 {
1490 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1491 return FALSE;
1492 }
1493 if (RegOpenKeyW((dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE ,keyname, &hKey))
1494 {
1495 CRYPT_Free(keyname);
1496 SetLastError(NTE_PROV_TYPE_NOT_DEF);
1497 return FALSE;
1498 }
1499 CRYPT_Free(keyname);
1500
1501 result = RegQueryValueExW(hKey, nameW, NULL, NULL, (LPBYTE)pszProvName, pcbProvName);
1502 if (result)
1503 {
1504 if (result != ERROR_MORE_DATA)
1505 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
1506 else
1507 SetLastError(result);
1508
1509 return FALSE;
1510 }
1511
1512 RegCloseKey(hKey);
1513 return TRUE;
1514 }
1515
1516 /******************************************************************************
1517 * CryptGetDefaultProviderA (ADVAPI32.@)
1518 *
1519 * See CryptGetDefaultProviderW.
1520 */
1521 BOOL WINAPI CryptGetDefaultProviderA (DWORD dwProvType, DWORD *pdwReserved,
1522 DWORD dwFlags, LPSTR pszProvName, DWORD *pcbProvName)
1523 {
1524 PWSTR str = NULL;
1525 DWORD bufsize;
1526 BOOL ret = FALSE;
1527
1528 TRACE("(%d, %p, %08x, %p, %p)\n", dwProvType, pdwReserved, dwFlags, pszProvName, pcbProvName);
1529
1530 CryptGetDefaultProviderW(dwProvType, pdwReserved, dwFlags, NULL, &bufsize);
1531 if ( pszProvName && !(str = CRYPT_Alloc(bufsize)) )
1532 {
1533 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1534 return FALSE;
1535 }
1536 ret = CryptGetDefaultProviderW(dwProvType, pdwReserved, dwFlags, str, &bufsize);
1537 if (str)
1538 CRYPT_UnicodeToANSI(str, &pszProvName, *pcbProvName);
1539 *pcbProvName = bufsize / sizeof(WCHAR);
1540 if (str)
1541 {
1542 CRYPT_Free(str);
1543 if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
1544 {
1545 SetLastError(ERROR_MORE_DATA);
1546 return FALSE;
1547 }
1548 }
1549 return ret;
1550 }
1551
1552 /******************************************************************************
1553 * CryptGetHashParam (ADVAPI32.@)
1554 *
1555 * Retrieves data that controls the operations of a hash object.
1556 *
1557 * PARAMS
1558 * hHash [I] Handle of the hash object to question.
1559 * dwParam [I] Query type.
1560 * pbData [O] Buffer that receives the value data.
1561 * pdwDataLen [I/O] Size of the pbData buffer.
1562 * dwFlags [I] Reserved for future use and must be zero.
1563 *
1564 * RETURNS
1565 * Success: TRUE
1566 * Failure: FALSE
1567 *
1568 * NOTES
1569 * If pbData is NULL, pdwDataLen will contain the length required.
1570 */
1571 BOOL WINAPI CryptGetHashParam (HCRYPTHASH hHash, DWORD dwParam, BYTE *pbData,
1572 DWORD *pdwDataLen, DWORD dwFlags)
1573 {
1574 PCRYPTPROV prov;
1575 PCRYPTHASH hash = (PCRYPTHASH)hHash;
1576
1577 TRACE("(0x%lx, %d, %p, %p, %08x)\n", hHash, dwParam, pbData, pdwDataLen, dwFlags);
1578
1579 if (!hash || !pdwDataLen || !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1580 {
1581 SetLastError(ERROR_INVALID_PARAMETER);
1582 return FALSE;
1583 }
1584
1585 prov = hash->pProvider;
1586 return prov->pFuncs->pCPGetHashParam(prov->hPrivate, hash->hPrivate, dwParam,
1587 pbData, pdwDataLen, dwFlags);
1588 }
1589
1590 /******************************************************************************
1591 * CryptGetKeyParam (ADVAPI32.@)
1592 *
1593 * Retrieves data that controls the operations of a key.
1594 *
1595 * PARAMS
1596 * hKey [I] Handle to they key in question.
1597 * dwParam [I] Specifies query type.
1598 * pbData [O] Sequence of bytes to receive data.
1599 * pdwDataLen [I/O] Size of pbData.
1600 * dwFlags [I] Reserved for future use and must be zero.
1601 *
1602 * RETURNS
1603 * Success: TRUE
1604 * Failure: FALSE
1605 *
1606 * NOTES
1607 * If pbData is NULL, pdwDataLen is set to the needed length of the buffer.
1608 */
1609 BOOL WINAPI CryptGetKeyParam (HCRYPTKEY hKey, DWORD dwParam, BYTE *pbData,
1610 DWORD *pdwDataLen, DWORD dwFlags)
1611 {
1612 PCRYPTPROV prov;
1613 PCRYPTKEY key = (PCRYPTKEY)hKey;
1614
1615 TRACE("(0x%lx, %d, %p, %p, %08x)\n", hKey, dwParam, pbData, pdwDataLen, dwFlags);
1616
1617 if (!key || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1618 {
1619 SetLastError(ERROR_INVALID_PARAMETER);
1620 return FALSE;
1621 }
1622
1623 prov = key->pProvider;
1624 return prov->pFuncs->pCPGetKeyParam(prov->hPrivate, key->hPrivate, dwParam,
1625 pbData, pdwDataLen, dwFlags);
1626 }
1627
1628 /******************************************************************************
1629 * CryptGetProvParam (ADVAPI32.@)
1630 *
1631 * Retrieves parameters that control the operations of a CSP.
1632 *
1633 * PARAMS
1634 * hProv [I] Handle of the CSP in question.
1635 * dwParam [I] Specifies query type.
1636 * pbData [O] Buffer to receive the data.
1637 * pdwDataLen [I/O] Size of pbData.
1638 * dwFlags [I] see MSDN Docs.
1639 *
1640 * RETURNS
1641 * Success: TRUE
1642 * Failure: FALSE
1643 *
1644 * NOTES
1645 * If pbData is NULL, pdwDataLen is set to the needed buffer length.
1646 */
1647 BOOL WINAPI CryptGetProvParam (HCRYPTPROV hProv, DWORD dwParam, BYTE *pbData,
1648 DWORD *pdwDataLen, DWORD dwFlags)
1649 {
1650 PCRYPTPROV prov = (PCRYPTPROV)hProv;
1651
1652 TRACE("(0x%lx, %d, %p, %p, %08x)\n", hProv, dwParam, pbData, pdwDataLen, dwFlags);
1653
1654 if (!prov || prov->dwMagic != MAGIC_CRYPTPROV)
1655 {
1656 SetLastError(ERROR_INVALID_PARAMETER);
1657 return FALSE;
1658 }
1659
1660 return prov->pFuncs->pCPGetProvParam(prov->hPrivate, dwParam, pbData, pdwDataLen, dwFlags);
1661 }
1662
1663 /******************************************************************************
1664 * CryptGetUserKey (ADVAPI32.@)
1665 *
1666 * Gets a handle of one of a user's two public/private key pairs.
1667 *
1668 * PARAMS
1669 * hProv [I] Handle of a CSP.
1670 * dwKeySpec [I] Private key to use.
1671 * phUserKey [O] Pointer to the handle of the retrieved keys.
1672 *
1673 * RETURNS
1674 * Success: TRUE
1675 * Failure: FALSE
1676 */
1677 BOOL WINAPI CryptGetUserKey (HCRYPTPROV hProv, DWORD dwKeySpec, HCRYPTKEY *phUserKey)
1678 {
1679 PCRYPTPROV prov = (PCRYPTPROV)hProv;
1680 PCRYPTKEY key;
1681
1682 TRACE("(0x%lx, %d, %p)\n", hProv, dwKeySpec, phUserKey);
1683
1684 if (!prov)
1685 {
1686 SetLastError(ERROR_INVALID_HANDLE);
1687 return FALSE;
1688 }
1689 if (!phUserKey || prov->dwMagic != MAGIC_CRYPTPROV)
1690 {
1691 SetLastError(ERROR_INVALID_PARAMETER);
1692 return FALSE;
1693 }
1694 if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1695 {
1696 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1697 return FALSE;
1698 }
1699
1700 key->pProvider = prov;
1701
1702 if (prov->pFuncs->pCPGetUserKey(prov->hPrivate, dwKeySpec, &key->hPrivate))
1703 {
1704 *phUserKey = (HCRYPTKEY)key;
1705 return TRUE;
1706 }
1707
1708 /* CSP Error */
1709 CRYPT_Free(key);
1710 *phUserKey = 0;
1711 return FALSE;
1712 }
1713
1714 /******************************************************************************
1715 * CryptHashData (ADVAPI32.@)
1716 *
1717 * Adds data to a hash object.
1718 *
1719 * PARAMS
1720 * hHash [I] Handle of the hash object.
1721 * pbData [I] Buffer of data to be hashed.
1722 * dwDataLen [I] Number of bytes to add.
1723 * dwFlags [I] Can be CRYPT_USERDATA
1724 *
1725 * RETURNS
1726 * Success: TRUE
1727 * Failure: FALSE
1728 */
1729 BOOL WINAPI CryptHashData (HCRYPTHASH hHash, const BYTE *pbData, DWORD dwDataLen, DWORD dwFlags)
1730 {
1731 PCRYPTHASH hash = (PCRYPTHASH)hHash;
1732 PCRYPTPROV prov;
1733
1734 TRACE("(0x%lx, %p, %d, %08x)\n", hHash, pbData, dwDataLen, dwFlags);
1735
1736 if (!hash)
1737 {
1738 SetLastError(ERROR_INVALID_HANDLE);
1739 return FALSE;
1740 }
1741 if (!hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1742 {
1743 SetLastError(ERROR_INVALID_PARAMETER);
1744 return FALSE;
1745 }
1746
1747 prov = hash->pProvider;
1748 return prov->pFuncs->pCPHashData(prov->hPrivate, hash->hPrivate, pbData, dwDataLen, dwFlags);
1749 }
1750
1751 /******************************************************************************
1752 * CryptHashSessionKey (ADVAPI32.@)
1753 *
1754 * Compute the cryptographic hash of a session key object.
1755 *
1756 * PARAMS
1757 * hHash [I] Handle to the hash object.
1758 * hKey [I] Handle to the key to be hashed.
1759 * dwFlags [I] Can be CRYPT_LITTLE_ENDIAN.
1760 *
1761 * RETURNS
1762 * Success: TRUE
1763 * Failure: FALSE
1764 */
1765 BOOL WINAPI CryptHashSessionKey (HCRYPTHASH hHash, HCRYPTKEY hKey, DWORD dwFlags)
1766 {
1767 PCRYPTHASH hash = (PCRYPTHASH)hHash;
1768 PCRYPTKEY key = (PCRYPTKEY)hKey;
1769 PCRYPTPROV prov;
1770
1771 TRACE("(0x%lx, 0x%lx, %08x)\n", hHash, hKey, dwFlags);
1772
1773 if (!hash || !key)
1774 {
1775 SetLastError(ERROR_INVALID_HANDLE);
1776 return FALSE;
1777 }
1778
1779 if (!hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1780 {
1781 SetLastError(ERROR_INVALID_PARAMETER);
1782 return FALSE;
1783 }
1784
1785 prov = hash->pProvider;
1786 return prov->pFuncs->pCPHashSessionKey(prov->hPrivate, hash->hPrivate, key->hPrivate, dwFlags);
1787 }
1788
1789 /******************************************************************************
1790 * CryptImportKey (ADVAPI32.@)
1791 *
1792 * Transfer a cryptographic key from a key BLOB into a cryptographic service provider (CSP).
1793 *
1794 * PARAMS
1795 * hProv [I] Handle of a CSP.
1796 * pbData [I] Contains the key to be imported.
1797 * dwDataLen [I] Length of the key.
1798 * hPubKey [I] Cryptographic key that decrypts pdData
1799 * dwFlags [I] Used only with a public/private key pair.
1800 * phKey [O] Imported key.
1801 *
1802 * RETURNS
1803 * Success: TRUE
1804 * Failure: FALSE
1805 */
1806 BOOL WINAPI CryptImportKey (HCRYPTPROV hProv, CONST BYTE *pbData, DWORD dwDataLen,
1807 HCRYPTKEY hPubKey, DWORD dwFlags, HCRYPTKEY *phKey)
1808 {
1809 PCRYPTPROV prov = (PCRYPTPROV)hProv;
1810 PCRYPTKEY pubkey = (PCRYPTKEY)hPubKey, importkey;
1811
1812 TRACE("(0x%lx, %p, %d, 0x%lx, %08x, %p)\n", hProv, pbData, dwDataLen, hPubKey, dwFlags, phKey);
1813
1814 if (!prov || !pbData || !dwDataLen || !phKey || prov->dwMagic != MAGIC_CRYPTPROV)
1815 {
1816 SetLastError(ERROR_INVALID_PARAMETER);
1817 return FALSE;
1818 }
1819
1820 if ( !(importkey = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1821 {
1822 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1823 return FALSE;
1824 }
1825
1826 importkey->pProvider = prov;
1827 if (prov->pFuncs->pCPImportKey(prov->hPrivate, pbData, dwDataLen,
1828 pubkey ? pubkey->hPrivate : 0, dwFlags, &importkey->hPrivate))
1829 {
1830 *phKey = (HCRYPTKEY)importkey;
1831 return TRUE;
1832 }
1833
1834 CRYPT_Free(importkey);
1835 return FALSE;
1836 }
1837
1838 /******************************************************************************
1839 * CryptSignHashW (ADVAPI32.@)
1840 *
1841 * Signs data.
1842 *
1843 * PARAMS
1844 * hHash [I] Handle of the hash object to be signed.
1845 * dwKeySpec [I] Private key to use.
1846 * sDescription [I] Should be NULL.
1847 * dwFlags [I] CRYPT_NOHASHOID/X931_FORMAT.
1848 * pbSignature [O] Buffer of the signature data.
1849 * pdwSigLen [I/O] Size of the pbSignature buffer.
1850 *
1851 * RETURNS
1852 * Success: TRUE
1853 * Failure: FALSE
1854 *
1855 * NOTES
1856 * Because of security flaws sDescription should not be used and should thus be
1857 * NULL. It is supported only for compatibility with Microsoft's Cryptographic
1858 * Providers.
1859 */
1860 BOOL WINAPI CryptSignHashW (HCRYPTHASH hHash, DWORD dwKeySpec, LPCWSTR sDescription,
1861 DWORD dwFlags, BYTE *pbSignature, DWORD *pdwSigLen)
1862 {
1863 PCRYPTHASH hash = (PCRYPTHASH)hHash;
1864 PCRYPTPROV prov;
1865
1866 TRACE("(0x%lx, %d, %s, %08x, %p, %p)\n",
1867 hHash, dwKeySpec, debugstr_w(sDescription), dwFlags, pbSignature, pdwSigLen);
1868
1869 if (!hash)
1870 {
1871 SetLastError(ERROR_INVALID_HANDLE);
1872 return FALSE;
1873 }
1874 if (!pdwSigLen || !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1875 {
1876 SetLastError(ERROR_INVALID_PARAMETER);
1877 return FALSE;
1878 }
1879
1880 prov = hash->pProvider;
1881 return prov->pFuncs->pCPSignHash(prov->hPrivate, hash->hPrivate, dwKeySpec, sDescription,
1882 dwFlags, pbSignature, pdwSigLen);
1883 }
1884
1885 /******************************************************************************
1886 * CryptSignHashA (ADVAPI32.@)
1887 *
1888 * See CryptSignHashW.
1889 */
1890 BOOL WINAPI CryptSignHashA (HCRYPTHASH hHash, DWORD dwKeySpec, LPCSTR sDescription,
1891 DWORD dwFlags, BYTE *pbSignature, DWORD *pdwSigLen)
1892 {
1893 LPWSTR wsDescription;
1894 BOOL result;
1895
1896 TRACE("(0x%lx, %d, %s, %08x, %p, %p)\n",
1897 hHash, dwKeySpec, debugstr_a(sDescription), dwFlags, pbSignature, pdwSigLen);
1898
1899 CRYPT_ANSIToUnicode(sDescription, &wsDescription, -1);
1900 result = CryptSignHashW(hHash, dwKeySpec, wsDescription, dwFlags, pbSignature, pdwSigLen);
1901 CRYPT_Free(wsDescription);
1902
1903 return result;
1904 }
1905
1906 /******************************************************************************
1907 * CryptSetHashParam (ADVAPI32.@)
1908 *
1909 * Customizes the operations of a hash object.
1910 *
1911 * PARAMS
1912 * hHash [I] Handle of the hash object to set parameters.
1913 * dwParam [I] HP_HMAC_INFO/HASHVAL.
1914 * pbData [I] Value data buffer.
1915 * dwFlags [I] Reserved for future use and must be zero.
1916 *
1917 * RETURNS
1918 * Success: TRUE
1919 * Failure: FALSE
1920 */
1921 BOOL WINAPI CryptSetHashParam (HCRYPTHASH hHash, DWORD dwParam, CONST BYTE *pbData, DWORD dwFlags)
1922 {
1923 PCRYPTPROV prov;
1924 PCRYPTHASH hash = (PCRYPTHASH)hHash;
1925
1926 TRACE("(0x%lx, %d, %p, %08x)\n", hHash, dwParam, pbData, dwFlags);
1927
1928 if (!hash || !pbData || !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1929 {
1930 SetLastError(ERROR_INVALID_PARAMETER);
1931 return FALSE;
1932 }
1933
1934 prov = hash->pProvider;
1935 return prov->pFuncs->pCPSetHashParam(prov->hPrivate, hash->hPrivate,
1936 dwParam, pbData, dwFlags);
1937 }
1938
1939 /******************************************************************************
1940 * CryptSetKeyParam (ADVAPI32.@)
1941 *
1942 * Customizes a session key's operations.
1943 *
1944 * PARAMS
1945 * hKey [I] Handle to the key to set values.
1946 * dwParam [I] See MSDN Doc.
1947 * pbData [I] Buffer of values to set.
1948 * dwFlags [I] Only used when dwParam == KP_ALGID.
1949 *
1950 * RETURNS
1951 * Success: TRUE
1952 * Failure: FALSE
1953 */
1954 BOOL WINAPI CryptSetKeyParam (HCRYPTKEY hKey, DWORD dwParam, CONST BYTE *pbData, DWORD dwFlags)
1955 {
1956 PCRYPTPROV prov;
1957 PCRYPTKEY key = (PCRYPTKEY)hKey;
1958
1959 TRACE("(0x%lx, %d, %p, %08x)\n", hKey, dwParam, pbData, dwFlags);
1960
1961 if (!key || !pbData || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1962 {
1963 SetLastError(ERROR_INVALID_PARAMETER);
1964 return FALSE;
1965 }
1966
1967 prov = key->pProvider;
1968 return prov->pFuncs->pCPSetKeyParam(prov->hPrivate, key->hPrivate,
1969 dwParam, pbData, dwFlags);
1970 }
1971
1972 /******************************************************************************
1973 * CryptSetProviderA (ADVAPI32.@)
1974 *
1975 * Specifies the current user's default CSP.
1976 *
1977 * PARAMS
1978 * pszProvName [I] Name of the new default CSP.
1979 * dwProvType [I] Provider type of the CSP.
1980 *
1981 * RETURNS
1982 * Success: TRUE
1983 * Failure: FALSE
1984 */
1985 BOOL WINAPI CryptSetProviderA (LPCSTR pszProvName, DWORD dwProvType)
1986 {
1987 TRACE("(%s, %d)\n", pszProvName, dwProvType);
1988 return CryptSetProviderExA(pszProvName, dwProvType, NULL, CRYPT_USER_DEFAULT);
1989 }
1990
1991 /******************************************************************************
1992 * CryptSetProviderW (ADVAPI32.@)
1993 *
1994 * See CryptSetProviderA.
1995 */
1996 BOOL WINAPI CryptSetProviderW (LPCWSTR pszProvName, DWORD dwProvType)
1997 {
1998 TRACE("(%s, %d)\n", debugstr_w(pszProvName), dwProvType);
1999 return CryptSetProviderExW(pszProvName, dwProvType, NULL, CRYPT_USER_DEFAULT);
2000 }
2001
2002 /******************************************************************************
2003 * CryptSetProviderExW (ADVAPI32.@)
2004 *
2005 * Specifies the default CSP.
2006 *
2007 * PARAMS
2008 * pszProvName [I] Name of the new default CSP.
2009 * dwProvType [I] Provider type of the CSP.
2010 * pdwReserved [I] Reserved for future use and must be NULL.
2011 * dwFlags [I] See MSDN Doc.
2012 *
2013 * RETURNS
2014 * Success: TRUE
2015 * Failure: FALSE
2016 */
2017 BOOL WINAPI CryptSetProviderExW (LPCWSTR pszProvName, DWORD dwProvType, DWORD *pdwReserved, DWORD dwFlags)
2018 {
2019 HKEY hProvKey, hTypeKey;
2020 PWSTR keyname;
2021 static const WCHAR nameW[] = {'N','a','m','e',0};
2022
2023 TRACE("(%s, %d, %p, %08x)\n", debugstr_w(pszProvName), dwProvType, pdwReserved, dwFlags);
2024
2025 if (!pszProvName || pdwReserved)
2026 {
2027 SetLastError(ERROR_INVALID_PARAMETER);
2028 return FALSE;
2029 }
2030 if (dwProvType > MAXPROVTYPES)
2031 {
2032 SetLastError(NTE_BAD_PROV_TYPE);
2033 return FALSE;
2034 }
2035 if (dwFlags & ~(CRYPT_MACHINE_DEFAULT | CRYPT_USER_DEFAULT | CRYPT_DELETE_DEFAULT)
2036 || dwFlags == CRYPT_DELETE_DEFAULT)
2037 {
2038 SetLastError(NTE_BAD_FLAGS);
2039 return FALSE;
2040 }
2041
2042 if (!(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)))
2043 {
2044 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
2045 return FALSE;
2046 }
2047 if (RegOpenKeyW((dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE,
2048 keyname, &hTypeKey))
2049 {
2050 CRYPT_Free(keyname);
2051 SetLastError(NTE_BAD_PROVIDER);
2052 return FALSE;
2053 }
2054 CRYPT_Free(keyname);
2055
2056 if (dwFlags & CRYPT_DELETE_DEFAULT)
2057 {
2058 RegDeleteValueW(hTypeKey, nameW);
2059 }
2060 else
2061 {
2062 if (!(keyname = CRYPT_GetProvKeyName(pszProvName)))
2063 {
2064 RegCloseKey(hTypeKey);
2065 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
2066 return FALSE;
2067 }
2068 if (RegOpenKeyW((dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE,
2069 keyname, &hProvKey))
2070 {
2071 CRYPT_Free(keyname);
2072 RegCloseKey(hTypeKey);
2073 SetLastError(NTE_BAD_PROVIDER);
2074 return FALSE;
2075 }
2076 CRYPT_Free(keyname);
2077
2078 if (RegSetValueExW(hTypeKey, nameW, 0, REG_SZ, (const BYTE *)pszProvName,
2079 (strlenW(pszProvName) + 1)*sizeof(WCHAR)))
2080 {
2081 RegCloseKey(hTypeKey);
2082 RegCloseKey(hProvKey);
2083 return FALSE;
2084 }
2085
2086 RegCloseKey(hProvKey);
2087 }
2088 RegCloseKey(hTypeKey);
2089
2090 return TRUE;
2091 }
2092
2093 /******************************************************************************
2094 * CryptSetProviderExA (ADVAPI32.@)
2095 *
2096 * See CryptSetProviderExW.
2097 */
2098 BOOL WINAPI CryptSetProviderExA (LPCSTR pszProvName, DWORD dwProvType, DWORD *pdwReserved, DWORD dwFlags)
2099 {
2100 BOOL ret = FALSE;
2101 PWSTR str = NULL;
2102
2103 TRACE("(%s, %d, %p, %08x)\n", pszProvName, dwProvType, pdwReserved, dwFlags);
2104
2105 if (CRYPT_ANSIToUnicode(pszProvName, &str, -1))
2106 {
2107 ret = CryptSetProviderExW(str, dwProvType, pdwReserved, dwFlags);
2108 CRYPT_Free(str);
2109 }
2110 return ret;
2111 }
2112
2113 /******************************************************************************
2114 * CryptSetProvParam (ADVAPI32.@)
2115 *
2116 * Customizes the operations of a CSP.
2117 *
2118 * PARAMS
2119 * hProv [I] Handle of a CSP.
2120 * dwParam [I] See MSDN Doc.
2121 * pbData [I] Buffer that contains a value to set as a parameter.
2122 * dwFlags [I] if dwParam is PP_USE_HARDWARE_RNG, dwFlags must be zero.
2123 *
2124 * RETURNS
2125 * Success: TRUE
2126 * Failure: FALSE
2127 */
2128 BOOL WINAPI CryptSetProvParam (HCRYPTPROV hProv, DWORD dwParam, CONST BYTE *pbData, DWORD dwFlags)
2129 {
2130 PCRYPTPROV prov = (PCRYPTPROV)hProv;
2131
2132 TRACE("(0x%lx, %d, %p, %08x)\n", hProv, dwParam, pbData, dwFlags);
2133
2134 if (!prov)
2135 {
2136 SetLastError(ERROR_INVALID_HANDLE);
2137 return FALSE;
2138 }
2139 if (prov->dwMagic != MAGIC_CRYPTPROV)
2140 {
2141 SetLastError(ERROR_INVALID_PARAMETER);
2142 return FALSE;
2143 }
2144 if (dwFlags & PP_USE_HARDWARE_RNG)
2145 {
2146 FIXME("PP_USE_HARDWARE_RNG: What do I do with this?\n");
2147 FIXME("\tLetting the CSP decide.\n");
2148 }
2149 if (dwFlags & PP_CLIENT_HWND)
2150 {
2151 /* FIXME: Should verify the parameter */
2152 if (pbData /* && IsWindow((HWND)pbData) */)
2153 {
2154 crypt_hWindow = (HWND)(pbData);
2155 return TRUE;
2156 } else {
2157 SetLastError(ERROR_INVALID_PARAMETER);
2158 return FALSE;
2159 }
2160 }
2161 /* All other flags go to the CSP */
2162 return prov->pFuncs->pCPSetProvParam(prov->hPrivate, dwParam, pbData, dwFlags);
2163 }
2164
2165 /******************************************************************************
2166 * CryptVerifySignatureW (ADVAPI32.@)
2167 *
2168 * Verifies the signature of a hash object.
2169 *
2170 * PARAMS
2171 * hHash [I] Handle of the hash object to verify.
2172 * pbSignature [I] Signature data to verify.
2173 * dwSigLen [I] Size of pbSignature.
2174 * hPubKey [I] Handle to the public key to authenticate signature.
2175 * sDescription [I] Should be NULL.
2176 * dwFlags [I] See MSDN doc.
2177 *
2178 * RETURNS
2179 * Success: TRUE
2180 * Failure: FALSE
2181 *
2182 * NOTES
2183 * Because of security flaws sDescription should not be used and should thus be
2184 * NULL. It is supported only for compatibility with Microsoft's Cryptographic
2185 * Providers.
2186 */
2187 BOOL WINAPI CryptVerifySignatureW (HCRYPTHASH hHash, CONST BYTE *pbSignature, DWORD dwSigLen,
2188 HCRYPTKEY hPubKey, LPCWSTR sDescription, DWORD dwFlags)
2189 {
2190 PCRYPTHASH hash = (PCRYPTHASH)hHash;
2191 PCRYPTKEY key = (PCRYPTKEY)hPubKey;
2192 PCRYPTPROV prov;
2193
2194 TRACE("(0x%lx, %p, %d, 0x%lx, %s, %08x)\n", hHash, pbSignature,
2195 dwSigLen, hPubKey, debugstr_w(sDescription), dwFlags);
2196
2197 if (!hash || !key ||
2198 !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV ||
2199 !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
2200 {
2201 SetLastError(ERROR_INVALID_PARAMETER);
2202 return FALSE;
2203 }
2204
2205 prov = hash->pProvider;
2206 return prov->pFuncs->pCPVerifySignature(prov->hPrivate, hash->hPrivate, pbSignature, dwSigLen,
2207 key->hPrivate, sDescription, dwFlags);
2208 }
2209
2210 /******************************************************************************
2211 * CryptVerifySignatureA (ADVAPI32.@)
2212 *
2213 * See CryptVerifySignatureW.
2214 */
2215 BOOL WINAPI CryptVerifySignatureA (HCRYPTHASH hHash, CONST BYTE *pbSignature, DWORD dwSigLen,
2216 HCRYPTKEY hPubKey, LPCSTR sDescription, DWORD dwFlags)
2217 {
2218 LPWSTR wsDescription;
2219 BOOL result;
2220
2221 TRACE("(0x%lx, %p, %d, 0x%lx, %s, %08x)\n", hHash, pbSignature,
2222 dwSigLen, hPubKey, debugstr_a(sDescription), dwFlags);
2223
2224 CRYPT_ANSIToUnicode(sDescription, &wsDescription, -1);
2225 result = CryptVerifySignatureW(hHash, pbSignature, dwSigLen, hPubKey, wsDescription, dwFlags);
2226 CRYPT_Free(wsDescription);
2227
2228 return result;
2229 }
2230
2231 /******************************************************************************
2232 * SystemFunction030 (ADVAPI32.@)
2233 *
2234 * Tests if two blocks of 16 bytes are equal
2235 *
2236 * PARAMS
2237 * b1,b2 [I] block of 16 bytes
2238 *
2239 * RETURNS
2240 * TRUE if blocks are the same
2241 * FALSE if blocks are different
2242 */
2243 BOOL WINAPI SystemFunction030(LPCVOID b1, LPCVOID b2)
2244 {
2245 return !memcmp(b1, b2, 0x10);
2246 }
2247
2248 /******************************************************************************
2249 * SystemFunction035 (ADVAPI32.@)
2250 *
2251 * Described here:
2252 http://disc.server.com/discussion.cgi?disc=148775;article=942;title=Coding%2FASM%2FSystem
2253 *
2254 * NOTES
2255 * Stub, always return TRUE.
2256 */
2257 BOOL WINAPI SystemFunction035(LPCSTR lpszDllFilePath)
2258 {
2259 FIXME("%s: stub\n", debugstr_a(lpszDllFilePath));
2260 return TRUE;
2261 }
2262
2263 /******************************************************************************
2264 * SystemFunction036 (ADVAPI32.@)
2265 *
2266 * MSDN documents this function as RtlGenRandom and declares it in ntsecapi.h
2267 *
2268 * PARAMS
2269 * pbBufer [O] Pointer to memory to receive random bytes.
2270 * dwLen [I] Number of random bytes to fetch.
2271 *
2272 * RETURNS
2273 * Success: TRUE
2274 * Failure: FALSE
2275 */
2276
2277 BOOL WINAPI SystemFunction036(PVOID pbBuffer, ULONG dwLen)
2278 {
2279 int dev_random;
2280
2281 dev_random = open("/dev/urandom", O_RDONLY);
2282 if (dev_random != -1)
2283 {
2284 if (read(dev_random, pbBuffer, dwLen) == (ssize_t)dwLen)
2285 {
2286 close(dev_random);
2287 return TRUE;
2288 }
2289 close(dev_random);
2290 }
2291 else
2292 FIXME("couldn't open /dev/urandom\n");
2293 SetLastError(NTE_FAIL);
2294 return FALSE;
2295 }
2296
2297 /*
2298 These functions have nearly identical prototypes to CryptProtectMemory and CryptUnprotectMemory,
2299 in crypt32.dll.
2300 */
2301
2302 /******************************************************************************
2303 * SystemFunction040 (ADVAPI32.@)
2304 *
2305 * MSDN documents this function as RtlEncryptMemory.
2306 *
2307 * PARAMS
2308 * memory [I/O] Pointer to memory to encrypt.
2309 * length [I] Length of region to encrypt in bytes.
2310 * flags [I] Control whether other processes are able to decrypt the memory.
2311 * RTL_ENCRYPT_OPTION_SAME_PROCESS
2312 * RTL_ENCRYPT_OPTION_CROSS_PROCESS
2313 * RTL_ENCRYPT_OPTION_SAME_LOGON
2314 *
2315 * RETURNS
2316 * Success: STATUS_SUCCESS
2317 * Failure: NTSTATUS error code
2318 *
2319 * NOTES
2320 * length must be a multiple of RTL_ENCRYPT_MEMORY_SIZE.
2321 * If flags are specified when encrypting, the same flag value must be given
2322 * when decrypting the memory.
2323 */
2324 NTSTATUS WINAPI SystemFunction040(PVOID memory, ULONG length, ULONG flags)
2325 {
2326 FIXME("(%p, %x, %x): stub [RtlEncryptMemory]\n", memory, length, flags);
2327 return STATUS_SUCCESS;
2328 }
2329
2330 /******************************************************************************
2331 * SystemFunction041 (ADVAPI32.@)
2332 *
2333 * MSDN documents this function as RtlDecryptMemory.
2334 *
2335 * PARAMS
2336 * memory [I/O] Pointer to memory to decrypt.
2337 * length [I] Length of region to decrypt in bytes.
2338 * flags [I] Control whether other processes are able to decrypt the memory.
2339 * RTL_ENCRYPT_OPTION_SAME_PROCESS
2340 * RTL_ENCRYPT_OPTION_CROSS_PROCESS
2341 * RTL_ENCRYPT_OPTION_SAME_LOGON
2342 *
2343 * RETURNS
2344 * Success: STATUS_SUCCESS
2345 * Failure: NTSTATUS error code
2346 *
2347 * NOTES
2348 * length must be a multiple of RTL_ENCRYPT_MEMORY_SIZE.
2349 * If flags are specified when encrypting, the same flag value must be given
2350 * when decrypting the memory.
2351 */
2352 NTSTATUS WINAPI SystemFunction041(PVOID memory, ULONG length, ULONG flags)
2353 {
2354 FIXME("(%p, %x, %x): stub [RtlDecryptMemory]\n", memory, length, flags);
2355 return STATUS_SUCCESS;
2356 }
Quick hack tree for wine patches julliard doesn't want to commit