git.oblomov.eu Git - wine/blob - dlls/advapi32/crypt.c

   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18  */
  19
  20 /***********************************************************************
  21  *
  22  *  TODO:
  23  *  - Reference counting
  24  *  - Thread-safing
  25  *  - Signature checking
  26  */
  27
  28 #include <time.h>
  29 #include <stdlib.h>
  30 #include <stdio.h>
  31
  32 #include "wine/unicode.h"
  33 #include "crypt.h"
  34 #include "winnls.h"
  35 #include "wincrypt.h"
  36 #include "windef.h"
  37 #include "winerror.h"
  38 #include "winreg.h"
  39 #include "winbase.h"
  40 #include "winuser.h"
  41 #include "wine/debug.h"
  42 #include "winternl.h"
  43 #include "ntstatus.h"
  44
  45 WINE_DEFAULT_DEBUG_CHANNEL(crypt);
  46
  47 HWND crypt_hWindow = 0;
  48
  49 #define CRYPT_ReturnLastError(err) {SetLastError(err); return FALSE;}
  50
  51 #define CRYPT_Alloc(size) ((LPVOID)LocalAlloc(LMEM_ZEROINIT, size))
  52 #define CRYPT_Free(buffer) (LocalFree((HLOCAL)buffer))
  53
  54 static inline PSTR CRYPT_GetProvKeyName(PCSTR pProvName)
  55 {
  56         PCSTR KEYSTR = "Software\\Microsoft\\Cryptography\\Defaults\\Provider\\";
  57         PSTR keyname;
  58
  59         keyname = CRYPT_Alloc(strlen(KEYSTR) + strlen(pProvName) +1);
  60         if (keyname)
  61         {
  62                 strcpy(keyname, KEYSTR);
  63                 strcpy(keyname + strlen(KEYSTR), pProvName);
  64         } else
  65                 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
  66         return keyname;
  67 }
  68
  69 static inline PSTR CRYPT_GetTypeKeyName(DWORD dwType, BOOL user)
  70 {
  71         PCSTR MACHINESTR = "Software\\Microsoft\\Cryptography\\Defaults\\Provider Types\\Type XXX";
  72         PCSTR USERSTR = "Software\\Microsoft\\Cryptography\\Provider Type XXX";
  73         PSTR keyname;
  74         PSTR ptr;
  75
  76         keyname = CRYPT_Alloc( (user ? strlen(USERSTR) : strlen(MACHINESTR)) +1);
  77         if (keyname)
  78         {
  79                 user ? strcpy(keyname, USERSTR) : strcpy(keyname, MACHINESTR);
  80                 ptr = keyname + strlen(keyname);
  81                 *(--ptr) = (dwType % 10) + '0';
  82                 *(--ptr) = ((dwType / 10) % 10) + '0';
  83                 *(--ptr) = (dwType / 100) + '0';
  84         } else
  85                 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
  86         return keyname;
  87 }
  88
  89 /* CRYPT_UnicodeTOANSI
  90  * wstr - unicode string
  91  * str - pointer to ANSI string
  92  * strsize - size of buffer pointed to by str or -1 if we have to do the allocation
  93  *
  94  * returns TRUE if unsuccessfull, FALSE otherwise.
  95  * if wstr is NULL, returns TRUE and sets str to NULL! Value of str should be checked after call
  96  */
  97 static inline BOOL CRYPT_UnicodeToANSI(LPCWSTR wstr, LPSTR* str, int strsize)
  98 {
  99         int count;
 100
 101         if (!wstr)
 102         {
 103                 *str = NULL;
 104                 return TRUE;
 105         }
 106         count = WideCharToMultiByte(CP_ACP, 0, wstr, -1, NULL, 0, NULL, NULL);
 107         count = count < strsize ? count : strsize;
 108         if (strsize == -1)
 109                 *str = CRYPT_Alloc(count * sizeof(CHAR));
 110         if (*str)
 111         {
 112                 WideCharToMultiByte(CP_ACP, 0, wstr, -1, *str, count, NULL, NULL);
 113                 return TRUE;
 114         }
 115         SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 116         return FALSE;
 117 }
 118
 119 /* CRYPT_ANSITOUnicode
 120  * str - ANSI string
 121  * wstr - pointer to unicode string
 122  * wstrsize - size of buffer pointed to by wstr or -1 if we have to do the allocation
 123  */
 124 static inline BOOL CRYPT_ANSIToUnicode(LPCSTR str, LPWSTR* wstr, int wstrsize)
 125 {
 126         int wcount;
 127
 128         if (!str)
 129         {
 130                 *wstr = NULL;
 131                 return TRUE;
 132         }
 133         wcount = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
 134         wcount = wcount < wstrsize/sizeof(WCHAR) ? wcount : wstrsize/sizeof(WCHAR);
 135         if (wstrsize == -1)
 136                 *wstr = CRYPT_Alloc(wcount * sizeof(WCHAR));
 137         if (*wstr)
 138         {
 139                 MultiByteToWideChar(CP_ACP, 0, str, -1, *wstr, wcount);
 140                 return TRUE;
 141         }
 142         SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 143         return FALSE;
 144 }
 145
 146 /* These next 2 functions are used by the VTableProvStruc structure */
 147 static BOOL CALLBACK CRYPT_VerifyImage(LPCSTR lpszImage, BYTE* pData)
 148 {
 149         if (!lpszImage || !pData)
 150         {
 151                 SetLastError(ERROR_INVALID_PARAMETER);
 152                 return FALSE;
 153         }
 154
 155         FIXME("(%s, %p): not verifying image\n", lpszImage, pData);
 156
 157         return TRUE;
 158 }
 159
 160 static BOOL CALLBACK CRYPT_ReturnhWnd(HWND *phWnd)
 161 {
 162         if (!phWnd)
 163                 return FALSE;
 164         *phWnd = crypt_hWindow;
 165         return TRUE;
 166 }
 167
 168 #define CRYPT_GetProvFunc(name) \
 169         if ( !(provider->pFuncs->p##name = (void*)GetProcAddress(provider->hModule, #name)) ) goto error
 170 #define CRYPT_GetProvFuncOpt(name) \
 171         provider->pFuncs->p##name = (void*)GetProcAddress(provider->hModule, #name)
 172 PCRYPTPROV CRYPT_LoadProvider(PSTR pImage)
 173 {
 174         PCRYPTPROV provider;
 175         DWORD errorcode = ERROR_NOT_ENOUGH_MEMORY;
 176
 177         if ( !(provider = CRYPT_Alloc(sizeof(CRYPTPROV))) ) goto error;
 178         if ( !(provider->pFuncs = CRYPT_Alloc(sizeof(PROVFUNCS))) ) goto error;
 179         if ( !(provider->pVTable = CRYPT_Alloc(sizeof(VTableProvStruc))) ) goto error;
 180         if ( !(provider->hModule = LoadLibraryA(pImage)) )
 181         {
 182                 errorcode = (GetLastError() == ERROR_FILE_NOT_FOUND) ? NTE_PROV_DLL_NOT_FOUND : NTE_PROVIDER_DLL_FAIL;
 183                 FIXME("Failed to load dll %s\n", debugstr_a(pImage));
 184                 goto error;
 185         }
 186         provider->refcount = 1;
 187
 188         errorcode = NTE_PROVIDER_DLL_FAIL;
 189         CRYPT_GetProvFunc(CPAcquireContext);
 190         CRYPT_GetProvFunc(CPCreateHash);
 191         CRYPT_GetProvFunc(CPDecrypt);
 192         CRYPT_GetProvFunc(CPDeriveKey);
 193         CRYPT_GetProvFunc(CPDestroyHash);
 194         CRYPT_GetProvFunc(CPDestroyKey);
 195         CRYPT_GetProvFuncOpt(CPDuplicateHash);
 196         CRYPT_GetProvFuncOpt(CPDuplicateKey);
 197         CRYPT_GetProvFunc(CPEncrypt);
 198         CRYPT_GetProvFunc(CPExportKey);
 199         CRYPT_GetProvFunc(CPGenKey);
 200         CRYPT_GetProvFunc(CPGenRandom);
 201         CRYPT_GetProvFunc(CPGetHashParam);
 202         CRYPT_GetProvFunc(CPGetKeyParam);
 203         CRYPT_GetProvFunc(CPGetProvParam);
 204         CRYPT_GetProvFunc(CPGetUserKey);
 205         CRYPT_GetProvFunc(CPHashData);
 206         CRYPT_GetProvFunc(CPHashSessionKey);
 207         CRYPT_GetProvFunc(CPImportKey);
 208         CRYPT_GetProvFunc(CPReleaseContext);
 209         CRYPT_GetProvFunc(CPSetHashParam);
 210         CRYPT_GetProvFunc(CPSetKeyParam);
 211         CRYPT_GetProvFunc(CPSetProvParam);
 212         CRYPT_GetProvFunc(CPSignHash);
 213         CRYPT_GetProvFunc(CPVerifySignature);
 214
 215         /* FIXME: Not sure what the pbContextInfo field is for.
 216          *        Does it need memory allocation?
 217          */
 218         provider->pVTable->Version = 3;
 219         provider->pVTable->pFuncVerifyImage = (FARPROC)CRYPT_VerifyImage;
 220         provider->pVTable->pFuncReturnhWnd = (FARPROC)CRYPT_ReturnhWnd;
 221         provider->pVTable->dwProvType = 0;
 222         provider->pVTable->pbContextInfo = NULL;
 223         provider->pVTable->cbContextInfo = 0;
 224         provider->pVTable->pszProvName = NULL;
 225         return provider;
 226
 227 error:
 228         SetLastError(errorcode);
 229         if (provider)
 230         {
 231                 if (provider->hModule)
 232                         FreeLibrary(provider->hModule);
 233                 CRYPT_Free(provider->pVTable);
 234                 CRYPT_Free(provider->pFuncs);
 235                 CRYPT_Free(provider);
 236         }
 237         return NULL;
 238 }
 239 #undef CRYPT_GetProvFunc
 240 #undef CRYPT_GetProvFuncOpt
 241
 242
 243 /******************************************************************************
 244  * CryptAcquireContextA (ADVAPI32.@)
 245  * Acquire a crypto provider context handle.
 246  *
 247  * PARAMS
 248  * phProv: Pointer to HCRYPTPROV for the output.
 249  * pszContainer: Key Container Name
 250  * pszProvider: Cryptographic Service Provider Name
 251  * dwProvType: Crypto provider type to get a handle.
 252  * dwFlags: flags for the operation
 253  *
 254  * RETURNS TRUE on success, FALSE on failure.
 255  */
 256 BOOL WINAPI CryptAcquireContextA (HCRYPTPROV *phProv, LPCSTR pszContainer,
 257                 LPCSTR pszProvider, DWORD dwProvType, DWORD dwFlags)
 258 {
 259         PCRYPTPROV pProv = NULL;
 260         HKEY key;
 261         PSTR imagepath = NULL, keyname = NULL, provname = NULL, temp = NULL;
 262         BYTE* signature;
 263         DWORD keytype, type, len;
 264         ULONG r;
 265
 266         TRACE("(%p, %s, %s, %ld, %08lx)\n", phProv, pszContainer,
 267                 pszProvider, dwProvType, dwFlags);
 268
 269         if (dwProvType < 1 || dwProvType > MAXPROVTYPES)
 270         {
 271                 SetLastError(NTE_BAD_PROV_TYPE);
 272                 return FALSE;
 273         }
 274
 275         if (!phProv)
 276         {
 277                 SetLastError(ERROR_INVALID_PARAMETER);
 278                 return FALSE;
 279         }
 280
 281         if (!pszProvider || !*pszProvider)
 282         {
 283                 /* No CSP name specified so try the user default CSP first
 284                  * then try the machine default CSP
 285                  */
 286                 if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, TRUE)) ) {
 287                         TRACE("No provider registered for crypto provider type %ld.\n", dwProvType);
 288                         SetLastError(NTE_PROV_TYPE_NOT_DEF);
 289                         return FALSE;
 290                 }
 291                 if (RegOpenKeyA(HKEY_CURRENT_USER, keyname, &key))
 292                 {
 293                         CRYPT_Free(keyname);
 294                         if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, FALSE)) ) {
 295                                 TRACE("No type registered for crypto provider type %ld.\n", dwProvType);
 296                                 RegCloseKey(key);
 297                                 SetLastError(NTE_PROV_TYPE_NOT_DEF);
 298                                 goto error;
 299                         }
 300                         if (RegOpenKeyA(HKEY_LOCAL_MACHINE, keyname, &key)) {
 301                                 TRACE("Did not find registry entry of crypto provider for %s.\n", debugstr_a(keyname));
 302                                 CRYPT_Free(keyname);
 303                                 RegCloseKey(key);
 304                                 SetLastError(NTE_PROV_TYPE_NOT_DEF);
 305                                 goto error;
 306                         }
 307                 }
 308                 CRYPT_Free(keyname);
 309                 r = RegQueryValueExA(key, "Name", NULL, &keytype, NULL, &len);
 310                 if( r != ERROR_SUCCESS || !len || keytype != REG_SZ)
 311                 {
 312                         TRACE("error %ld reading size of 'Name' from registry\n", r );
 313                         RegCloseKey(key);
 314                         SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 315                         goto error;
 316                 }
 317                 if(!(provname = CRYPT_Alloc(len)))
 318                 {
 319                         RegCloseKey(key);
 320                         SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 321                         goto error;
 322                 }
 323                 r = RegQueryValueExA(key, "Name", NULL, NULL, provname, &len);
 324                 if( r != ERROR_SUCCESS )
 325                 {
 326                         TRACE("error %ld reading 'Name' from registry\n", r );
 327                         RegCloseKey(key);
 328                         SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 329                         goto error;
 330                 }
 331                 RegCloseKey(key);
 332         } else {
 333                 if ( !(provname = CRYPT_Alloc(strlen(pszProvider) +1)) )
 334                 {
 335                         SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 336                         goto error;
 337                 }
 338                 strcpy(provname, pszProvider);
 339         }
 340
 341         keyname = CRYPT_GetProvKeyName(provname);
 342         r = RegOpenKeyA(HKEY_LOCAL_MACHINE, keyname, &key);
 343         CRYPT_Free(keyname);
 344         if (r != ERROR_SUCCESS)
 345         {
 346                 SetLastError(NTE_KEYSET_NOT_DEF);
 347                 goto error;
 348         }
 349         len = sizeof(DWORD);
 350         r = RegQueryValueExA(key, "Type", NULL, NULL, (BYTE*)&type, &len);
 351         if (r != ERROR_SUCCESS)
 352         {
 353                 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 354                 goto error;
 355         }
 356         if (type != dwProvType)
 357         {
 358                 TRACE("Crypto provider has wrong type (%ld vs expected %ld).\n", type, dwProvType);
 359                 SetLastError(NTE_PROV_TYPE_NO_MATCH);
 360                 goto error;
 361         }
 362
 363         r = RegQueryValueExA(key, "Image Path", NULL, &keytype, NULL, &len);
 364         if ( r != ERROR_SUCCESS || keytype != REG_SZ)
 365         {
 366                 TRACE("error %ld reading size of 'Image Path' from registry\n", r );
 367                 RegCloseKey(key);
 368                 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 369                 goto error;
 370         }
 371         if (!(temp = CRYPT_Alloc(len)))
 372         {
 373                 RegCloseKey(key);
 374                 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 375                 goto error;
 376         }
 377         r = RegQueryValueExA(key, "Image Path", NULL, NULL, temp, &len);
 378         if( r != ERROR_SUCCESS )
 379         {
 380                 TRACE("error %ld reading 'Image Path' from registry\n", r );
 381                 RegCloseKey(key);
 382                 SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 383                 goto error;
 384         }
 385
 386         r = RegQueryValueExA(key, "Signature", NULL, &keytype, NULL, &len);
 387         if ( r == ERROR_SUCCESS && keytype == REG_BINARY )
 388         {
 389                 if (!(signature = CRYPT_Alloc(len)))
 390                 {
 391                         RegCloseKey(key);
 392                         SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 393                         goto error;
 394                 }
 395                 r = RegQueryValueExA(key, "Signature", NULL, NULL, signature, &len);
 396                 if ( r != ERROR_SUCCESS )
 397                 {
 398                         TRACE("error %ld reading 'Signature'\n", r );
 399                         RegCloseKey(key);
 400                         SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 401                         goto error;
 402                 }
 403         }
 404         else
 405         {
 406                 r = RegQueryValueExA(key, "SigInFile", NULL, &keytype, NULL, &len);
 407                 if (r != ERROR_SUCCESS)
 408                 {
 409                         TRACE("error %ld reading size of 'SigInFile'\n", r );
 410                         RegCloseKey(key);
 411                         SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
 412                         goto error;
 413                 }
 414                 else
 415                 {
 416                         /* FIXME: The presence of the SigInFile value indicates the
 417                          * provider's signature is in its resources, so need to read it.
 418                          * But since CRYPT_VerifyImage is stubbed, provide any old thing
 419                          * for now.
 420                          */
 421                         if (!(signature = CRYPT_Alloc(1)))
 422                         {
 423                                 RegCloseKey(key);
 424                                 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 425                                 goto error;
 426                         }
 427                 }
 428         }
 429         RegCloseKey(key);
 430         len = ExpandEnvironmentStringsA(temp, NULL, 0);
 431         if ( !(imagepath = CRYPT_Alloc(len)) )
 432         {
 433                 CRYPT_Free(signature);
 434                 SetLastError(ERROR_NOT_ENOUGH_MEMORY);
 435                 goto error;
 436         }
 437         if (!ExpandEnvironmentStringsA(temp, imagepath, len))
 438         {
 439                 CRYPT_Free(signature);
 440                 /* ExpandEnvironmentStrings will call SetLastError */
 441                 goto error;
 442         }
 443
 444         if (!CRYPT_VerifyImage(imagepath, signature))
 445         {
 446                 CRYPT_Free(signature);
 447                 SetLastError(NTE_SIGNATURE_FILE_BAD);
 448                 goto error;
 449         }
 450         pProv = CRYPT_LoadProvider(imagepath);
 451         CRYPT_Free(signature);
 452         if (!pProv) {
 453                 /* CRYPT_LoadProvider calls SetLastError */
 454                 goto error;
 455         }
 456         pProv->pVTable->dwProvType = dwProvType;
 457         pProv->pVTable->pszProvName = provname;
 458         if (pProv->pFuncs->pCPAcquireContext(&pProv->hPrivate, (CHAR*)pszContainer, dwFlags, pProv->pVTable))
 459         {
 460                 /* MSDN: When this flag is set, the value returned in phProv is undefined,
 461                  *       and thus, the CryptReleaseContext function need not be called afterwards.
 462                  *       Therefore, we must clean up everything now.
 463                  */
 464                 if (dwFlags & CRYPT_DELETEKEYSET)
 465                 {
 466                         FreeLibrary(pProv->hModule);
 467                         CRYPT_Free(provname);
 468                         CRYPT_Free(pProv->pFuncs);
 469                         CRYPT_Free(pProv);
 470                 } else {
 471                         *phProv = (HCRYPTPROV)pProv;
 472                 }
 473                 CRYPT_Free(temp);
 474                 CRYPT_Free(imagepath);
 475                 return TRUE;
 476         }
 477         /* FALLTHROUGH TO ERROR IF FALSE - CSP internal error! */
 478 error:
 479         if (pProv)
 480         {
 481                 FreeLibrary(pProv->hModule);
 482                 CRYPT_Free(pProv->pVTable);
 483                 CRYPT_Free(pProv->pFuncs);
 484                 CRYPT_Free(pProv);
 485         }
 486         CRYPT_Free(provname);
 487         CRYPT_Free(temp);
 488         CRYPT_Free(imagepath);
 489         return FALSE;
 490 }
 491
 492 /******************************************************************************
 493  * CryptAcquireContextW (ADVAPI32.@)
 494  *
 495  * see CryptAcquireContextA
 496  */
 497 BOOL WINAPI CryptAcquireContextW (HCRYPTPROV *phProv, LPCWSTR pszContainer,
 498                 LPCWSTR pszProvider, DWORD dwProvType, DWORD dwFlags)
 499 {
 500         PSTR pProvider = NULL, pContainer = NULL;
 501         BOOL ret = FALSE;
 502
 503         TRACE("(%p, %s, %s, %ld, %08lx)\n", phProv, debugstr_w(pszContainer),
 504                 debugstr_w(pszProvider), dwProvType, dwFlags);
 505
 506         if ( !CRYPT_UnicodeToANSI(pszContainer, &pContainer, -1) )
 507                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 508         if ( !CRYPT_UnicodeToANSI(pszProvider, &pProvider, -1) )
 509         {
 510                 CRYPT_Free(pContainer);
 511                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 512         }
 513
 514         ret = CryptAcquireContextA(phProv, pContainer, pProvider, dwProvType, dwFlags);
 515
 516         if (pContainer)
 517                 CRYPT_Free(pContainer);
 518         if (pProvider)
 519                 CRYPT_Free(pProvider);
 520
 521         return ret;
 522 }
 523
 524 /******************************************************************************
 525  * CryptContextAddRef (ADVAPI32.@)
 526  *
 527  * Increases reference count of a cryptographic service provider handle
 528  * by one.
 529  *
 530  * PARAMS
 531  *  hProv       [I] Handle to the CSP whose reference is being incremented.
 532  *  pdwReserved [IN] Reserved for future use and must be NULL.
 533  *  dwFlags     [I] Reserved for future use and must be NULL.
 534  *
 535  * RETURNS
 536  *  Success: TRUE
 537  *  Failure: FALSE
 538  */
 539 BOOL WINAPI CryptContextAddRef (HCRYPTPROV hProv, DWORD *pdwReserved, DWORD dwFlags)
 540 {
 541         PCRYPTPROV pProv = (PCRYPTPROV)hProv;
 542
 543         TRACE("(0x%lx, %p, %08lx)\n", hProv, pdwReserved, dwFlags);
 544
 545         if (!pProv)
 546         {
 547                 SetLastError(NTE_BAD_UID);
 548                 return FALSE;
 549         }
 550
 551         pProv->refcount++;
 552         return TRUE;
 553 }
 554
 555 /******************************************************************************
 556  * CryptReleaseContext (ADVAPI32.@)
 557  *
 558  * Releases the handle of a CSP.  Reference count is decreased.
 559  *
 560  * PARAMS
 561  *  hProv   [I] Handle of a CSP.
 562  *  dwFlags [I] Reserved for future use and must be NULL.
 563  *
 564  * RETURNS
 565  *  Success: TRUE
 566  *  Failure: FALSE
 567  */
 568 BOOL WINAPI CryptReleaseContext (HCRYPTPROV hProv, DWORD dwFlags)
 569 {
 570         PCRYPTPROV pProv = (PCRYPTPROV)hProv;
 571         BOOL ret = TRUE;
 572
 573         TRACE("(0x%lx, %08ld)\n", hProv, dwFlags);
 574
 575         if (!pProv)
 576         {
 577                 SetLastError(NTE_BAD_UID);
 578                 return FALSE;
 579         }
 580
 581         pProv->refcount--;
 582         if (pProv->refcount <= 0)
 583         {
 584                 ret = pProv->pFuncs->pCPReleaseContext(pProv->hPrivate, dwFlags);
 585                 FreeLibrary(pProv->hModule);
 586 #if 0
 587                 CRYPT_Free(pProv->pVTable->pContextInfo);
 588 #endif
 589                 CRYPT_Free(pProv->pVTable->pszProvName);
 590                 CRYPT_Free(pProv->pVTable);
 591                 CRYPT_Free(pProv->pFuncs);
 592                 CRYPT_Free(pProv);
 593         }
 594         return ret;
 595 }
 596
 597 /******************************************************************************
 598  * CryptGenRandom (ADVAPI32.@)
 599  *
 600  * Fills a buffer with cryptographically random bytes.
 601  *
 602  * PARAMS
 603  *  hProv    [I] Handle of a CSP.
 604  *  dwLen    [I] Number of bytes to generate.
 605  *  pbBuffer [I/O] Buffer to contain random bytes.
 606  *
 607  * RETURNS
 608  *  Success: TRUE
 609  *  Failure: FALSE
 610  *
 611  * NOTES
 612  *  pdBuffer must be at least dwLen bytes long.
 613  */
 614 BOOL WINAPI CryptGenRandom (HCRYPTPROV hProv, DWORD dwLen, BYTE *pbBuffer)
 615 {
 616         PCRYPTPROV prov = (PCRYPTPROV)hProv;
 617
 618         TRACE("(0x%lx, %ld, %p)\n", hProv, dwLen, pbBuffer);
 619
 620         if (!hProv)
 621                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 622
 623         return prov->pFuncs->pCPGenRandom(prov->hPrivate, dwLen, pbBuffer);
 624 }
 625
 626 /******************************************************************************
 627  * CryptCreateHash (ADVAPI32.@)
 628  *
 629  * Initiates the hashing of a stream of data.
 630  *
 631  * PARAMS
 632  *  hProv   [I] Handle of a CSP.
 633  *  Algid   [I] Identifies the hash algorithm to use.
 634  *  hKey    [I] Key for the hash (if required).
 635  *  dwFlags [I] Reserved for future use and must be NULL.
 636  *  phHash  [O] Address of the future handle to the new hash object.
 637  *
 638  * RETURNS
 639  *  Success: TRUE
 640  *  Failure: FALSE
 641  *
 642  * NOTES
 643  *  If the algorithm is a keyed hash, hKey is the key.
 644  */
 645 BOOL WINAPI CryptCreateHash (HCRYPTPROV hProv, ALG_ID Algid, HCRYPTKEY hKey,
 646                 DWORD dwFlags, HCRYPTHASH *phHash)
 647 {
 648         PCRYPTPROV prov = (PCRYPTPROV)hProv;
 649         PCRYPTKEY key = (PCRYPTKEY)hKey;
 650         PCRYPTHASH hash;
 651
 652         TRACE("(0x%lx, 0x%x, 0x%lx, %08lx, %p)\n", hProv, Algid, hKey, dwFlags, phHash);
 653
 654         if (!prov)
 655                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 656         if (!phHash)
 657                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 658         if (dwFlags)
 659                 CRYPT_ReturnLastError(NTE_BAD_FLAGS);
 660         if ( !(hash = CRYPT_Alloc(sizeof(CRYPTHASH))) )
 661                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 662
 663         hash->pProvider = prov;
 664
 665         if (prov->pFuncs->pCPCreateHash(prov->hPrivate, Algid,
 666                         key ? key->hPrivate : 0, 0, &hash->hPrivate))
 667         {
 668             *phHash = (HCRYPTHASH)hash;
 669             return TRUE;
 670         }
 671
 672         /* CSP error! */
 673         CRYPT_Free(hash);
 674         return FALSE;
 675 }
 676
 677 /******************************************************************************
 678  * CryptDecrypt (ADVAPI32.@)
 679  *
 680  * Decrypts data encrypted by CryptEncrypt.
 681  *
 682  * PARAMS
 683  *  hKey       [I] Handle to the decryption key.
 684  *  hHash      [I] Handle to a hash object.
 685  *  Final      [I] TRUE if this is the last section to be decrypted.
 686  *  dwFlags    [I] Reserved for future use. Can be CRYPT_OAEP.
 687  *  pbData     [I/O] Buffer that holds the encrypted data. Holds decrypted
 688  *                   data on return
 689  *  pdwDataLen [I/O] Length of pbData before and after the call.
 690  *
 691  *  RETURNS
 692  *   Success: TRUE
 693  *   Failure: FALSE
 694  */
 695 BOOL WINAPI CryptDecrypt (HCRYPTKEY hKey, HCRYPTHASH hHash, BOOL Final,
 696                 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen)
 697 {
 698         PCRYPTPROV prov;
 699         PCRYPTKEY key = (PCRYPTKEY)hKey;
 700         PCRYPTHASH hash = (PCRYPTHASH)hHash;
 701
 702         TRACE("(0x%lx, 0x%lx, %d, %08lx, %p, %p)\n", hKey, hHash, Final, dwFlags, pbData, pdwDataLen);
 703
 704         if (!key || !pbData || !pdwDataLen)
 705                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 706
 707         prov = key->pProvider;
 708         return prov->pFuncs->pCPDecrypt(prov->hPrivate, key->hPrivate, hash ? hash->hPrivate : 0,
 709                         Final, dwFlags, pbData, pdwDataLen);
 710 }
 711
 712 /******************************************************************************
 713  * CryptDeriveKey (ADVAPI32.@)
 714  *
 715  * Generates session keys derived from a base data value.
 716  *
 717  * PARAMS
 718  *  hProv     [I] Handle to a CSP.
 719  *  Algid     [I] Identifies the symmetric encryption algorithm to use.
 720  *  hBaseData [I] Handle to a hash object.
 721  *  dwFlags   [I] Type of key to generate.
 722  *  phKey     [I/O] Address of the newly generated key.
 723  *
 724  * RETURNS
 725  *  Success: TRUE
 726  *  Failure: FALSE
 727  */
 728 BOOL WINAPI CryptDeriveKey (HCRYPTPROV hProv, ALG_ID Algid, HCRYPTHASH hBaseData,
 729                 DWORD dwFlags, HCRYPTKEY *phKey)
 730 {
 731         PCRYPTPROV prov = (PCRYPTPROV)hProv;
 732         PCRYPTHASH hash = (PCRYPTHASH)hBaseData;
 733         PCRYPTKEY key;
 734
 735         TRACE("(0x%lx, 0x%08x, 0x%lx, 0x%08lx, %p)\n", hProv, Algid, hBaseData, dwFlags, phKey);
 736
 737         if (!prov || !hash)
 738                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 739         if (!phKey)
 740                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 741         if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
 742                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 743
 744         key->pProvider = prov;
 745         if (prov->pFuncs->pCPDeriveKey(prov->hPrivate, Algid, hash->hPrivate, dwFlags, &key->hPrivate))
 746         {
 747             *phKey = (HCRYPTKEY)key;
 748             return TRUE;
 749         }
 750
 751         /* CSP error! */
 752         CRYPT_Free(key);
 753         return FALSE;
 754 }
 755
 756 /******************************************************************************
 757  * CryptDestroyHash (ADVAPI32.@)
 758  *
 759  * Destroys the hash object referenced by hHash.
 760  *
 761  * PARAMS
 762  *  hHash [I] Handle of the hash object to be destroyed.
 763  *
 764  * RETURNS
 765  *  Success: TRUE
 766  *  Failure: FALSE
 767  */
 768 BOOL WINAPI CryptDestroyHash (HCRYPTHASH hHash)
 769 {
 770         PCRYPTHASH hash = (PCRYPTHASH)hHash;
 771         PCRYPTPROV prov;
 772         BOOL ret;
 773
 774         TRACE("(0x%lx)\n", hHash);
 775
 776         if (!hash)
 777                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 778
 779         prov = hash->pProvider;
 780         ret = prov->pFuncs->pCPDestroyHash(prov->hPrivate, hash->hPrivate);
 781         CRYPT_Free(hash);
 782         return ret;
 783 }
 784
 785 /******************************************************************************
 786  * CryptDestroyKey (ADVAPI32.@)
 787  *
 788  * Releases the handle referenced by hKey.
 789  *
 790  * PARAMS
 791  *  hKey [I] Handle of the key to be destroyed.
 792  *
 793  * RETURNS
 794  *  Success: TRUE
 795  *  Failure: FALSE
 796  */
 797 BOOL WINAPI CryptDestroyKey (HCRYPTKEY hKey)
 798 {
 799         PCRYPTKEY key = (PCRYPTKEY)hKey;
 800         PCRYPTPROV prov;
 801         BOOL ret;
 802
 803         TRACE("(0x%lx)\n", hKey);
 804
 805         if (!key)
 806                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 807
 808         prov = key->pProvider;
 809         ret = prov->pFuncs->pCPDestroyKey(prov->hPrivate, key->hPrivate);
 810         CRYPT_Free(key);
 811         return ret;
 812 }
 813
 814 /******************************************************************************
 815  * CryptDuplicateHash (ADVAPI32.@)
 816  *
 817  * Duplicates a hash.
 818  *
 819  * PARAMS
 820  *  hHash       [I] Handle to the hash to be copied.
 821  *  pdwReserved [I] Reserved for future use and must be zero.
 822  *  dwFlags     [I] Reserved for future use and must be zero.
 823  *  phHash      [O] Address of the handle to receive the copy.
 824  *
 825  * RETURNS
 826  *  Success: TRUE
 827  *  Failure: FALSE
 828  */
 829 BOOL WINAPI CryptDuplicateHash (HCRYPTHASH hHash, DWORD *pdwReserved,
 830                 DWORD dwFlags, HCRYPTHASH *phHash)
 831 {
 832         PCRYPTPROV prov;
 833         PCRYPTHASH orghash, newhash;
 834
 835         TRACE("(0x%lx, %p, %08ld, %p)\n", hHash, pdwReserved, dwFlags, phHash);
 836
 837         orghash = (PCRYPTHASH)hHash;
 838         if (!orghash || pdwReserved || !phHash)
 839                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 840
 841         prov = orghash->pProvider;
 842         if (!prov->pFuncs->pCPDuplicateHash)
 843                 CRYPT_ReturnLastError(ERROR_CALL_NOT_IMPLEMENTED);
 844
 845         if ( !(newhash = CRYPT_Alloc(sizeof(CRYPTHASH))) )
 846                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 847
 848         newhash->pProvider = prov;
 849         if (prov->pFuncs->pCPDuplicateHash(prov->hPrivate, orghash->hPrivate, pdwReserved, dwFlags, &newhash->hPrivate))
 850         {
 851                 *phHash = (HCRYPTHASH)newhash;
 852                 return TRUE;
 853         }
 854         CRYPT_Free(newhash);
 855         return FALSE;
 856 }
 857
 858 /******************************************************************************
 859  * CryptDuplicateKey (ADVAPI32.@)
 860  *
 861  * Duplicate a key and the key's state.
 862  *
 863  * PARAMS
 864  *  hKey        [I] Handle of the key to copy.
 865  *  pdwReserved [I] Reserved for future use and must be NULL.
 866  *  dwFlags     [I] Reserved for future use and must be zero.
 867  *  phKey       [I] Address of the handle to the duplicated key.
 868  *
 869  * RETURNS
 870  *  Success: TRUE
 871  *  Failure: FALSE
 872  */
 873 BOOL WINAPI CryptDuplicateKey (HCRYPTKEY hKey, DWORD *pdwReserved, DWORD dwFlags, HCRYPTKEY *phKey)
 874 {
 875         PCRYPTPROV prov;
 876         PCRYPTKEY orgkey, newkey;
 877
 878         TRACE("(0x%lx, %p, %08ld, %p)\n", hKey, pdwReserved, dwFlags, phKey);
 879
 880         orgkey = (PCRYPTKEY)hKey;
 881         if (!orgkey || pdwReserved || !phKey)
 882                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 883
 884         prov = orgkey->pProvider;
 885         if (!prov->pFuncs->pCPDuplicateKey)
 886                 CRYPT_ReturnLastError(ERROR_CALL_NOT_IMPLEMENTED);
 887
 888         if ( !(newkey = CRYPT_Alloc(sizeof(CRYPTKEY))) )
 889                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 890
 891         newkey->pProvider = prov;
 892         if (prov->pFuncs->pCPDuplicateKey(prov->hPrivate, orgkey->hPrivate, pdwReserved, dwFlags, &newkey->hPrivate))
 893         {
 894                 *phKey = (HCRYPTKEY)newkey;
 895                 return TRUE;
 896         }
 897         CRYPT_Free(newkey);
 898         return FALSE;
 899 }
 900
 901 /******************************************************************************
 902  * CryptEncrypt (ADVAPI32.@)
 903  *
 904  * Encrypts data.
 905  *
 906  * PARAMS
 907  *  hKey       [I] Handle to the enryption key.
 908  *  hHash      [I] Handle to a hash object.
 909  *  Final      [I] TRUE if this is the last section to encrypt.
 910  *  dwFlags    [I] Can be CRYPT_OAEP.
 911  *  pbData     [I/O] Data to be encrypted. Contains encrypted data after call.
 912  *  pdwDataLen [I/O] Length of the data to encrypt. Contains the length of the
 913  *                   encrypted data after call.
 914  *  dwBufLen   [I] Length of the input pbData buffer.
 915  *
 916  * RETURNS
 917  *  Success: TRUE
 918  *  Failure: FALSE
 919  *
 920  *  NOTES
 921  *   If pbData is NULL, CryptEncrypt determines stores the number of bytes
 922  *   required for the returned data in pdwDataLen.
 923  */
 924 BOOL WINAPI CryptEncrypt (HCRYPTKEY hKey, HCRYPTHASH hHash, BOOL Final,
 925                 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen, DWORD dwBufLen)
 926 {
 927         PCRYPTPROV prov;
 928         PCRYPTKEY key = (PCRYPTKEY)hKey;
 929         PCRYPTHASH hash = (PCRYPTHASH)hHash;
 930
 931         TRACE("(0x%lx, 0x%lx, %d, %08ld, %p, %p, %ld)\n", hKey, hHash, Final, dwFlags, pbData, pdwDataLen, dwBufLen);
 932
 933         if (!key || !pdwDataLen)
 934                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 935
 936         prov = key->pProvider;
 937         return prov->pFuncs->pCPEncrypt(prov->hPrivate, key->hPrivate, hash ? hash->hPrivate : 0,
 938                         Final, dwFlags, pbData, pdwDataLen, dwBufLen);
 939 }
 940
 941 /******************************************************************************
 942  * CryptEnumProvidersW (ADVAPI32.@)
 943  *
 944  * Returns the next availabe CSP.
 945  *
 946  * PARAMS
 947  *  dwIndex     [I] Index of the next provider to be enumerated.
 948  *  pdwReserved [I] Reserved for future use and must be NULL.
 949  *  dwFlags     [I] Reserved for future use and must be zero.
 950  *  pdwProvType [O] DWORD designating the type of the provider.
 951  *  pszProvName [O] Buffer that receives data from the provider.
 952  *  pcbProvName [I/O] Specifies the size of pszProvName. Contains the number
 953  *                    of bytes stored in the buffer on return.
 954  *
 955  *  RETURNS
 956  *   Success: TRUE
 957  *   Failure: FALSE
 958  *
 959  *  NOTES
 960  *   If pszProvName is NULL, CryptEnumProvidersW sets the size of the name
 961  *   for memory allocation purposes.
 962  */
 963 BOOL WINAPI CryptEnumProvidersW (DWORD dwIndex, DWORD *pdwReserved,
 964                 DWORD dwFlags, DWORD *pdwProvType, LPWSTR pszProvName, DWORD *pcbProvName)
 965 {
 966         HKEY hKey;
 967
 968         static const WCHAR providerW[] = {
 969                 'S','o','f','t','w','a','r','e','\\',
 970                 'M','i','c','r','o','s','o','f','t','\\',
 971                 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
 972                 'D','e','f','a','u','l','t','s','\\',
 973                 'P','r','o','v','i','d','e','r',0
 974         };
 975
 976         static const WCHAR typeW[] = {'T','y','p','e',0};
 977
 978         TRACE("(%ld, %p, %ld, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
 979                         pdwProvType, pszProvName, pcbProvName);
 980
 981         if (pdwReserved || !pcbProvName) CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 982         if (dwFlags) CRYPT_ReturnLastError(NTE_BAD_FLAGS);
 983
 984         if (RegOpenKeyW(HKEY_LOCAL_MACHINE, providerW, &hKey))
 985                 CRYPT_ReturnLastError(NTE_FAIL);
 986
 987         if (!pszProvName)
 988         {
 989                 DWORD numkeys;
 990                 WCHAR *provNameW;
 991
 992                 RegQueryInfoKeyW(hKey, NULL, NULL, NULL, &numkeys, pcbProvName,
 993                                  NULL, NULL, NULL, NULL, NULL, NULL);
 994
 995                 if (!(provNameW = CRYPT_Alloc(*pcbProvName * sizeof(WCHAR))))
 996                         CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 997
 998                 RegEnumKeyExW(hKey, dwIndex, provNameW, pcbProvName, NULL, NULL, NULL, NULL);
 999                 (*pcbProvName)++;
1000                 *pcbProvName *= sizeof(WCHAR);
1001
1002                 CRYPT_Free(provNameW);
1003
1004                 if (dwIndex >= numkeys)
1005                         CRYPT_ReturnLastError(ERROR_NO_MORE_ITEMS);
1006         } else {
1007                 DWORD size = sizeof(DWORD);
1008                 DWORD result;
1009                 HKEY subkey;
1010
1011                 result = RegEnumKeyW(hKey, dwIndex, pszProvName, *pcbProvName / sizeof(WCHAR));
1012                 if (result)
1013                         CRYPT_ReturnLastError(result);
1014                 if (RegOpenKeyW(hKey, pszProvName, &subkey))
1015                         return FALSE;
1016                 if (RegQueryValueExW(subkey, typeW, NULL, NULL, (BYTE*)pdwProvType, &size))
1017                         return FALSE;
1018                 RegCloseKey(subkey);
1019         }
1020         RegCloseKey(hKey);
1021         return TRUE;
1022 }
1023
1024 /******************************************************************************
1025  * CryptEnumProvidersA (ADVAPI32.@)
1026  *
1027  * see CryptEnumProvidersW
1028  */
1029 BOOL WINAPI CryptEnumProvidersA (DWORD dwIndex, DWORD *pdwReserved,
1030                 DWORD dwFlags, DWORD *pdwProvType, LPSTR pszProvName, DWORD *pcbProvName)
1031 {
1032         PWSTR str = NULL;
1033         DWORD strlen;
1034         BOOL ret; /* = FALSE; */
1035
1036         TRACE("(%ld, %p, %08ld, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1037                         pdwProvType, pszProvName, pcbProvName);
1038
1039         strlen = *pcbProvName * sizeof(WCHAR);
1040         if ( pszProvName && !(str = CRYPT_Alloc(strlen)) )
1041                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1042         ret = CryptEnumProvidersW(dwIndex, pdwReserved, dwFlags, pdwProvType, str, &strlen);
1043         if (str)
1044         {
1045                 CRYPT_UnicodeToANSI(str, &pszProvName, *pcbProvName);
1046                 CRYPT_Free(str);
1047         }
1048         *pcbProvName = strlen / sizeof(WCHAR);  /* FIXME: not correct */
1049         return ret;
1050 }
1051
1052 /******************************************************************************
1053  * CryptEnumProviderTypesA (ADVAPI32i.@)
1054  *
1055  * Retrieves the next type of CSP supported.
1056  *
1057  * PARAMS
1058  *  dwIndex     [I] Index of the next provider to be enumerated.
1059  *  pdwReserved [I] Reserved for future use and must be NULL.
1060  *  dwFlags     [I] Reserved for future use and must be zero.
1061  *  pdwProvType [O] DWORD designating the type of the provider.
1062  *  pszTypeName [O] Buffer that receives data from the provider type.
1063  *  pcbTypeName [I/O] Specifies the size of pszTypeName. Contains the number
1064  *                    of bytes stored in the buffer on return.
1065  *
1066  *  RETURNS
1067  *   Success: TRUE
1068  *   Failure: FALSE
1069  *
1070  *  NOTES
1071  *   If pszTypeName is NULL, CryptEnumProviderTypesA sets the size of the name
1072  *   for memory allocation purposes.
1073  */
1074 BOOL WINAPI CryptEnumProviderTypesA (DWORD dwIndex, DWORD *pdwReserved,
1075                 DWORD dwFlags, DWORD *pdwProvType, LPSTR pszTypeName, DWORD *pcbTypeName)
1076 {
1077         HKEY hKey, hSubkey;
1078         DWORD keylen, numkeys, dwType;
1079         PSTR keyname, ch;
1080         DWORD result;
1081
1082         TRACE("(%ld, %p, %08ld, %p, %p, %p)\n", dwIndex, pdwReserved,
1083                 dwFlags, pdwProvType, pszTypeName, pcbTypeName);
1084
1085         if (pdwReserved || !pdwProvType || !pcbTypeName)
1086                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1087         if (dwFlags) CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1088
1089         if (RegOpenKeyA(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Cryptography\\Defaults\\Provider Types", &hKey))
1090                 return FALSE;
1091
1092         RegQueryInfoKeyA(hKey, NULL, NULL, NULL, &numkeys, &keylen, NULL, NULL, NULL, NULL, NULL, NULL);
1093         if (dwIndex >= numkeys)
1094                 CRYPT_ReturnLastError(ERROR_NO_MORE_ITEMS);
1095         keylen++;
1096         if ( !(keyname = CRYPT_Alloc(keylen)) )
1097                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1098         if ( RegEnumKeyA(hKey, dwIndex, keyname, keylen) ) {
1099                 CRYPT_Free(keyname);
1100                 return FALSE;
1101         }
1102         RegOpenKeyA(hKey, keyname, &hSubkey);
1103         ch = keyname + strlen(keyname);
1104         /* Convert "Type 000" to 0, etc/ */
1105         *pdwProvType = *(--ch) - '0';
1106         *pdwProvType += (*(--ch) - '0') * 10;
1107         *pdwProvType += (*(--ch) - '0') * 100;
1108         CRYPT_Free(keyname);
1109
1110         result = RegQueryValueExA(hSubkey, "TypeName", NULL, &dwType, pszTypeName, pcbTypeName);
1111         if (result)
1112                 CRYPT_ReturnLastError(result);
1113
1114         RegCloseKey(hSubkey);
1115         RegCloseKey(hKey);
1116         return TRUE;
1117 }
1118
1119 /******************************************************************************
1120  * CryptEnumProviderTypesW (ADVAPI32.@)
1121  *
1122  * see CryptEnumProviderTypesA
1123  */
1124 BOOL WINAPI CryptEnumProviderTypesW (DWORD dwIndex, DWORD *pdwReserved,
1125                 DWORD dwFlags, DWORD *pdwProvType, LPWSTR pszTypeName, DWORD *pcbTypeName)
1126 {
1127         PSTR str = NULL;
1128         DWORD strlen;
1129         BOOL ret;
1130
1131         TRACE("(%ld, %p, %08ld, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1132                         pdwProvType, pszTypeName, pcbTypeName);
1133         strlen = *pcbTypeName / sizeof(WCHAR);
1134         if ( pszTypeName && !(str = CRYPT_Alloc(strlen)) )
1135                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1136         ret = CryptEnumProviderTypesA(dwIndex, pdwReserved, dwFlags, pdwProvType, str, &strlen);
1137         if (str)
1138         {
1139                 CRYPT_ANSIToUnicode(str, &pszTypeName, *pcbTypeName);
1140                 CRYPT_Free(str);
1141         }
1142         *pcbTypeName = strlen * sizeof(WCHAR);
1143         return ret;
1144 }
1145
1146 /******************************************************************************
1147  * CryptExportKey (ADVAPI32.@)
1148  *
1149  * Exports a cryptographic key from a CSP.
1150  *
1151  * PARAMS
1152  *  hKey       [I] Handle to the key to export.
1153  *  hExpKey    [I] Handle to a cryptographic key of the end user.
1154  *  dwBlobType [I] Type of BLOB to be exported.
1155  *  dwFlags    [I] CRYPT_DESTROYKEY/SSL2_FALLBACK/OAEP.
1156  *  pbData     [O] Buffer to receive BLOB data.
1157  *  pdwDataLen [I/O] Specifies the size of pbData.
1158  *
1159  * RETURNS
1160  *  Success: TRUE
1161  *  Failure: FALSE
1162  *
1163  * NOTES
1164  *  if pbData is NULL, CryptExportKey sets pdwDataLen as the size of the
1165  *  buffer needed to hold the BLOB.
1166  */
1167 BOOL WINAPI CryptExportKey (HCRYPTKEY hKey, HCRYPTKEY hExpKey, DWORD dwBlobType,
1168                 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen)
1169 {
1170         PCRYPTPROV prov;
1171         PCRYPTKEY key = (PCRYPTKEY)hKey, expkey = (PCRYPTKEY)hExpKey;
1172
1173         TRACE("(0x%lx, 0x%lx, %ld, %08ld, %p, %p)\n", hKey, hExpKey, dwBlobType, dwFlags, pbData, pdwDataLen);
1174
1175         if (!key || pdwDataLen)
1176                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1177
1178         prov = key->pProvider;
1179         return prov->pFuncs->pCPExportKey(prov->hPrivate, key->hPrivate, expkey ? expkey->hPrivate : 0,
1180                         dwBlobType, dwFlags, pbData, pdwDataLen);
1181 }
1182
1183 /******************************************************************************
1184  * CryptGenKey (ADVAPI32.@)
1185  *
1186  * Generates a random cryptographic session key or a pub/priv key pair.
1187  *
1188  * PARAMS
1189  *  hProv   [I] Handle to a CSP.
1190  *  Algid   [I] Algorithm to use to make key.
1191  *  dwFlags [I] Specifies type of key to make.
1192  *  phKey   [I] Address of the handle to which the new key is copied.
1193  *
1194  *  RETURNS
1195  *   Success: TRUE
1196  *   Failure: FALSE
1197  */
1198 BOOL WINAPI CryptGenKey (HCRYPTPROV hProv, ALG_ID Algid, DWORD dwFlags, HCRYPTKEY *phKey)
1199 {
1200         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1201         PCRYPTKEY key;
1202
1203         TRACE("(0x%lx, %d, %08ld, %p)\n", hProv, Algid, dwFlags, phKey);
1204
1205         if (!prov)
1206                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1207         if (!phKey)
1208                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1209         if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1210                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1211
1212         key->pProvider = prov;
1213
1214         if (prov->pFuncs->pCPGenKey(prov->hPrivate, Algid, dwFlags, &key->hPrivate))
1215         {
1216             *phKey = (HCRYPTKEY)key;
1217             return TRUE;
1218         }
1219
1220         /* CSP error! */
1221         CRYPT_Free(key);
1222         return FALSE;
1223 }
1224
1225 /******************************************************************************
1226  * CryptGetDefaultProviderA (ADVAPI32.@)
1227  *
1228  * Finds the default CSP of a certain provider type.
1229  *
1230  * PARAMS
1231  *  dwProvType  [I] Provider type to look for.
1232  *  pdwReserved [I] Reserved for future use and must be NULL.
1233  *  dwFlags     [I] CRYPT_MACHINE_DEFAULT/USER_DEFAULT
1234  *  pszProvName [O] Name of the default CSP.
1235  *  pcbProvName [I/O] Size of pszProvName
1236  *
1237  * RETURNS
1238  *  Success: TRUE
1239  *  Failure: FALSE
1240  *
1241  * NOTES
1242  *  If pszProvName is NULL, pcbProvName will hold the size of the buffer for
1243  *  memory allocation purposes on return.
1244  */
1245 BOOL WINAPI CryptGetDefaultProviderA (DWORD dwProvType, DWORD *pdwReserved,
1246                 DWORD dwFlags, LPSTR pszProvName, DWORD *pcbProvName)
1247 {
1248         HKEY hKey;
1249         PSTR keyname;
1250
1251         if (pdwReserved || !pcbProvName)
1252                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1253         if (dwFlags & ~(CRYPT_USER_DEFAULT | CRYPT_MACHINE_DEFAULT))
1254                 CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1255         if (dwProvType > 999)
1256                 CRYPT_ReturnLastError(NTE_BAD_PROV_TYPE);
1257         if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)) )
1258                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1259         if (RegOpenKeyA((dwFlags & CRYPT_USER_DEFAULT) ?  HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE ,keyname, &hKey))
1260         {
1261                 CRYPT_Free(keyname);
1262                 CRYPT_ReturnLastError(NTE_PROV_TYPE_NOT_DEF);
1263         }
1264         CRYPT_Free(keyname);
1265         if (RegQueryValueExA(hKey, "Name", NULL, NULL, pszProvName, pcbProvName))
1266         {
1267                 if (GetLastError() != ERROR_MORE_DATA)
1268                         SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
1269                 return FALSE;
1270         }
1271         RegCloseKey(hKey);
1272         return TRUE;
1273 }
1274
1275 /******************************************************************************
1276  * CryptGetDefaultProviderW (ADVAPI32.@)
1277  *
1278  * see CryptGetDefaultProviderA
1279  */
1280 BOOL WINAPI CryptGetDefaultProviderW (DWORD dwProvType, DWORD *pdwReserved,
1281                 DWORD dwFlags, LPWSTR pszProvName, DWORD *pcbProvName)
1282 {
1283         PSTR str = NULL;
1284         DWORD strlen;
1285         BOOL ret = FALSE;
1286
1287         TRACE("(%ld, %p, %08ld, %p, %p)\n", dwProvType, pdwReserved, dwFlags, pszProvName, pcbProvName);
1288
1289         strlen = *pcbProvName / sizeof(WCHAR);
1290         if ( pszProvName && !(str = CRYPT_Alloc(strlen)) )
1291                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1292         ret = CryptGetDefaultProviderA(dwProvType, pdwReserved, dwFlags, str, &strlen);
1293         if (str)
1294         {
1295                 CRYPT_ANSIToUnicode(str, &pszProvName, *pcbProvName);
1296                 CRYPT_Free(str);
1297         }
1298         *pcbProvName = strlen * sizeof(WCHAR);
1299         return ret;
1300 }
1301
1302 /******************************************************************************
1303  * CryptGetHashParam (ADVAPI32.@)
1304  *
1305  * Retrieves data that controls the operations of a hash object.
1306  *
1307  * PARAMS
1308  *  hHash      [I] Handle of the hash object to question.
1309  *  dwParam    [I] Query type.
1310  *  pbData     [O] Buffer that receives the value data.
1311  *  pdwDataLen [I/O] Size of the pbData buffer.
1312  *  dwFlags    [I] Reserved for future use and must be zero.
1313  *
1314  * RETURNS
1315  *  Success: TRUE
1316  *  Failure: FALSE
1317  *
1318  * NOTES
1319  *  If pbData is NULL, pdwDataLen will contain the length required.
1320  */
1321 BOOL WINAPI CryptGetHashParam (HCRYPTHASH hHash, DWORD dwParam, BYTE *pbData,
1322                 DWORD *pdwDataLen, DWORD dwFlags)
1323 {
1324         PCRYPTPROV prov;
1325         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1326
1327         TRACE("(0x%lx, %ld, %p, %p, %08ld)\n", hHash, dwParam, pbData, pdwDataLen, dwFlags);
1328
1329         if (!hash || !pdwDataLen)
1330                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1331
1332         prov = hash->pProvider;
1333         return prov->pFuncs->pCPGetHashParam(prov->hPrivate, hash->hPrivate, dwParam,
1334                         pbData, pdwDataLen, dwFlags);
1335 }
1336
1337 /******************************************************************************
1338  * CryptGetKeyParam (ADVAPI32.@)
1339  *
1340  * Retrieves data that controls the operations of a key.
1341  *
1342  * PARAMS
1343  *  hKey       [I] Handle to they key in question.
1344  *  dwParam    [I] Specifies query type.
1345  *  pbData     [O] Sequence of bytes to receive data.
1346  *  pdwDataLen [I/O] Size of pbData.
1347  *  dwFlags    [I] Reserved for future use and must be zero.
1348  *
1349  * RETURNS
1350  *  Success: TRUE
1351  *  Failure: FALSE
1352  *
1353  * NOTES
1354  *  If pbData is NULL, pdwDataLen is set to the needed length of the buffer.
1355  */
1356 BOOL WINAPI CryptGetKeyParam (HCRYPTKEY hKey, DWORD dwParam, BYTE *pbData,
1357                 DWORD *pdwDataLen, DWORD dwFlags)
1358 {
1359         PCRYPTPROV prov;
1360         PCRYPTKEY key = (PCRYPTKEY)hKey;
1361
1362         TRACE("(0x%lx, %ld, %p, %p, %08ld)\n", hKey, dwParam, pbData, pdwDataLen, dwFlags);
1363
1364         if (!key || !pdwDataLen)
1365                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1366
1367         prov = key->pProvider;
1368         return prov->pFuncs->pCPGetKeyParam(prov->hPrivate, key->hPrivate, dwParam,
1369                         pbData, pdwDataLen, dwFlags);
1370 }
1371
1372 /******************************************************************************
1373  * CryptGetProvParam (ADVAPI32.@)
1374  *
1375  * Retrieves parameters that control the operations of a CSP.
1376  *
1377  * PARAMS
1378  *  hProv      [I] Handle of the CSP in question.
1379  *  dwParam    [I] Specifies query type.
1380  *  pbData     [O] Buffer to receive the data.
1381  *  pdwDataLen [I/O] Size of pbData.
1382  *  dwFlags    [I] see MSDN Docs.
1383  *
1384  * RETURNS
1385  *  Success: TRUE
1386  *  Failure: FALSE
1387  *
1388  * NOTES
1389  *  If pbData is NULL, pdwDataLen is set to the needed buffer length.
1390  */
1391 BOOL WINAPI CryptGetProvParam (HCRYPTPROV hProv, DWORD dwParam, BYTE *pbData,
1392                 DWORD *pdwDataLen, DWORD dwFlags)
1393 {
1394         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1395
1396         TRACE("(0x%lx, %ld, %p, %p, %08ld)\n", hProv, dwParam, pbData, pdwDataLen, dwFlags);
1397
1398         return prov->pFuncs->pCPGetProvParam(prov->hPrivate, dwParam, pbData, pdwDataLen, dwFlags);
1399 }
1400
1401 /******************************************************************************
1402  * CryptGetUserKey (ADVAPI32.@)
1403  *
1404  * Gets a handle of one of a user's two public/private key pairs.
1405  *
1406  * PARAMS
1407  *  hProv     [I] Handle of a CSP.
1408  *  dwKeySpec [I] Private key to use.
1409  *  phUserKey [O] Pointer to the handle of the retrieved keys.
1410  *
1411  * RETURNS
1412  *  Success: TRUE
1413  *  Failure: FALSE
1414  */
1415 BOOL WINAPI CryptGetUserKey (HCRYPTPROV hProv, DWORD dwKeySpec, HCRYPTKEY *phUserKey)
1416 {
1417         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1418         PCRYPTKEY key;
1419
1420         TRACE("(0x%lx, %ld, %p)\n", hProv, dwKeySpec, phUserKey);
1421
1422         if (!prov)
1423                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1424         if (!phUserKey)
1425                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1426         if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1427                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1428
1429         key->pProvider = prov;
1430
1431         if (prov->pFuncs->pCPGetUserKey(prov->hPrivate, dwKeySpec, &key->hPrivate))
1432         {
1433             *phUserKey = (HCRYPTKEY)key;
1434             return TRUE;
1435         }
1436
1437         /* CSP Error */
1438         CRYPT_Free(key);
1439         return FALSE;
1440 }
1441
1442 /******************************************************************************
1443  * CryptHashData (ADVAPI32.@)
1444  *
1445  * Adds data to a hash object.
1446  *
1447  * PARAMS
1448  *  hHash     [I] Handle of the hash object.
1449  *  pbData    [I] Buffer of data to be hashed.
1450  *  dwDataLen [I] Number of bytes to add.
1451  *  dwFlags   [I] Can be CRYPT_USERDATA
1452  *
1453  * RETURNS
1454  *  Success: TRUE
1455  *  Failure: FALSE
1456  */
1457 BOOL WINAPI CryptHashData (HCRYPTHASH hHash, BYTE *pbData, DWORD dwDataLen, DWORD dwFlags)
1458 {
1459         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1460         PCRYPTPROV prov;
1461
1462         TRACE("(0x%lx, %p, %ld, %08ld)\n", hHash, pbData, dwDataLen, dwFlags);
1463
1464         if (!hash)
1465                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1466         if (!pbData || !dwDataLen)
1467                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1468
1469         prov = hash->pProvider;
1470         return prov->pFuncs->pCPHashData(prov->hPrivate, hash->hPrivate, pbData, dwDataLen, dwFlags);
1471 }
1472
1473 /******************************************************************************
1474  * CryptHashSessionKey (ADVAPI32.@)
1475  *
1476  * PARAMS
1477  *  hHash   [I] Handle to the hash object.
1478  *  hKey    [I] Handle to the key to be hashed.
1479  *  dwFlags [I] Can be CRYPT_LITTLE_ENDIAN.
1480  *
1481  * RETURNS
1482  *  Success: TRUE
1483  *  Failure: FALSE
1484  */
1485 BOOL WINAPI CryptHashSessionKey (HCRYPTHASH hHash, HCRYPTKEY hKey, DWORD dwFlags)
1486 {
1487         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1488         PCRYPTKEY key = (PCRYPTKEY)hKey;
1489         PCRYPTPROV prov;
1490
1491         TRACE("(0x%lx, 0x%lx, %08ld)\n", hHash, hKey, dwFlags);
1492
1493         if (!hash || !key)
1494                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1495
1496         prov = hash->pProvider;
1497         return prov->pFuncs->pCPHashSessionKey(prov->hPrivate, hash->hPrivate, key->hPrivate, dwFlags);
1498 }
1499
1500 /******************************************************************************
1501  * CryptImportKey (ADVAPI32.@)
1502  *
1503  * PARAMS
1504  *  hProv     [I] Handle of a CSP.
1505  *  pbData    [I] Contains the key to be imported.
1506  *  dwDataLen [I] Length of the key.
1507  *  hPubKey   [I] Cryptographic key that decrypts pdData
1508  *  dwFlags   [I] Used only with a public/private key pair.
1509  *  phKey     [O] Imported key.
1510  *
1511  * RETURNS
1512  *  Success: TRUE
1513  *  Failure: FALSE
1514  */
1515 BOOL WINAPI CryptImportKey (HCRYPTPROV hProv, BYTE *pbData, DWORD dwDataLen,
1516                 HCRYPTKEY hPubKey, DWORD dwFlags, HCRYPTKEY *phKey)
1517 {
1518         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1519         PCRYPTKEY pubkey = (PCRYPTKEY)hPubKey, importkey;
1520
1521         TRACE("(0x%lx, %p, %ld, 0x%lx, %08ld, %p)\n", hProv, pbData, dwDataLen, hPubKey, dwFlags, phKey);
1522
1523         if (!prov || !pbData || !dwDataLen || !phKey)
1524                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1525
1526         if ( !(importkey = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1527                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1528
1529         importkey->pProvider = prov;
1530         if (prov->pFuncs->pCPImportKey(prov->hPrivate, pbData, dwDataLen,
1531                         pubkey ? pubkey->hPrivate : 0, dwFlags, &importkey->hPrivate))
1532         {
1533                 *phKey = (HCRYPTKEY)importkey;
1534                 return TRUE;
1535         }
1536
1537         CRYPT_Free(importkey);
1538         return FALSE;
1539 }
1540
1541 /******************************************************************************
1542  * CryptSignHashA
1543  *
1544  * Note: Since the sDesciption (string) is supposed to be NULL and
1545  *      is only retained for compatibility no string conversions are required
1546  *      and only one implementation is required for both ANSI and Unicode.
1547  *      We still need to export both:
1548  *
1549  * CryptSignHashA (ADVAPI32.@)
1550  * CryptSignHashW (ADVAPI32.@)
1551  *
1552  * Signs data.
1553  *
1554  * PARAMS
1555  *  hHash        [I] Handle of the hash object to be signed.
1556  *  dwKeySpec    [I] Private key to use.
1557  *  sDescription [I] Must be NULL.
1558  *  dwFlags      [I] CRYPT_NOHASHOID/X931_FORMAT.
1559  *  pbSignature  [O] Buffer of the signature data.
1560  *  pdwSigLen    [I/O] Size of the pbSignature buffer.
1561  *
1562  * RETURNS
1563  *  Success: TRUE
1564  *  Failure: FALSE
1565  */
1566 BOOL WINAPI CryptSignHashA (HCRYPTHASH hHash, DWORD dwKeySpec, LPCSTR sDescription,
1567                 DWORD dwFlags, BYTE *pbSignature, DWORD *pdwSigLen)
1568 {
1569         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1570         PCRYPTPROV prov;
1571
1572         TRACE("(0x%lx, %ld, %08ld, %p, %p)\n", hHash, dwKeySpec, dwFlags, pbSignature, pdwSigLen);
1573         if (sDescription)
1574                 WARN("The sDescription parameter is not supported (and no longer used).  Ignoring.\n");
1575
1576         if (!hash)
1577                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1578         if (!pdwSigLen)
1579                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1580
1581         prov = hash->pProvider;
1582         return prov->pFuncs->pCPSignHash(prov->hPrivate, hash->hPrivate, dwKeySpec, NULL,
1583                 dwFlags, pbSignature, pdwSigLen);
1584 }
1585
1586 /******************************************************************************
1587  * CryptSetHashParam (ADVAPI32.@)
1588  *
1589  * Customizes the operations of a hash object.
1590  *
1591  * PARAMS
1592  *  hHash   [I] Handle of the hash object to set parameters.
1593  *  dwParam [I] HP_HMAC_INFO/HASHVAL.
1594  *  pbData  [I] Value data buffer.
1595  *  dwFlags [I] Reserved for future use and must be zero.
1596  *
1597  * RETURNS
1598  *  Success: TRUE
1599  *  Failure: FALSE
1600  */
1601 BOOL WINAPI CryptSetHashParam (HCRYPTHASH hHash, DWORD dwParam, BYTE *pbData, DWORD dwFlags)
1602 {
1603         PCRYPTPROV prov;
1604         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1605
1606         TRACE("(0x%lx, %ld, %p, %08ld)\n", hHash, dwParam, pbData, dwFlags);
1607
1608         if (!hash || !pbData)
1609                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1610
1611         prov = hash->pProvider;
1612         return prov->pFuncs->pCPSetHashParam(prov->hPrivate, hash->hPrivate,
1613                         dwParam, pbData, dwFlags);
1614 }
1615
1616 /******************************************************************************
1617  * CryptSetKeyParam (ADVAPI32.@)
1618  *
1619  * Customizes a session key's operations.
1620  *
1621  * PARAMS
1622  *  hKey    [I] Handle to the key to set values.
1623  *  dwParam [I] See MSDN Doc.
1624  *  pbData  [I] Buffer of values to set.
1625  *  dwFlags [I] Only used when dwParam == KP_ALGID.
1626  *
1627  * RETURNS
1628  *  Success: TRUE
1629  *  Failure: FALSE
1630  */
1631 BOOL WINAPI CryptSetKeyParam (HCRYPTKEY hKey, DWORD dwParam, BYTE *pbData, DWORD dwFlags)
1632 {
1633         PCRYPTPROV prov;
1634         PCRYPTKEY key = (PCRYPTKEY)hKey;
1635
1636         TRACE("(0x%lx, %ld, %p, %08ld)\n", hKey, dwParam, pbData, dwFlags);
1637
1638         if (!key || !pbData)
1639                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1640
1641         prov = key->pProvider;
1642         return prov->pFuncs->pCPSetKeyParam(prov->hPrivate, key->hPrivate,
1643                         dwParam, pbData, dwFlags);
1644 }
1645
1646 /******************************************************************************
1647  * CryptSetProviderA (ADVAPI32.@)
1648  *
1649  * Specifies the current user's default CSP.
1650  *
1651  * PARAMS
1652  *  pszProvName [I] Name of the new default CSP.
1653  *  dwProvType  [I] Provider type of the CSP.
1654  *
1655  * RETURNS
1656  *  Success: TRUE
1657  *  Failure: FALSE
1658  */
1659 BOOL WINAPI CryptSetProviderA (LPCSTR pszProvName, DWORD dwProvType)
1660 {
1661         TRACE("(%s, %ld)\n", pszProvName, dwProvType);
1662         return CryptSetProviderExA(pszProvName, dwProvType, NULL, CRYPT_USER_DEFAULT);
1663 }
1664
1665 /******************************************************************************
1666  * CryptSetProviderW (ADVAPI32.@)
1667  *
1668  * See CryptSetProviderA
1669  */
1670 BOOL WINAPI CryptSetProviderW (LPCWSTR pszProvName, DWORD dwProvType)
1671 {
1672         TRACE("(%s, %ld)\n", debugstr_w(pszProvName), dwProvType);
1673         return CryptSetProviderExW(pszProvName, dwProvType, NULL, CRYPT_USER_DEFAULT);
1674 }
1675
1676 /******************************************************************************
1677  * CryptSetProviderExA (ADVAPI32.@)
1678  *
1679  * Specifies the default CSP.
1680  *
1681  * PARAMS
1682  *  pszProvName [I] Name of the new default CSP.
1683  *  dwProvType  [I] Provider type of the CSP.
1684  *  pdwReserved [I] Reserved for future use and must be NULL.
1685  *  dwFlags     [I] See MSDN Doc.
1686  *
1687  * RETURNS
1688  *  Success: TRUE
1689  *  Failure: FALSE
1690  */
1691 BOOL WINAPI CryptSetProviderExA (LPCSTR pszProvName, DWORD dwProvType, DWORD *pdwReserved, DWORD dwFlags)
1692 {
1693         HKEY hKey;
1694         PSTR keyname;
1695
1696         TRACE("(%s, %ld, %p, %08ld)\n", pszProvName, dwProvType, pdwReserved, dwFlags);
1697
1698         if (!pszProvName || pdwReserved)
1699                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1700         if (dwProvType > MAXPROVTYPES)
1701                 CRYPT_ReturnLastError(NTE_BAD_PROV_TYPE);
1702         if (dwFlags & ~(CRYPT_MACHINE_DEFAULT | CRYPT_USER_DEFAULT | CRYPT_DELETE_DEFAULT)
1703                         || dwFlags == CRYPT_DELETE_DEFAULT)
1704                 CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1705
1706         if (dwFlags & CRYPT_DELETE_DEFAULT)
1707         {
1708                 if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)) )
1709                         CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1710                 RegDeleteKeyA( (dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE, keyname);
1711                 CRYPT_Free(keyname);
1712                 return TRUE;
1713         }
1714
1715         if ( !(keyname = CRYPT_GetProvKeyName(pszProvName)) )
1716                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1717         if (RegOpenKeyA(HKEY_LOCAL_MACHINE, keyname, &hKey))
1718         {
1719                 CRYPT_Free(keyname);
1720                 CRYPT_ReturnLastError(NTE_BAD_PROVIDER);
1721         }
1722         CRYPT_Free(keyname);
1723         RegCloseKey(hKey);
1724         if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)) )
1725                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1726         RegCreateKeyA( (dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE, keyname, &hKey);
1727         CRYPT_Free(keyname);
1728         if (RegSetValueExA(hKey, "Name", 0, REG_SZ, pszProvName, strlen(pszProvName) +1))
1729                 return FALSE;
1730         return TRUE;
1731 }
1732
1733 /******************************************************************************
1734  * CryptSetProviderExW (ADVAPI32.@)
1735  *
1736  * See CryptSetProviderExA
1737  */
1738 BOOL WINAPI CryptSetProviderExW (LPCWSTR pszProvName, DWORD dwProvType, DWORD *pdwReserved, DWORD dwFlags)
1739 {
1740         BOOL ret = FALSE;
1741         PSTR str = NULL;
1742
1743         TRACE("(%s, %ld, %p, %08ld)\n", debugstr_w(pszProvName), dwProvType, pdwReserved, dwFlags);
1744
1745         if (CRYPT_UnicodeToANSI(pszProvName, &str, -1))
1746         {
1747                 ret = CryptSetProviderExA(str, dwProvType, pdwReserved, dwFlags);
1748                 CRYPT_Free(str);
1749         }
1750         return ret;
1751 }
1752
1753 /******************************************************************************
1754  * CryptSetProvParam (ADVAPI32.@)
1755  *
1756  * Customizes the operations of a CSP.
1757  *
1758  * PARAMS
1759  *  hProv   [I] Handle of a CSP.
1760  *  dwParam [I] See MSDN Doc.
1761  *  pbData  [I] Buffer that contains a value to set as a parameter.
1762  *  dwFlags [I] if dwParam is PP_USE_HARDWARE_RNG, dwFlags must be zero.
1763  *
1764  * RETURNS
1765  *  Success: TRUE
1766  *  Failure: FALSE
1767  */
1768 BOOL WINAPI CryptSetProvParam (HCRYPTPROV hProv, DWORD dwParam, BYTE *pbData, DWORD dwFlags)
1769 {
1770         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1771
1772         TRACE("(0x%lx, %ld, %p, %08ld)\n", hProv, dwParam, pbData, dwFlags);
1773
1774         if (!prov)
1775                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1776         if (dwFlags & PP_USE_HARDWARE_RNG)
1777         {
1778                 FIXME("PP_USE_HARDWARE_RNG: What do I do with this?\n");
1779                 FIXME("\tLetting the CSP decide.\n");
1780         }
1781         if (dwFlags & PP_CLIENT_HWND)
1782         {
1783                 /* FIXME: Should verify the parameter */
1784                 if (pbData /* && IsWindow((HWND)pbData) */)
1785                 {
1786                         crypt_hWindow = (HWND)(pbData);
1787                         return TRUE;
1788                 } else {
1789                         SetLastError(ERROR_INVALID_PARAMETER);
1790                         return FALSE;
1791                 }
1792         }
1793         /* All other flags go to the CSP */
1794         return prov->pFuncs->pCPSetProvParam(prov->hPrivate, dwParam, pbData, dwFlags);
1795 }
1796
1797 /******************************************************************************
1798  * CryptVerifySignatureA
1799  *
1800  * Note: Since the sDesciption (string) is supposed to be NULL and
1801  *      is only retained for compatibility no string conversions are required
1802  *      and only one implementation is required for both ANSI and Unicode.
1803  *      We still need to export both:
1804  *
1805  * CryptVerifySignatureA (ADVAPI32.@)
1806  * CryptVerifySignatureW (ADVAPI32.@)
1807  *
1808  * Verifies the signature of a hash object.
1809  *
1810  * PARAMS
1811  *  hHash        [I] Handle of the hash object to verify.
1812  *  pbSignature  [I] Signature data to verify.
1813  *  dwSigLen     [I] Size of pbSignature.
1814  *  hPubKey      [I] Handle to the public key to authenticate signature.
1815  *  sDescription [I] Must be set to NULL.
1816  *  dwFlags      [I] See MSDN doc.
1817  *
1818  * RETURNS
1819  *  Success: TRUE
1820  *  Failure: FALSE
1821  */
1822 BOOL WINAPI CryptVerifySignatureA (HCRYPTHASH hHash, BYTE *pbSignature, DWORD dwSigLen,
1823                 HCRYPTKEY hPubKey, LPCSTR sDescription, DWORD dwFlags)
1824 {
1825         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1826         PCRYPTKEY key = (PCRYPTKEY)hPubKey;
1827         PCRYPTPROV prov;
1828
1829         TRACE("(0x%lx, %p, %ld, 0x%lx, %08ld)\n", hHash, pbSignature,
1830                         dwSigLen, hPubKey, dwFlags);
1831         if (sDescription)
1832                 WARN("The sDescription parameter is not supported (and no longer used).  Ignoring.\n");
1833
1834         if (!hash || !key)
1835                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1836         if (!pbSignature || !dwSigLen)
1837                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1838
1839         prov = hash->pProvider;
1840         return prov->pFuncs->pCPVerifySignature(prov->hPrivate, hash->hPrivate, pbSignature, dwSigLen,
1841                 key->hPrivate, NULL, dwFlags);
1842 }
1843
1844
1845 /*
1846    These functions have nearly identical prototypes to CryptProtectMemory and CryptUnprotectMemory,
1847    in crypt32.dll.
1848  */
1849
1850 /******************************************************************************
1851  * SystemFunction040   (ADVAPI32.@)
1852  *
1853  * PARAMS:
1854  *   memory : pointer to memory to encrypt
1855  *   length : length of region to encrypt, in bytes. must be multiple of RTL_ENCRYPT_MEMORY_SIZE
1856  *   flags  : RTL_ENCRYPT_OPTION_SAME_PROCESS | RTL_ENCRYPT_OPTION_CROSS_PROCESS, | RTL_ENCRYPT_OPTION_SAME_LOGON
1857  *            control whether other processes are able to decrypt the memory. The same value must be given
1858  *            when decrypting the memory.
1859  */
1860 NTSTATUS WINAPI SystemFunction040(PVOID memory, ULONG length, ULONG flags)  /* RtlEncryptMemory */
1861 {
1862         FIXME("(%p, %lx, %lx): stub [RtlEncryptMemory]\n", memory, length, flags);
1863         return STATUS_SUCCESS;
1864 }
1865
1866 /******************************************************************************
1867  * SystemFunction041  (ADVAPI32.@)
1868  *
1869  * PARAMS:
1870  *   memory : pointer to memory to decrypt
1871  *   length : length of region to decrypt, in bytes. must be multiple of RTL_ENCRYPT_MEMORY_SIZE
1872  *   flags  : RTL_ENCRYPT_OPTION_SAME_PROCESS | RTL_ENCRYPT_OPTION_CROSS_PROCESS, | RTL_ENCRYPT_OPTION_SAME_LOGON
1873  *            control whether other processes are able to decrypt the memory. The same value must be given
1874  *            when encrypting the memory.
1875  */
1876 NTSTATUS WINAPI SystemFunction041(PVOID memory, ULONG length, ULONG flags)  /* RtlDecryptMemory */
1877 {
1878         FIXME("(%p, %lx, %lx): stub [RtlDecryptMemory]\n", memory, length, flags);
1879         return STATUS_SUCCESS;
1880 }