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