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