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 unsuccessful, 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, %d, %08x)\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 %d.\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 %d.\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 %d 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 %d 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 (%d vs expected %d).\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 %d 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 %d 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                 CRYPT_Free(pProv->pVTable);
 478                 CRYPT_Free(pProv->pFuncs);
 479                 CRYPT_Free(pProv);
 480         }
 481         CRYPT_Free(pszContainerA);
 482         CRYPT_Free(provnameA);
 483         CRYPT_Free(provname);
 484         CRYPT_Free(temp);
 485         CRYPT_Free(imagepath);
 486         return FALSE;
 487 }
 488
 489 /******************************************************************************
 490  * CryptAcquireContextA (ADVAPI32.@)
 491  *
 492  * See CryptAcquireContextW.
 493  */
 494 BOOL WINAPI CryptAcquireContextA (HCRYPTPROV *phProv, LPCSTR pszContainer,
 495                 LPCSTR pszProvider, DWORD dwProvType, DWORD dwFlags)
 496 {
 497         PWSTR pProvider = NULL, pContainer = NULL;
 498         BOOL ret = FALSE;
 499
 500         TRACE("(%p, %s, %s, %d, %08x)\n", phProv, pszContainer,
 501                 pszProvider, dwProvType, dwFlags);
 502
 503         if ( !CRYPT_ANSIToUnicode(pszContainer, &pContainer, -1) )
 504                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 505         if ( !CRYPT_ANSIToUnicode(pszProvider, &pProvider, -1) )
 506         {
 507                 CRYPT_Free(pContainer);
 508                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 509         }
 510
 511         ret = CryptAcquireContextW(phProv, pContainer, pProvider, dwProvType, dwFlags);
 512
 513         CRYPT_Free(pContainer);
 514         CRYPT_Free(pProvider);
 515
 516         return ret;
 517 }
 518
 519 /******************************************************************************
 520  * CryptContextAddRef (ADVAPI32.@)
 521  *
 522  * Increases reference count of a cryptographic service provider handle
 523  * by one.
 524  *
 525  * PARAMS
 526  *  hProv       [I] Handle to the CSP whose reference is being incremented.
 527  *  pdwReserved [IN] Reserved for future use and must be NULL.
 528  *  dwFlags     [I] Reserved for future use and must be NULL.
 529  *
 530  * RETURNS
 531  *  Success: TRUE
 532  *  Failure: FALSE
 533  */
 534 BOOL WINAPI CryptContextAddRef (HCRYPTPROV hProv, DWORD *pdwReserved, DWORD dwFlags)
 535 {
 536         PCRYPTPROV pProv = (PCRYPTPROV)hProv;
 537
 538         TRACE("(0x%lx, %p, %08x)\n", hProv, pdwReserved, dwFlags);
 539
 540         if (!pProv)
 541         {
 542                 SetLastError(NTE_BAD_UID);
 543                 return FALSE;
 544         }
 545
 546         if (pProv->dwMagic != MAGIC_CRYPTPROV)
 547         {
 548                 SetLastError(ERROR_INVALID_PARAMETER);
 549                 return FALSE;
 550         }
 551
 552         pProv->refcount++;
 553         return TRUE;
 554 }
 555
 556 /******************************************************************************
 557  * CryptReleaseContext (ADVAPI32.@)
 558  *
 559  * Releases the handle of a CSP.  Reference count is decreased.
 560  *
 561  * PARAMS
 562  *  hProv   [I] Handle of a CSP.
 563  *  dwFlags [I] Reserved for future use and must be NULL.
 564  *
 565  * RETURNS
 566  *  Success: TRUE
 567  *  Failure: FALSE
 568  */
 569 BOOL WINAPI CryptReleaseContext (HCRYPTPROV hProv, DWORD dwFlags)
 570 {
 571         PCRYPTPROV pProv = (PCRYPTPROV)hProv;
 572         BOOL ret = TRUE;
 573
 574         TRACE("(0x%lx, %08x)\n", hProv, dwFlags);
 575
 576         if (!pProv)
 577         {
 578                 SetLastError(NTE_BAD_UID);
 579                 return FALSE;
 580         }
 581
 582         if (pProv->dwMagic != MAGIC_CRYPTPROV)
 583         {
 584                 SetLastError(ERROR_INVALID_PARAMETER);
 585                 return FALSE;
 586         }
 587
 588         pProv->refcount--;
 589         if (pProv->refcount <= 0)
 590         {
 591                 ret = pProv->pFuncs->pCPReleaseContext(pProv->hPrivate, dwFlags);
 592                 pProv->dwMagic = 0;
 593                 FreeLibrary(pProv->hModule);
 594 #if 0
 595                 CRYPT_Free(pProv->pVTable->pContextInfo);
 596 #endif
 597                 CRYPT_Free(pProv->pVTable->pszProvName);
 598                 CRYPT_Free(pProv->pVTable);
 599                 CRYPT_Free(pProv->pFuncs);
 600                 CRYPT_Free(pProv);
 601         }
 602         return ret;
 603 }
 604
 605 /******************************************************************************
 606  * CryptGenRandom (ADVAPI32.@)
 607  *
 608  * Fills a buffer with cryptographically random bytes.
 609  *
 610  * PARAMS
 611  *  hProv    [I] Handle of a CSP.
 612  *  dwLen    [I] Number of bytes to generate.
 613  *  pbBuffer [I/O] Buffer to contain random bytes.
 614  *
 615  * RETURNS
 616  *  Success: TRUE
 617  *  Failure: FALSE
 618  *
 619  * NOTES
 620  *  pdBuffer must be at least dwLen bytes long.
 621  */
 622 BOOL WINAPI CryptGenRandom (HCRYPTPROV hProv, DWORD dwLen, BYTE *pbBuffer)
 623 {
 624         PCRYPTPROV prov = (PCRYPTPROV)hProv;
 625
 626         TRACE("(0x%lx, %d, %p)\n", hProv, dwLen, pbBuffer);
 627
 628         if (!hProv)
 629                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 630
 631         if (prov->dwMagic != MAGIC_CRYPTPROV)
 632                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 633
 634         return prov->pFuncs->pCPGenRandom(prov->hPrivate, dwLen, pbBuffer);
 635 }
 636
 637 /******************************************************************************
 638  * CryptCreateHash (ADVAPI32.@)
 639  *
 640  * Initiates the hashing of a stream of data.
 641  *
 642  * PARAMS
 643  *  hProv   [I] Handle of a CSP.
 644  *  Algid   [I] Identifies the hash algorithm to use.
 645  *  hKey    [I] Key for the hash (if required).
 646  *  dwFlags [I] Reserved for future use and must be NULL.
 647  *  phHash  [O] Address of the future handle to the new hash object.
 648  *
 649  * RETURNS
 650  *  Success: TRUE
 651  *  Failure: FALSE
 652  *
 653  * NOTES
 654  *  If the algorithm is a keyed hash, hKey is the key.
 655  */
 656 BOOL WINAPI CryptCreateHash (HCRYPTPROV hProv, ALG_ID Algid, HCRYPTKEY hKey,
 657                 DWORD dwFlags, HCRYPTHASH *phHash)
 658 {
 659         PCRYPTPROV prov = (PCRYPTPROV)hProv;
 660         PCRYPTKEY key = (PCRYPTKEY)hKey;
 661         PCRYPTHASH hash;
 662
 663         TRACE("(0x%lx, 0x%x, 0x%lx, %08x, %p)\n", hProv, Algid, hKey, dwFlags, phHash);
 664
 665         if (!prov)
 666                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 667         if (!phHash || prov->dwMagic != MAGIC_CRYPTPROV)
 668                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 669         if (dwFlags)
 670                 CRYPT_ReturnLastError(NTE_BAD_FLAGS);
 671         if ( !(hash = CRYPT_Alloc(sizeof(CRYPTHASH))) )
 672                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 673
 674         hash->pProvider = prov;
 675
 676         if (prov->pFuncs->pCPCreateHash(prov->hPrivate, Algid,
 677                         key ? key->hPrivate : 0, 0, &hash->hPrivate))
 678         {
 679             *phHash = (HCRYPTHASH)hash;
 680             return TRUE;
 681         }
 682
 683         /* CSP error! */
 684         CRYPT_Free(hash);
 685         *phHash = 0;
 686         return FALSE;
 687 }
 688
 689 /******************************************************************************
 690  * CryptDecrypt (ADVAPI32.@)
 691  *
 692  * Decrypts data encrypted by CryptEncrypt.
 693  *
 694  * PARAMS
 695  *  hKey       [I] Handle to the decryption key.
 696  *  hHash      [I] Handle to a hash object.
 697  *  Final      [I] TRUE if this is the last section to be decrypted.
 698  *  dwFlags    [I] Reserved for future use. Can be CRYPT_OAEP.
 699  *  pbData     [I/O] Buffer that holds the encrypted data. Holds decrypted
 700  *                   data on return
 701  *  pdwDataLen [I/O] Length of pbData before and after the call.
 702  *
 703  *  RETURNS
 704  *   Success: TRUE
 705  *   Failure: FALSE
 706  */
 707 BOOL WINAPI CryptDecrypt (HCRYPTKEY hKey, HCRYPTHASH hHash, BOOL Final,
 708                 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen)
 709 {
 710         PCRYPTPROV prov;
 711         PCRYPTKEY key = (PCRYPTKEY)hKey;
 712         PCRYPTHASH hash = (PCRYPTHASH)hHash;
 713
 714         TRACE("(0x%lx, 0x%lx, %d, %08x, %p, %p)\n", hKey, hHash, Final, dwFlags, pbData, pdwDataLen);
 715
 716         if (!key || !pbData || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
 717                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 718
 719         prov = key->pProvider;
 720         return prov->pFuncs->pCPDecrypt(prov->hPrivate, key->hPrivate, hash ? hash->hPrivate : 0,
 721                         Final, dwFlags, pbData, pdwDataLen);
 722 }
 723
 724 /******************************************************************************
 725  * CryptDeriveKey (ADVAPI32.@)
 726  *
 727  * Generates session keys derived from a base data value.
 728  *
 729  * PARAMS
 730  *  hProv     [I] Handle to a CSP.
 731  *  Algid     [I] Identifies the symmetric encryption algorithm to use.
 732  *  hBaseData [I] Handle to a hash object.
 733  *  dwFlags   [I] Type of key to generate.
 734  *  phKey     [I/O] Address of the newly generated key.
 735  *
 736  * RETURNS
 737  *  Success: TRUE
 738  *  Failure: FALSE
 739  */
 740 BOOL WINAPI CryptDeriveKey (HCRYPTPROV hProv, ALG_ID Algid, HCRYPTHASH hBaseData,
 741                 DWORD dwFlags, HCRYPTKEY *phKey)
 742 {
 743         PCRYPTPROV prov = (PCRYPTPROV)hProv;
 744         PCRYPTHASH hash = (PCRYPTHASH)hBaseData;
 745         PCRYPTKEY key;
 746
 747         TRACE("(0x%lx, 0x%08x, 0x%lx, 0x%08x, %p)\n", hProv, Algid, hBaseData, dwFlags, phKey);
 748
 749         if (!prov || !hash)
 750                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 751         if (!phKey || prov->dwMagic != MAGIC_CRYPTPROV)
 752                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 753         if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
 754                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 755
 756         key->pProvider = prov;
 757         if (prov->pFuncs->pCPDeriveKey(prov->hPrivate, Algid, hash->hPrivate, dwFlags, &key->hPrivate))
 758         {
 759             *phKey = (HCRYPTKEY)key;
 760             return TRUE;
 761         }
 762
 763         /* CSP error! */
 764         CRYPT_Free(key);
 765         *phKey = 0;
 766         return FALSE;
 767 }
 768
 769 /******************************************************************************
 770  * CryptDestroyHash (ADVAPI32.@)
 771  *
 772  * Destroys the hash object referenced by hHash.
 773  *
 774  * PARAMS
 775  *  hHash [I] Handle of the hash object to be destroyed.
 776  *
 777  * RETURNS
 778  *  Success: TRUE
 779  *  Failure: FALSE
 780  */
 781 BOOL WINAPI CryptDestroyHash (HCRYPTHASH hHash)
 782 {
 783         PCRYPTHASH hash = (PCRYPTHASH)hHash;
 784         PCRYPTPROV prov;
 785         BOOL ret;
 786
 787         TRACE("(0x%lx)\n", hHash);
 788
 789         if (!hash)
 790                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 791
 792         if (!hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
 793                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 794
 795         prov = hash->pProvider;
 796         ret = prov->pFuncs->pCPDestroyHash(prov->hPrivate, hash->hPrivate);
 797         CRYPT_Free(hash);
 798         return ret;
 799 }
 800
 801 /******************************************************************************
 802  * CryptDestroyKey (ADVAPI32.@)
 803  *
 804  * Releases the handle referenced by hKey.
 805  *
 806  * PARAMS
 807  *  hKey [I] Handle of the key to be destroyed.
 808  *
 809  * RETURNS
 810  *  Success: TRUE
 811  *  Failure: FALSE
 812  */
 813 BOOL WINAPI CryptDestroyKey (HCRYPTKEY hKey)
 814 {
 815         PCRYPTKEY key = (PCRYPTKEY)hKey;
 816         PCRYPTPROV prov;
 817         BOOL ret;
 818
 819         TRACE("(0x%lx)\n", hKey);
 820
 821         if (!key)
 822                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
 823
 824         if (!key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
 825                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 826
 827         prov = key->pProvider;
 828         ret = prov->pFuncs->pCPDestroyKey(prov->hPrivate, key->hPrivate);
 829         CRYPT_Free(key);
 830         return ret;
 831 }
 832
 833 /******************************************************************************
 834  * CryptDuplicateHash (ADVAPI32.@)
 835  *
 836  * Duplicates a hash.
 837  *
 838  * PARAMS
 839  *  hHash       [I] Handle to the hash to be copied.
 840  *  pdwReserved [I] Reserved for future use and must be zero.
 841  *  dwFlags     [I] Reserved for future use and must be zero.
 842  *  phHash      [O] Address of the handle to receive the copy.
 843  *
 844  * RETURNS
 845  *  Success: TRUE
 846  *  Failure: FALSE
 847  */
 848 BOOL WINAPI CryptDuplicateHash (HCRYPTHASH hHash, DWORD *pdwReserved,
 849                 DWORD dwFlags, HCRYPTHASH *phHash)
 850 {
 851         PCRYPTPROV prov;
 852         PCRYPTHASH orghash, newhash;
 853
 854         TRACE("(0x%lx, %p, %08x, %p)\n", hHash, pdwReserved, dwFlags, phHash);
 855
 856         orghash = (PCRYPTHASH)hHash;
 857         if (!orghash || pdwReserved || !phHash || !orghash->pProvider ||
 858                 orghash->pProvider->dwMagic != MAGIC_CRYPTPROV)
 859         {
 860                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 861         }
 862
 863         prov = orghash->pProvider;
 864         if (!prov->pFuncs->pCPDuplicateHash)
 865                 CRYPT_ReturnLastError(ERROR_CALL_NOT_IMPLEMENTED);
 866
 867         if ( !(newhash = CRYPT_Alloc(sizeof(CRYPTHASH))) )
 868                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 869
 870         newhash->pProvider = prov;
 871         if (prov->pFuncs->pCPDuplicateHash(prov->hPrivate, orghash->hPrivate, pdwReserved, dwFlags, &newhash->hPrivate))
 872         {
 873                 *phHash = (HCRYPTHASH)newhash;
 874                 return TRUE;
 875         }
 876         CRYPT_Free(newhash);
 877         return FALSE;
 878 }
 879
 880 /******************************************************************************
 881  * CryptDuplicateKey (ADVAPI32.@)
 882  *
 883  * Duplicate a key and the key's state.
 884  *
 885  * PARAMS
 886  *  hKey        [I] Handle of the key to copy.
 887  *  pdwReserved [I] Reserved for future use and must be NULL.
 888  *  dwFlags     [I] Reserved for future use and must be zero.
 889  *  phKey       [I] Address of the handle to the duplicated key.
 890  *
 891  * RETURNS
 892  *  Success: TRUE
 893  *  Failure: FALSE
 894  */
 895 BOOL WINAPI CryptDuplicateKey (HCRYPTKEY hKey, DWORD *pdwReserved, DWORD dwFlags, HCRYPTKEY *phKey)
 896 {
 897         PCRYPTPROV prov;
 898         PCRYPTKEY orgkey, newkey;
 899
 900         TRACE("(0x%lx, %p, %08x, %p)\n", hKey, pdwReserved, dwFlags, phKey);
 901
 902         orgkey = (PCRYPTKEY)hKey;
 903         if (!orgkey || pdwReserved || !phKey || !orgkey->pProvider ||
 904                 orgkey->pProvider->dwMagic != MAGIC_CRYPTPROV)
 905         {
 906                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 907         }
 908
 909         prov = orgkey->pProvider;
 910         if (!prov->pFuncs->pCPDuplicateKey)
 911                 CRYPT_ReturnLastError(ERROR_CALL_NOT_IMPLEMENTED);
 912
 913         if ( !(newkey = CRYPT_Alloc(sizeof(CRYPTKEY))) )
 914                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
 915
 916         newkey->pProvider = prov;
 917         if (prov->pFuncs->pCPDuplicateKey(prov->hPrivate, orgkey->hPrivate, pdwReserved, dwFlags, &newkey->hPrivate))
 918         {
 919                 *phKey = (HCRYPTKEY)newkey;
 920                 return TRUE;
 921         }
 922         CRYPT_Free(newkey);
 923         return FALSE;
 924 }
 925
 926 /******************************************************************************
 927  * CryptEncrypt (ADVAPI32.@)
 928  *
 929  * Encrypts data.
 930  *
 931  * PARAMS
 932  *  hKey       [I] Handle to the enryption key.
 933  *  hHash      [I] Handle to a hash object.
 934  *  Final      [I] TRUE if this is the last section to encrypt.
 935  *  dwFlags    [I] Can be CRYPT_OAEP.
 936  *  pbData     [I/O] Data to be encrypted. Contains encrypted data after call.
 937  *  pdwDataLen [I/O] Length of the data to encrypt. Contains the length of the
 938  *                   encrypted data after call.
 939  *  dwBufLen   [I] Length of the input pbData buffer.
 940  *
 941  * RETURNS
 942  *  Success: TRUE
 943  *  Failure: FALSE
 944  *
 945  *  NOTES
 946  *   If pbData is NULL, CryptEncrypt determines stores the number of bytes
 947  *   required for the returned data in pdwDataLen.
 948  */
 949 BOOL WINAPI CryptEncrypt (HCRYPTKEY hKey, HCRYPTHASH hHash, BOOL Final,
 950                 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen, DWORD dwBufLen)
 951 {
 952         PCRYPTPROV prov;
 953         PCRYPTKEY key = (PCRYPTKEY)hKey;
 954         PCRYPTHASH hash = (PCRYPTHASH)hHash;
 955
 956         TRACE("(0x%lx, 0x%lx, %d, %08x, %p, %p, %d)\n", hKey, hHash, Final, dwFlags, pbData, pdwDataLen, dwBufLen);
 957
 958         if (!key || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
 959                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
 960
 961         prov = key->pProvider;
 962         return prov->pFuncs->pCPEncrypt(prov->hPrivate, key->hPrivate, hash ? hash->hPrivate : 0,
 963                         Final, dwFlags, pbData, pdwDataLen, dwBufLen);
 964 }
 965
 966 /******************************************************************************
 967  * CryptEnumProvidersW (ADVAPI32.@)
 968  *
 969  * Returns the next availabe CSP.
 970  *
 971  * PARAMS
 972  *  dwIndex     [I] Index of the next provider to be enumerated.
 973  *  pdwReserved [I] Reserved for future use and must be NULL.
 974  *  dwFlags     [I] Reserved for future use and must be zero.
 975  *  pdwProvType [O] DWORD designating the type of the provider.
 976  *  pszProvName [O] Buffer that receives data from the provider.
 977  *  pcbProvName [I/O] Specifies the size of pszProvName. Contains the number
 978  *                    of bytes stored in the buffer on return.
 979  *
 980  *  RETURNS
 981  *   Success: TRUE
 982  *   Failure: FALSE
 983  *
 984  *  NOTES
 985  *   If pszProvName is NULL, CryptEnumProvidersW sets the size of the name
 986  *   for memory allocation purposes.
 987  */
 988 BOOL WINAPI CryptEnumProvidersW (DWORD dwIndex, DWORD *pdwReserved,
 989                 DWORD dwFlags, DWORD *pdwProvType, LPWSTR pszProvName, DWORD *pcbProvName)
 990 {
 991         HKEY hKey;
 992         static const WCHAR providerW[] = {
 993                 'S','o','f','t','w','a','r','e','\\',
 994                 'M','i','c','r','o','s','o','f','t','\\',
 995                 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
 996                 'D','e','f','a','u','l','t','s','\\',
 997                 'P','r','o','v','i','d','e','r',0
 998         };
 999         static const WCHAR typeW[] = {'T','y','p','e',0};
1000
1001         TRACE("(%d, %p, %d, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1002                         pdwProvType, pszProvName, pcbProvName);
1003
1004         if (pdwReserved || !pcbProvName) CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1005         if (dwFlags) CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1006
1007         if (RegOpenKeyW(HKEY_LOCAL_MACHINE, providerW, &hKey))
1008                 CRYPT_ReturnLastError(NTE_FAIL);
1009
1010         if (!pszProvName)
1011         {
1012                 DWORD numkeys;
1013                 WCHAR *provNameW;
1014
1015                 RegQueryInfoKeyW(hKey, NULL, NULL, NULL, &numkeys, pcbProvName,
1016                                  NULL, NULL, NULL, NULL, NULL, NULL);
1017
1018                 if (!(provNameW = CRYPT_Alloc(*pcbProvName * sizeof(WCHAR))))
1019                         CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1020
1021                 RegEnumKeyExW(hKey, dwIndex, provNameW, pcbProvName, NULL, NULL, NULL, NULL);
1022                 CRYPT_Free(provNameW);
1023                 (*pcbProvName)++;
1024                 *pcbProvName *= sizeof(WCHAR);
1025
1026                 if (dwIndex >= numkeys)
1027                         CRYPT_ReturnLastError(ERROR_NO_MORE_ITEMS);
1028         } else {
1029                 DWORD size = sizeof(DWORD);
1030                 DWORD result;
1031                 HKEY subkey;
1032
1033                 result = RegEnumKeyW(hKey, dwIndex, pszProvName, *pcbProvName / sizeof(WCHAR));
1034                 if (result)
1035                         CRYPT_ReturnLastError(result);
1036                 if (RegOpenKeyW(hKey, pszProvName, &subkey))
1037                         return FALSE;
1038                 if (RegQueryValueExW(subkey, typeW, NULL, NULL, (BYTE*)pdwProvType, &size))
1039                         return FALSE;
1040                 RegCloseKey(subkey);
1041         }
1042         RegCloseKey(hKey);
1043         return TRUE;
1044 }
1045
1046 /******************************************************************************
1047  * CryptEnumProvidersA (ADVAPI32.@)
1048  *
1049  * See CryptEnumProvidersW.
1050  */
1051 BOOL WINAPI CryptEnumProvidersA (DWORD dwIndex, DWORD *pdwReserved,
1052                 DWORD dwFlags, DWORD *pdwProvType, LPSTR pszProvName, DWORD *pcbProvName)
1053 {
1054         PWSTR str = NULL;
1055         DWORD strlen;
1056         BOOL ret; /* = FALSE; */
1057
1058         TRACE("(%d, %p, %08x, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1059                         pdwProvType, pszProvName, pcbProvName);
1060
1061         CryptEnumProvidersW(dwIndex, pdwReserved, dwFlags, pdwProvType, NULL, &strlen);
1062         if ( pszProvName && !(str = CRYPT_Alloc(strlen)) )
1063                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1064         ret = CryptEnumProvidersW(dwIndex, pdwReserved, dwFlags, pdwProvType, str, &strlen);
1065         if (str)
1066                 CRYPT_UnicodeToANSI(str, &pszProvName, *pcbProvName);
1067         *pcbProvName = strlen / sizeof(WCHAR);  /* FIXME: not correct */
1068         if (str)
1069         {
1070                 CRYPT_Free(str);
1071                 if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
1072                         CRYPT_ReturnLastError(ERROR_MORE_DATA);
1073         }
1074         return ret;
1075 }
1076
1077 /******************************************************************************
1078  * CryptEnumProviderTypesW (ADVAPI32.@)
1079  *
1080  * Retrieves the next type of CSP supported.
1081  *
1082  * PARAMS
1083  *  dwIndex     [I] Index of the next provider to be enumerated.
1084  *  pdwReserved [I] Reserved for future use and must be NULL.
1085  *  dwFlags     [I] Reserved for future use and must be zero.
1086  *  pdwProvType [O] DWORD designating the type of the provider.
1087  *  pszTypeName [O] Buffer that receives data from the provider type.
1088  *  pcbTypeName [I/O] Specifies the size of pszTypeName. Contains the number
1089  *                    of bytes stored in the buffer on return.
1090  *
1091  *  RETURNS
1092  *   Success: TRUE
1093  *   Failure: FALSE
1094  *
1095  *  NOTES
1096  *   If pszTypeName is NULL, CryptEnumProviderTypesW sets the size of the name
1097  *   for memory allocation purposes.
1098  */
1099 BOOL WINAPI CryptEnumProviderTypesW (DWORD dwIndex, DWORD *pdwReserved,
1100                 DWORD dwFlags, DWORD *pdwProvType, LPWSTR pszTypeName, DWORD *pcbTypeName)
1101 {
1102         HKEY hKey, hSubkey;
1103         DWORD keylen, numkeys, dwType;
1104         PWSTR keyname, ch;
1105         DWORD result;
1106         static const WCHAR KEYSTR[] = {
1107                 'S','o','f','t','w','a','r','e','\\',
1108                 'M','i','c','r','o','s','o','f','t','\\',
1109                 'C','r','y','p','t','o','g','r','a','p','h','y','\\',
1110                 'D','e','f','a','u','l','t','s','\\',
1111                 'P','r','o','v','i','d','e','r',' ','T','y','p','e','s',0
1112         };
1113         static const WCHAR typenameW[] = {'T','y','p','e','N','a','m','e',0};
1114
1115         TRACE("(%d, %p, %08x, %p, %p, %p)\n", dwIndex, pdwReserved,
1116                 dwFlags, pdwProvType, pszTypeName, pcbTypeName);
1117
1118         if (pdwReserved || !pdwProvType || !pcbTypeName)
1119                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1120         if (dwFlags) CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1121
1122         if (RegOpenKeyW(HKEY_LOCAL_MACHINE, KEYSTR, &hKey))
1123                 return FALSE;
1124
1125         RegQueryInfoKeyW(hKey, NULL, NULL, NULL, &numkeys, &keylen, NULL, NULL, NULL, NULL, NULL, NULL);
1126         if (dwIndex >= numkeys)
1127                 CRYPT_ReturnLastError(ERROR_NO_MORE_ITEMS);
1128         keylen++;
1129         if ( !(keyname = CRYPT_Alloc(keylen*sizeof(WCHAR))) )
1130                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1131         if ( RegEnumKeyW(hKey, dwIndex, keyname, keylen) ) {
1132                 CRYPT_Free(keyname);
1133                 return FALSE;
1134         }
1135         RegOpenKeyW(hKey, keyname, &hSubkey);
1136         ch = keyname + strlenW(keyname);
1137         /* Convert "Type 000" to 0, etc/ */
1138         *pdwProvType = *(--ch) - '0';
1139         *pdwProvType += (*(--ch) - '0') * 10;
1140         *pdwProvType += (*(--ch) - '0') * 100;
1141         CRYPT_Free(keyname);
1142
1143         result = RegQueryValueExW(hSubkey, typenameW, NULL, &dwType, (LPBYTE)pszTypeName, pcbTypeName);
1144         if (result)
1145                 CRYPT_ReturnLastError(result);
1146
1147         RegCloseKey(hSubkey);
1148         RegCloseKey(hKey);
1149         return TRUE;
1150 }
1151
1152 /******************************************************************************
1153  * CryptEnumProviderTypesA (ADVAPI32.@)
1154  *
1155  * See CryptEnumProviderTypesW.
1156  */
1157 BOOL WINAPI CryptEnumProviderTypesA (DWORD dwIndex, DWORD *pdwReserved,
1158                 DWORD dwFlags, DWORD *pdwProvType, LPSTR pszTypeName, DWORD *pcbTypeName)
1159 {
1160         PWSTR str = NULL;
1161         DWORD strlen;
1162         BOOL ret;
1163
1164         TRACE("(%d, %p, %08x, %p, %p, %p)\n", dwIndex, pdwReserved, dwFlags,
1165                         pdwProvType, pszTypeName, pcbTypeName);
1166
1167         CryptEnumProviderTypesW(dwIndex, pdwReserved, dwFlags, pdwProvType, NULL, &strlen);
1168         if ( pszTypeName && !(str = CRYPT_Alloc(strlen)) )
1169                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1170         ret = CryptEnumProviderTypesW(dwIndex, pdwReserved, dwFlags, pdwProvType, str, &strlen);
1171         if (str)
1172                 CRYPT_UnicodeToANSI(str, &pszTypeName, *pcbTypeName);
1173         *pcbTypeName = strlen / sizeof(WCHAR);
1174         if (str)
1175         {
1176                 CRYPT_Free(str);
1177                 if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
1178                         CRYPT_ReturnLastError(ERROR_MORE_DATA);
1179         }
1180         return ret;
1181 }
1182
1183 /******************************************************************************
1184  * CryptExportKey (ADVAPI32.@)
1185  *
1186  * Exports a cryptographic key from a CSP.
1187  *
1188  * PARAMS
1189  *  hKey       [I] Handle to the key to export.
1190  *  hExpKey    [I] Handle to a cryptographic key of the end user.
1191  *  dwBlobType [I] Type of BLOB to be exported.
1192  *  dwFlags    [I] CRYPT_DESTROYKEY/SSL2_FALLBACK/OAEP.
1193  *  pbData     [O] Buffer to receive BLOB data.
1194  *  pdwDataLen [I/O] Specifies the size of pbData.
1195  *
1196  * RETURNS
1197  *  Success: TRUE
1198  *  Failure: FALSE
1199  *
1200  * NOTES
1201  *  if pbData is NULL, CryptExportKey sets pdwDataLen as the size of the
1202  *  buffer needed to hold the BLOB.
1203  */
1204 BOOL WINAPI CryptExportKey (HCRYPTKEY hKey, HCRYPTKEY hExpKey, DWORD dwBlobType,
1205                 DWORD dwFlags, BYTE *pbData, DWORD *pdwDataLen)
1206 {
1207         PCRYPTPROV prov;
1208         PCRYPTKEY key = (PCRYPTKEY)hKey, expkey = (PCRYPTKEY)hExpKey;
1209
1210         TRACE("(0x%lx, 0x%lx, %d, %08x, %p, %p)\n", hKey, hExpKey, dwBlobType, dwFlags, pbData, pdwDataLen);
1211
1212         if (!key || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1213                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1214
1215         prov = key->pProvider;
1216         return prov->pFuncs->pCPExportKey(prov->hPrivate, key->hPrivate, expkey ? expkey->hPrivate : 0,
1217                         dwBlobType, dwFlags, pbData, pdwDataLen);
1218 }
1219
1220 /******************************************************************************
1221  * CryptGenKey (ADVAPI32.@)
1222  *
1223  * Generates a random cryptographic session key or a pub/priv key pair.
1224  *
1225  * PARAMS
1226  *  hProv   [I] Handle to a CSP.
1227  *  Algid   [I] Algorithm to use to make key.
1228  *  dwFlags [I] Specifies type of key to make.
1229  *  phKey   [I] Address of the handle to which the new key is copied.
1230  *
1231  *  RETURNS
1232  *   Success: TRUE
1233  *   Failure: FALSE
1234  */
1235 BOOL WINAPI CryptGenKey (HCRYPTPROV hProv, ALG_ID Algid, DWORD dwFlags, HCRYPTKEY *phKey)
1236 {
1237         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1238         PCRYPTKEY key;
1239
1240         TRACE("(0x%lx, %d, %08x, %p)\n", hProv, Algid, dwFlags, phKey);
1241
1242         if (!prov)
1243                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1244         if (!phKey || !prov || prov->dwMagic != MAGIC_CRYPTPROV)
1245                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1246         if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1247                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1248
1249         key->pProvider = prov;
1250
1251         if (prov->pFuncs->pCPGenKey(prov->hPrivate, Algid, dwFlags, &key->hPrivate))
1252         {
1253             *phKey = (HCRYPTKEY)key;
1254             return TRUE;
1255         }
1256
1257         /* CSP error! */
1258         CRYPT_Free(key);
1259         return FALSE;
1260 }
1261
1262 /******************************************************************************
1263  * CryptGetDefaultProviderW (ADVAPI32.@)
1264  *
1265  * Finds the default CSP of a certain provider type.
1266  *
1267  * PARAMS
1268  *  dwProvType  [I] Provider type to look for.
1269  *  pdwReserved [I] Reserved for future use and must be NULL.
1270  *  dwFlags     [I] CRYPT_MACHINE_DEFAULT/USER_DEFAULT
1271  *  pszProvName [O] Name of the default CSP.
1272  *  pcbProvName [I/O] Size of pszProvName
1273  *
1274  * RETURNS
1275  *  Success: TRUE
1276  *  Failure: FALSE
1277  *
1278  * NOTES
1279  *  If pszProvName is NULL, pcbProvName will hold the size of the buffer for
1280  *  memory allocation purposes on return.
1281  */
1282 BOOL WINAPI CryptGetDefaultProviderW (DWORD dwProvType, DWORD *pdwReserved,
1283                 DWORD dwFlags, LPWSTR pszProvName, DWORD *pcbProvName)
1284 {
1285         HKEY hKey;
1286         PWSTR keyname;
1287         DWORD result;
1288         static const WCHAR nameW[] = {'N','a','m','e',0};
1289
1290         if (pdwReserved || !pcbProvName)
1291                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1292         if (dwFlags & ~(CRYPT_USER_DEFAULT | CRYPT_MACHINE_DEFAULT))
1293                 CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1294         if (dwProvType > 999)
1295                 CRYPT_ReturnLastError(NTE_BAD_PROV_TYPE);
1296         if ( !(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)) )
1297                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1298         if (RegOpenKeyW((dwFlags & CRYPT_USER_DEFAULT) ?  HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE ,keyname, &hKey))
1299         {
1300                 CRYPT_Free(keyname);
1301                 CRYPT_ReturnLastError(NTE_PROV_TYPE_NOT_DEF);
1302         }
1303         CRYPT_Free(keyname);
1304
1305         result = RegQueryValueExW(hKey, nameW, NULL, NULL, (LPBYTE)pszProvName, pcbProvName);
1306         if (result)
1307         {
1308                 if (result != ERROR_MORE_DATA)
1309                         SetLastError(NTE_PROV_TYPE_ENTRY_BAD);
1310                 else
1311                         SetLastError(result);
1312
1313                 return FALSE;
1314         }
1315
1316         RegCloseKey(hKey);
1317         return TRUE;
1318 }
1319
1320 /******************************************************************************
1321  * CryptGetDefaultProviderA (ADVAPI32.@)
1322  *
1323  * See CryptGetDefaultProviderW.
1324  */
1325 BOOL WINAPI CryptGetDefaultProviderA (DWORD dwProvType, DWORD *pdwReserved,
1326                 DWORD dwFlags, LPSTR pszProvName, DWORD *pcbProvName)
1327 {
1328         PWSTR str = NULL;
1329         DWORD strlen;
1330         BOOL ret = FALSE;
1331
1332         TRACE("(%d, %p, %08x, %p, %p)\n", dwProvType, pdwReserved, dwFlags, pszProvName, pcbProvName);
1333
1334         CryptGetDefaultProviderW(dwProvType, pdwReserved, dwFlags, NULL, &strlen);
1335         if ( pszProvName && !(str = CRYPT_Alloc(strlen)) )
1336                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1337         ret = CryptGetDefaultProviderW(dwProvType, pdwReserved, dwFlags, str, &strlen);
1338         if (str)
1339                 CRYPT_UnicodeToANSI(str, &pszProvName, *pcbProvName);
1340         *pcbProvName = strlen / sizeof(WCHAR);
1341         if (str)
1342         {
1343                 CRYPT_Free(str);
1344                 if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
1345                         CRYPT_ReturnLastError(ERROR_MORE_DATA);
1346         }
1347         return ret;
1348 }
1349
1350 /******************************************************************************
1351  * CryptGetHashParam (ADVAPI32.@)
1352  *
1353  * Retrieves data that controls the operations of a hash object.
1354  *
1355  * PARAMS
1356  *  hHash      [I] Handle of the hash object to question.
1357  *  dwParam    [I] Query type.
1358  *  pbData     [O] Buffer that receives the value data.
1359  *  pdwDataLen [I/O] Size of the pbData buffer.
1360  *  dwFlags    [I] Reserved for future use and must be zero.
1361  *
1362  * RETURNS
1363  *  Success: TRUE
1364  *  Failure: FALSE
1365  *
1366  * NOTES
1367  *  If pbData is NULL, pdwDataLen will contain the length required.
1368  */
1369 BOOL WINAPI CryptGetHashParam (HCRYPTHASH hHash, DWORD dwParam, BYTE *pbData,
1370                 DWORD *pdwDataLen, DWORD dwFlags)
1371 {
1372         PCRYPTPROV prov;
1373         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1374
1375         TRACE("(0x%lx, %d, %p, %p, %08x)\n", hHash, dwParam, pbData, pdwDataLen, dwFlags);
1376
1377         if (!hash || !pdwDataLen || !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1378                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1379
1380         prov = hash->pProvider;
1381         return prov->pFuncs->pCPGetHashParam(prov->hPrivate, hash->hPrivate, dwParam,
1382                         pbData, pdwDataLen, dwFlags);
1383 }
1384
1385 /******************************************************************************
1386  * CryptGetKeyParam (ADVAPI32.@)
1387  *
1388  * Retrieves data that controls the operations of a key.
1389  *
1390  * PARAMS
1391  *  hKey       [I] Handle to they key in question.
1392  *  dwParam    [I] Specifies query type.
1393  *  pbData     [O] Sequence of bytes to receive data.
1394  *  pdwDataLen [I/O] Size of pbData.
1395  *  dwFlags    [I] Reserved for future use and must be zero.
1396  *
1397  * RETURNS
1398  *  Success: TRUE
1399  *  Failure: FALSE
1400  *
1401  * NOTES
1402  *  If pbData is NULL, pdwDataLen is set to the needed length of the buffer.
1403  */
1404 BOOL WINAPI CryptGetKeyParam (HCRYPTKEY hKey, DWORD dwParam, BYTE *pbData,
1405                 DWORD *pdwDataLen, DWORD dwFlags)
1406 {
1407         PCRYPTPROV prov;
1408         PCRYPTKEY key = (PCRYPTKEY)hKey;
1409
1410         TRACE("(0x%lx, %d, %p, %p, %08x)\n", hKey, dwParam, pbData, pdwDataLen, dwFlags);
1411
1412         if (!key || !pdwDataLen || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1413                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1414
1415         prov = key->pProvider;
1416         return prov->pFuncs->pCPGetKeyParam(prov->hPrivate, key->hPrivate, dwParam,
1417                         pbData, pdwDataLen, dwFlags);
1418 }
1419
1420 /******************************************************************************
1421  * CryptGetProvParam (ADVAPI32.@)
1422  *
1423  * Retrieves parameters that control the operations of a CSP.
1424  *
1425  * PARAMS
1426  *  hProv      [I] Handle of the CSP in question.
1427  *  dwParam    [I] Specifies query type.
1428  *  pbData     [O] Buffer to receive the data.
1429  *  pdwDataLen [I/O] Size of pbData.
1430  *  dwFlags    [I] see MSDN Docs.
1431  *
1432  * RETURNS
1433  *  Success: TRUE
1434  *  Failure: FALSE
1435  *
1436  * NOTES
1437  *  If pbData is NULL, pdwDataLen is set to the needed buffer length.
1438  */
1439 BOOL WINAPI CryptGetProvParam (HCRYPTPROV hProv, DWORD dwParam, BYTE *pbData,
1440                 DWORD *pdwDataLen, DWORD dwFlags)
1441 {
1442         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1443
1444         TRACE("(0x%lx, %d, %p, %p, %08x)\n", hProv, dwParam, pbData, pdwDataLen, dwFlags);
1445
1446         if (!prov || prov->dwMagic != MAGIC_CRYPTPROV)
1447                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1448
1449         return prov->pFuncs->pCPGetProvParam(prov->hPrivate, dwParam, pbData, pdwDataLen, dwFlags);
1450 }
1451
1452 /******************************************************************************
1453  * CryptGetUserKey (ADVAPI32.@)
1454  *
1455  * Gets a handle of one of a user's two public/private key pairs.
1456  *
1457  * PARAMS
1458  *  hProv     [I] Handle of a CSP.
1459  *  dwKeySpec [I] Private key to use.
1460  *  phUserKey [O] Pointer to the handle of the retrieved keys.
1461  *
1462  * RETURNS
1463  *  Success: TRUE
1464  *  Failure: FALSE
1465  */
1466 BOOL WINAPI CryptGetUserKey (HCRYPTPROV hProv, DWORD dwKeySpec, HCRYPTKEY *phUserKey)
1467 {
1468         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1469         PCRYPTKEY key;
1470
1471         TRACE("(0x%lx, %d, %p)\n", hProv, dwKeySpec, phUserKey);
1472
1473         if (!prov)
1474                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1475         if (!phUserKey || prov->dwMagic != MAGIC_CRYPTPROV)
1476                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1477         if ( !(key = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1478                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1479
1480         key->pProvider = prov;
1481
1482         if (prov->pFuncs->pCPGetUserKey(prov->hPrivate, dwKeySpec, &key->hPrivate))
1483         {
1484             *phUserKey = (HCRYPTKEY)key;
1485             return TRUE;
1486         }
1487
1488         /* CSP Error */
1489         CRYPT_Free(key);
1490         *phUserKey = 0;
1491         return FALSE;
1492 }
1493
1494 /******************************************************************************
1495  * CryptHashData (ADVAPI32.@)
1496  *
1497  * Adds data to a hash object.
1498  *
1499  * PARAMS
1500  *  hHash     [I] Handle of the hash object.
1501  *  pbData    [I] Buffer of data to be hashed.
1502  *  dwDataLen [I] Number of bytes to add.
1503  *  dwFlags   [I] Can be CRYPT_USERDATA
1504  *
1505  * RETURNS
1506  *  Success: TRUE
1507  *  Failure: FALSE
1508  */
1509 BOOL WINAPI CryptHashData (HCRYPTHASH hHash, const BYTE *pbData, DWORD dwDataLen, DWORD dwFlags)
1510 {
1511         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1512         PCRYPTPROV prov;
1513
1514         TRACE("(0x%lx, %p, %d, %08x)\n", hHash, pbData, dwDataLen, dwFlags);
1515
1516         if (!hash)
1517                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1518         if (!hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1519                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1520
1521         prov = hash->pProvider;
1522         return prov->pFuncs->pCPHashData(prov->hPrivate, hash->hPrivate, pbData, dwDataLen, dwFlags);
1523 }
1524
1525 /******************************************************************************
1526  * CryptHashSessionKey (ADVAPI32.@)
1527  *
1528  * Compute the cryptographic hash of a session key object.
1529  *
1530  * PARAMS
1531  *  hHash   [I] Handle to the hash object.
1532  *  hKey    [I] Handle to the key to be hashed.
1533  *  dwFlags [I] Can be CRYPT_LITTLE_ENDIAN.
1534  *
1535  * RETURNS
1536  *  Success: TRUE
1537  *  Failure: FALSE
1538  */
1539 BOOL WINAPI CryptHashSessionKey (HCRYPTHASH hHash, HCRYPTKEY hKey, DWORD dwFlags)
1540 {
1541         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1542         PCRYPTKEY key = (PCRYPTKEY)hKey;
1543         PCRYPTPROV prov;
1544
1545         TRACE("(0x%lx, 0x%lx, %08x)\n", hHash, hKey, dwFlags);
1546
1547         if (!hash || !key)
1548                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1549
1550         if (!hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1551                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1552
1553         prov = hash->pProvider;
1554         return prov->pFuncs->pCPHashSessionKey(prov->hPrivate, hash->hPrivate, key->hPrivate, dwFlags);
1555 }
1556
1557 /******************************************************************************
1558  * CryptImportKey (ADVAPI32.@)
1559  *
1560  * Transfer a cryptographic key from a key BLOB into a cryptographic service provider (CSP).
1561  *
1562  * PARAMS
1563  *  hProv     [I] Handle of a CSP.
1564  *  pbData    [I] Contains the key to be imported.
1565  *  dwDataLen [I] Length of the key.
1566  *  hPubKey   [I] Cryptographic key that decrypts pdData
1567  *  dwFlags   [I] Used only with a public/private key pair.
1568  *  phKey     [O] Imported key.
1569  *
1570  * RETURNS
1571  *  Success: TRUE
1572  *  Failure: FALSE
1573  */
1574 BOOL WINAPI CryptImportKey (HCRYPTPROV hProv, BYTE *pbData, DWORD dwDataLen,
1575                 HCRYPTKEY hPubKey, DWORD dwFlags, HCRYPTKEY *phKey)
1576 {
1577         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1578         PCRYPTKEY pubkey = (PCRYPTKEY)hPubKey, importkey;
1579
1580         TRACE("(0x%lx, %p, %d, 0x%lx, %08x, %p)\n", hProv, pbData, dwDataLen, hPubKey, dwFlags, phKey);
1581
1582         if (!prov || !pbData || !dwDataLen || !phKey || prov->dwMagic != MAGIC_CRYPTPROV)
1583                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1584
1585         if ( !(importkey = CRYPT_Alloc(sizeof(CRYPTKEY))) )
1586                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1587
1588         importkey->pProvider = prov;
1589         if (prov->pFuncs->pCPImportKey(prov->hPrivate, pbData, dwDataLen,
1590                         pubkey ? pubkey->hPrivate : 0, dwFlags, &importkey->hPrivate))
1591         {
1592                 *phKey = (HCRYPTKEY)importkey;
1593                 return TRUE;
1594         }
1595
1596         CRYPT_Free(importkey);
1597         return FALSE;
1598 }
1599
1600 /******************************************************************************
1601  * CryptSignHashW (ADVAPI32.@)
1602  *
1603  * Signs data.
1604  *
1605  * PARAMS
1606  *  hHash        [I] Handle of the hash object to be signed.
1607  *  dwKeySpec    [I] Private key to use.
1608  *  sDescription [I] Should be NULL.
1609  *  dwFlags      [I] CRYPT_NOHASHOID/X931_FORMAT.
1610  *  pbSignature  [O] Buffer of the signature data.
1611  *  pdwSigLen    [I/O] Size of the pbSignature buffer.
1612  *
1613  * RETURNS
1614  *  Success: TRUE
1615  *  Failure: FALSE
1616  *
1617  * NOTES
1618  *  Because of security flaws sDescription should not be used and should thus be
1619  *  NULL. It is supported only for compatibility with Microsoft's Cryptographic
1620  *  Providers.
1621  */
1622 BOOL WINAPI CryptSignHashW (HCRYPTHASH hHash, DWORD dwKeySpec, LPCWSTR sDescription,
1623                 DWORD dwFlags, BYTE *pbSignature, DWORD *pdwSigLen)
1624 {
1625         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1626         PCRYPTPROV prov;
1627
1628         TRACE("(0x%lx, %d, %s, %08x, %p, %p)\n",
1629                 hHash, dwKeySpec, debugstr_w(sDescription), dwFlags, pbSignature, pdwSigLen);
1630
1631         if (!hash)
1632                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1633         if (!pdwSigLen || !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1634                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1635
1636         prov = hash->pProvider;
1637         return prov->pFuncs->pCPSignHash(prov->hPrivate, hash->hPrivate, dwKeySpec, sDescription,
1638                 dwFlags, pbSignature, pdwSigLen);
1639 }
1640
1641 /******************************************************************************
1642  * CryptSignHashA (ADVAPI32.@)
1643  *
1644  * See CryptSignHashW.
1645  */
1646 BOOL WINAPI CryptSignHashA (HCRYPTHASH hHash, DWORD dwKeySpec, LPCSTR sDescription,
1647                 DWORD dwFlags, BYTE *pbSignature, DWORD *pdwSigLen)
1648 {
1649         LPWSTR wsDescription;
1650         BOOL result;
1651
1652         TRACE("(0x%lx, %d, %s, %08x, %p, %p)\n",
1653                 hHash, dwKeySpec, debugstr_a(sDescription), dwFlags, pbSignature, pdwSigLen);
1654
1655         CRYPT_ANSIToUnicode(sDescription, &wsDescription, -1);
1656         result = CryptSignHashW(hHash, dwKeySpec, wsDescription, dwFlags, pbSignature, pdwSigLen);
1657         CRYPT_Free(wsDescription);
1658
1659         return result;
1660 }
1661
1662 /******************************************************************************
1663  * CryptSetHashParam (ADVAPI32.@)
1664  *
1665  * Customizes the operations of a hash object.
1666  *
1667  * PARAMS
1668  *  hHash   [I] Handle of the hash object to set parameters.
1669  *  dwParam [I] HP_HMAC_INFO/HASHVAL.
1670  *  pbData  [I] Value data buffer.
1671  *  dwFlags [I] Reserved for future use and must be zero.
1672  *
1673  * RETURNS
1674  *  Success: TRUE
1675  *  Failure: FALSE
1676  */
1677 BOOL WINAPI CryptSetHashParam (HCRYPTHASH hHash, DWORD dwParam, BYTE *pbData, DWORD dwFlags)
1678 {
1679         PCRYPTPROV prov;
1680         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1681
1682         TRACE("(0x%lx, %d, %p, %08x)\n", hHash, dwParam, pbData, dwFlags);
1683
1684         if (!hash || !pbData || !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV)
1685                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1686
1687         prov = hash->pProvider;
1688         return prov->pFuncs->pCPSetHashParam(prov->hPrivate, hash->hPrivate,
1689                         dwParam, pbData, dwFlags);
1690 }
1691
1692 /******************************************************************************
1693  * CryptSetKeyParam (ADVAPI32.@)
1694  *
1695  * Customizes a session key's operations.
1696  *
1697  * PARAMS
1698  *  hKey    [I] Handle to the key to set values.
1699  *  dwParam [I] See MSDN Doc.
1700  *  pbData  [I] Buffer of values to set.
1701  *  dwFlags [I] Only used when dwParam == KP_ALGID.
1702  *
1703  * RETURNS
1704  *  Success: TRUE
1705  *  Failure: FALSE
1706  */
1707 BOOL WINAPI CryptSetKeyParam (HCRYPTKEY hKey, DWORD dwParam, BYTE *pbData, DWORD dwFlags)
1708 {
1709         PCRYPTPROV prov;
1710         PCRYPTKEY key = (PCRYPTKEY)hKey;
1711
1712         TRACE("(0x%lx, %d, %p, %08x)\n", hKey, dwParam, pbData, dwFlags);
1713
1714         if (!key || !pbData || !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1715                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1716
1717         prov = key->pProvider;
1718         return prov->pFuncs->pCPSetKeyParam(prov->hPrivate, key->hPrivate,
1719                         dwParam, pbData, dwFlags);
1720 }
1721
1722 /******************************************************************************
1723  * CryptSetProviderA (ADVAPI32.@)
1724  *
1725  * Specifies the current user's default CSP.
1726  *
1727  * PARAMS
1728  *  pszProvName [I] Name of the new default CSP.
1729  *  dwProvType  [I] Provider type of the CSP.
1730  *
1731  * RETURNS
1732  *  Success: TRUE
1733  *  Failure: FALSE
1734  */
1735 BOOL WINAPI CryptSetProviderA (LPCSTR pszProvName, DWORD dwProvType)
1736 {
1737         TRACE("(%s, %d)\n", pszProvName, dwProvType);
1738         return CryptSetProviderExA(pszProvName, dwProvType, NULL, CRYPT_USER_DEFAULT);
1739 }
1740
1741 /******************************************************************************
1742  * CryptSetProviderW (ADVAPI32.@)
1743  *
1744  * See CryptSetProviderA.
1745  */
1746 BOOL WINAPI CryptSetProviderW (LPCWSTR pszProvName, DWORD dwProvType)
1747 {
1748         TRACE("(%s, %d)\n", debugstr_w(pszProvName), dwProvType);
1749         return CryptSetProviderExW(pszProvName, dwProvType, NULL, CRYPT_USER_DEFAULT);
1750 }
1751
1752 /******************************************************************************
1753  * CryptSetProviderExW (ADVAPI32.@)
1754  *
1755  * Specifies the default CSP.
1756  *
1757  * PARAMS
1758  *  pszProvName [I] Name of the new default CSP.
1759  *  dwProvType  [I] Provider type of the CSP.
1760  *  pdwReserved [I] Reserved for future use and must be NULL.
1761  *  dwFlags     [I] See MSDN Doc.
1762  *
1763  * RETURNS
1764  *  Success: TRUE
1765  *  Failure: FALSE
1766  */
1767 BOOL WINAPI CryptSetProviderExW (LPCWSTR pszProvName, DWORD dwProvType, DWORD *pdwReserved, DWORD dwFlags)
1768 {
1769         HKEY hProvKey, hTypeKey;
1770         PWSTR keyname;
1771         static const WCHAR nameW[] = {'N','a','m','e',0};
1772
1773         TRACE("(%s, %d, %p, %08x)\n", debugstr_w(pszProvName), dwProvType, pdwReserved, dwFlags);
1774
1775         if (!pszProvName || pdwReserved)
1776                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1777         if (dwProvType > MAXPROVTYPES)
1778                 CRYPT_ReturnLastError(NTE_BAD_PROV_TYPE);
1779         if (dwFlags & ~(CRYPT_MACHINE_DEFAULT | CRYPT_USER_DEFAULT | CRYPT_DELETE_DEFAULT)
1780                         || dwFlags == CRYPT_DELETE_DEFAULT)
1781                 CRYPT_ReturnLastError(NTE_BAD_FLAGS);
1782
1783         if (!(keyname = CRYPT_GetTypeKeyName(dwProvType, dwFlags & CRYPT_USER_DEFAULT)))
1784                 CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1785         if (RegOpenKeyW((dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE,
1786                 keyname, &hTypeKey))
1787         {
1788                 CRYPT_Free(keyname);
1789                 CRYPT_ReturnLastError(NTE_BAD_PROVIDER);
1790         }
1791         CRYPT_Free(keyname);
1792
1793         if (dwFlags & CRYPT_DELETE_DEFAULT)
1794         {
1795                 RegDeleteValueW(hTypeKey, nameW);
1796         }
1797         else
1798         {
1799                 if (!(keyname = CRYPT_GetProvKeyName(pszProvName)))
1800                 {
1801                         RegCloseKey(hTypeKey);
1802                         CRYPT_ReturnLastError(ERROR_NOT_ENOUGH_MEMORY);
1803                 }
1804                 if (RegOpenKeyW((dwFlags & CRYPT_USER_DEFAULT) ? HKEY_CURRENT_USER : HKEY_LOCAL_MACHINE,
1805                         keyname, &hProvKey))
1806                 {
1807                         CRYPT_Free(keyname);
1808                         RegCloseKey(hTypeKey);
1809                         CRYPT_ReturnLastError(NTE_BAD_PROVIDER);
1810                 }
1811                 CRYPT_Free(keyname);
1812
1813                 if (RegSetValueExW(hTypeKey, nameW, 0, REG_SZ, (const BYTE *)pszProvName,
1814                         (strlenW(pszProvName) + 1)*sizeof(WCHAR)))
1815                 {
1816                         RegCloseKey(hTypeKey);
1817                         RegCloseKey(hProvKey);
1818                         return FALSE;
1819                 }
1820
1821                 RegCloseKey(hProvKey);
1822         }
1823         RegCloseKey(hTypeKey);
1824
1825         return TRUE;
1826 }
1827
1828 /******************************************************************************
1829  * CryptSetProviderExA (ADVAPI32.@)
1830  *
1831  * See CryptSetProviderExW.
1832  */
1833 BOOL WINAPI CryptSetProviderExA (LPCSTR pszProvName, DWORD dwProvType, DWORD *pdwReserved, DWORD dwFlags)
1834 {
1835         BOOL ret = FALSE;
1836         PWSTR str = NULL;
1837
1838         TRACE("(%s, %d, %p, %08x)\n", pszProvName, dwProvType, pdwReserved, dwFlags);
1839
1840         if (CRYPT_ANSIToUnicode(pszProvName, &str, -1))
1841         {
1842                 ret = CryptSetProviderExW(str, dwProvType, pdwReserved, dwFlags);
1843                 CRYPT_Free(str);
1844         }
1845         return ret;
1846 }
1847
1848 /******************************************************************************
1849  * CryptSetProvParam (ADVAPI32.@)
1850  *
1851  * Customizes the operations of a CSP.
1852  *
1853  * PARAMS
1854  *  hProv   [I] Handle of a CSP.
1855  *  dwParam [I] See MSDN Doc.
1856  *  pbData  [I] Buffer that contains a value to set as a parameter.
1857  *  dwFlags [I] if dwParam is PP_USE_HARDWARE_RNG, dwFlags must be zero.
1858  *
1859  * RETURNS
1860  *  Success: TRUE
1861  *  Failure: FALSE
1862  */
1863 BOOL WINAPI CryptSetProvParam (HCRYPTPROV hProv, DWORD dwParam, BYTE *pbData, DWORD dwFlags)
1864 {
1865         PCRYPTPROV prov = (PCRYPTPROV)hProv;
1866
1867         TRACE("(0x%lx, %d, %p, %08x)\n", hProv, dwParam, pbData, dwFlags);
1868
1869         if (!prov)
1870                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1871         if (prov->dwMagic != MAGIC_CRYPTPROV)
1872                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1873         if (dwFlags & PP_USE_HARDWARE_RNG)
1874         {
1875                 FIXME("PP_USE_HARDWARE_RNG: What do I do with this?\n");
1876                 FIXME("\tLetting the CSP decide.\n");
1877         }
1878         if (dwFlags & PP_CLIENT_HWND)
1879         {
1880                 /* FIXME: Should verify the parameter */
1881                 if (pbData /* && IsWindow((HWND)pbData) */)
1882                 {
1883                         crypt_hWindow = (HWND)(pbData);
1884                         return TRUE;
1885                 } else {
1886                         SetLastError(ERROR_INVALID_PARAMETER);
1887                         return FALSE;
1888                 }
1889         }
1890         /* All other flags go to the CSP */
1891         return prov->pFuncs->pCPSetProvParam(prov->hPrivate, dwParam, pbData, dwFlags);
1892 }
1893
1894 /******************************************************************************
1895  * CryptVerifySignatureW (ADVAPI32.@)
1896  *
1897  * Verifies the signature of a hash object.
1898  *
1899  * PARAMS
1900  *  hHash        [I] Handle of the hash object to verify.
1901  *  pbSignature  [I] Signature data to verify.
1902  *  dwSigLen     [I] Size of pbSignature.
1903  *  hPubKey      [I] Handle to the public key to authenticate signature.
1904  *  sDescription [I] Should be NULL.
1905  *  dwFlags      [I] See MSDN doc.
1906  *
1907  * RETURNS
1908  *  Success: TRUE
1909  *  Failure: FALSE
1910  *
1911  * NOTES
1912  *  Because of security flaws sDescription should not be used and should thus be
1913  *  NULL. It is supported only for compatibility with Microsoft's Cryptographic
1914  *  Providers.
1915  */
1916 BOOL WINAPI CryptVerifySignatureW (HCRYPTHASH hHash, BYTE *pbSignature, DWORD dwSigLen,
1917                 HCRYPTKEY hPubKey, LPCWSTR sDescription, DWORD dwFlags)
1918 {
1919         PCRYPTHASH hash = (PCRYPTHASH)hHash;
1920         PCRYPTKEY key = (PCRYPTKEY)hPubKey;
1921         PCRYPTPROV prov;
1922
1923         TRACE("(0x%lx, %p, %d, 0x%lx, %s, %08x)\n", hHash, pbSignature,
1924                         dwSigLen, hPubKey, debugstr_w(sDescription), dwFlags);
1925
1926         if (!hash || !key)
1927                 CRYPT_ReturnLastError(ERROR_INVALID_HANDLE);
1928         if (!pbSignature || !dwSigLen ||
1929             !hash->pProvider || hash->pProvider->dwMagic != MAGIC_CRYPTPROV ||
1930             !key->pProvider || key->pProvider->dwMagic != MAGIC_CRYPTPROV)
1931         {
1932                 CRYPT_ReturnLastError(ERROR_INVALID_PARAMETER);
1933         }
1934
1935         prov = hash->pProvider;
1936         return prov->pFuncs->pCPVerifySignature(prov->hPrivate, hash->hPrivate, pbSignature, dwSigLen,
1937                 key->hPrivate, sDescription, dwFlags);
1938 }
1939
1940 /******************************************************************************
1941  * CryptVerifySignatureA (ADVAPI32.@)
1942  *
1943  * See CryptVerifySignatureW.
1944  */
1945 BOOL WINAPI CryptVerifySignatureA (HCRYPTHASH hHash, BYTE *pbSignature, DWORD dwSigLen,
1946                 HCRYPTKEY hPubKey, LPCSTR sDescription, DWORD dwFlags)
1947 {
1948         LPWSTR wsDescription;
1949         BOOL result;
1950
1951         TRACE("(0x%lx, %p, %d, 0x%lx, %s, %08x)\n", hHash, pbSignature,
1952                         dwSigLen, hPubKey, debugstr_a(sDescription), dwFlags);
1953
1954         CRYPT_ANSIToUnicode(sDescription, &wsDescription, -1);
1955         result = CryptVerifySignatureW(hHash, pbSignature, dwSigLen, hPubKey, wsDescription, dwFlags);
1956         CRYPT_Free(wsDescription);
1957
1958         return result;
1959 }
1960
1961 /******************************************************************************
1962  * SystemFunction030   (ADVAPI32.@)
1963  *
1964  * Tests if two blocks of 16 bytes are equal
1965  *
1966  * PARAMS
1967  *  b1,b2   [I] block of 16 bytes
1968  *
1969  * RETURNS
1970  *  TRUE  if blocks are the same
1971  *  FALSE if blocks are different
1972  */
1973 BOOL WINAPI SystemFunction030(PVOID b1, PVOID b2)
1974 {
1975     return !memcmp(b1, b2, 0x10);
1976 }
1977
1978 /******************************************************************************
1979  * SystemFunction035   (ADVAPI32.@)
1980  *
1981  * Described here:
1982 http://disc.server.com/discussion.cgi?disc=148775;article=942;title=Coding%2FASM%2FSystem
1983  *
1984  * NOTES
1985  *  Stub, always return TRUE.
1986  */
1987 BOOL WINAPI SystemFunction035(LPCSTR lpszDllFilePath)
1988 {
1989     FIXME("%s: stub\n", debugstr_a(lpszDllFilePath));
1990     return TRUE;
1991 }
1992
1993 /******************************************************************************
1994  * SystemFunction036   (ADVAPI32.@)
1995  *
1996  * MSDN documents this function as RtlGenRandom and declares it in ntsecapi.h
1997  *
1998  * PARAMS
1999  *  pbBufer [O] Pointer to memory to receive random bytes.
2000  *  dwLen   [I] Number of random bytes to fetch.
2001  *
2002  * RETURNS
2003  *  Success: TRUE
2004  *  Failure: FALSE
2005  */
2006
2007 BOOL WINAPI SystemFunction036(PVOID pbBuffer, ULONG dwLen)
2008 {
2009     int dev_random;
2010
2011     /* FIXME: /dev/urandom does not provide random numbers of a sufficient
2012      * quality for cryptographic applications. /dev/random is much better,
2013      * but it blocks if the kernel has not yet collected enough entropy for
2014      * the request, which will suspend the calling thread for an indefinite
2015      * amount of time. */
2016     dev_random = open("/dev/urandom", O_RDONLY);
2017     if (dev_random != -1)
2018     {
2019         if (read(dev_random, pbBuffer, dwLen) == (ssize_t)dwLen)
2020         {
2021             close(dev_random);
2022             return TRUE;
2023         }
2024         close(dev_random);
2025     }
2026     SetLastError(NTE_FAIL);
2027     return FALSE;
2028 }
2029
2030 /*
2031    These functions have nearly identical prototypes to CryptProtectMemory and CryptUnprotectMemory,
2032    in crypt32.dll.
2033  */
2034
2035 /******************************************************************************
2036  * SystemFunction040   (ADVAPI32.@)
2037  *
2038  * MSDN documents this function as RtlEncryptMemory.
2039  *
2040  * PARAMS
2041  *  memory [I/O] Pointer to memory to encrypt.
2042  *  length [I] Length of region to encrypt in bytes.
2043  *  flags  [I] Control whether other processes are able to decrypt the memory.
2044  *    RTL_ENCRYPT_OPTION_SAME_PROCESS
2045  *    RTL_ENCRYPT_OPTION_CROSS_PROCESS
2046  *    RTL_ENCRYPT_OPTION_SAME_LOGON
2047  *
2048  * RETURNS
2049  *  Success: STATUS_SUCCESS
2050  *  Failure: NTSTATUS error code
2051  *
2052  * NOTES
2053  *  length must be a multiple of RTL_ENCRYPT_MEMORY_SIZE.
2054  *  If flags are specified when encrypting, the same flag value must be given
2055  *  when decrypting the memory.
2056  */
2057 NTSTATUS WINAPI SystemFunction040(PVOID memory, ULONG length, ULONG flags)
2058 {
2059         FIXME("(%p, %x, %x): stub [RtlEncryptMemory]\n", memory, length, flags);
2060         return STATUS_SUCCESS;
2061 }
2062
2063 /******************************************************************************
2064  * SystemFunction041  (ADVAPI32.@)
2065  *
2066  * MSDN documents this function as RtlDecryptMemory.
2067  *
2068  * PARAMS
2069  *  memory [I/O] Pointer to memory to decrypt.
2070  *  length [I] Length of region to decrypt in bytes.
2071  *  flags  [I] Control whether other processes are able to decrypt the memory.
2072  *    RTL_ENCRYPT_OPTION_SAME_PROCESS
2073  *    RTL_ENCRYPT_OPTION_CROSS_PROCESS
2074  *    RTL_ENCRYPT_OPTION_SAME_LOGON
2075  *
2076  * RETURNS
2077  *  Success: STATUS_SUCCESS
2078  *  Failure: NTSTATUS error code
2079  *
2080  * NOTES
2081  *  length must be a multiple of RTL_ENCRYPT_MEMORY_SIZE.
2082  *  If flags are specified when encrypting, the same flag value must be given
2083  *  when decrypting the memory.
2084  */
2085 NTSTATUS WINAPI SystemFunction041(PVOID memory, ULONG length, ULONG flags)
2086 {
2087         FIXME("(%p, %x, %x): stub [RtlDecryptMemory]\n", memory, length, flags);
2088         return STATUS_SUCCESS;
2089 }