dlls/crypt32/str.c

   1 /*
   2  * Copyright 2006 Juan Lang for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18 #include <stdarg.h>
  19 #include "windef.h"
  20 #include "winbase.h"
  21 #include "winnls.h"
  22 #include "winuser.h"
  23 #include "wincrypt.h"
  24 #include "wine/debug.h"
  25 #include "wine/unicode.h"
  26
  27 WINE_DEFAULT_DEBUG_CHANNEL(crypt);
  28
  29 DWORD WINAPI CertRDNValueToStrA(DWORD dwValueType, PCERT_RDN_VALUE_BLOB pValue,
  30  LPSTR psz, DWORD csz)
  31 {
  32     DWORD ret = 0;
  33
  34     TRACE("(%d, %p, %p, %d)\n", dwValueType, pValue, psz, csz);
  35
  36     switch (dwValueType)
  37     {
  38     case CERT_RDN_ANY_TYPE:
  39         break;
  40     case CERT_RDN_NUMERIC_STRING:
  41     case CERT_RDN_PRINTABLE_STRING:
  42     case CERT_RDN_TELETEX_STRING:
  43     case CERT_RDN_VIDEOTEX_STRING:
  44     case CERT_RDN_IA5_STRING:
  45     case CERT_RDN_GRAPHIC_STRING:
  46     case CERT_RDN_VISIBLE_STRING:
  47     case CERT_RDN_GENERAL_STRING:
  48         if (!psz || !csz)
  49             ret = pValue->cbData;
  50         else
  51         {
  52             DWORD chars = min(pValue->cbData, csz - 1);
  53
  54             if (chars)
  55             {
  56                 memcpy(psz, pValue->pbData, chars);
  57                 ret += chars;
  58                 csz -= chars;
  59             }
  60         }
  61         break;
  62     case CERT_RDN_UTF8_STRING:
  63         if (!psz || !csz)
  64             ret = WideCharToMultiByte(CP_UTF8, 0, (LPWSTR)pValue->pbData,
  65              pValue->cbData / sizeof(WCHAR) + 1, NULL, 0, NULL, NULL);
  66         else
  67         {
  68             ret = WideCharToMultiByte(CP_UTF8, 0, (LPWSTR)pValue->pbData,
  69              pValue->cbData / sizeof(WCHAR) + 1, psz, csz - 1, NULL, NULL);
  70             csz -= ret;
  71         }
  72         break;
  73     default:
  74         FIXME("string type %d unimplemented\n", dwValueType);
  75     }
  76     if (psz && csz)
  77     {
  78         *(psz + ret) = '\0';
  79         csz--;
  80         ret++;
  81     }
  82     else
  83         ret++;
  84     TRACE("returning %d (%s)\n", ret, debugstr_a(psz));
  85     return ret;
  86 }
  87
  88 DWORD WINAPI CertRDNValueToStrW(DWORD dwValueType, PCERT_RDN_VALUE_BLOB pValue,
  89  LPWSTR psz, DWORD csz)
  90 {
  91     DWORD ret = 0;
  92
  93     TRACE("(%d, %p, %p, %d)\n", dwValueType, pValue, psz, csz);
  94
  95     switch (dwValueType)
  96     {
  97     case CERT_RDN_ANY_TYPE:
  98         break;
  99     case CERT_RDN_NUMERIC_STRING:
 100     case CERT_RDN_PRINTABLE_STRING:
 101     case CERT_RDN_TELETEX_STRING:
 102     case CERT_RDN_VIDEOTEX_STRING:
 103     case CERT_RDN_IA5_STRING:
 104     case CERT_RDN_GRAPHIC_STRING:
 105     case CERT_RDN_VISIBLE_STRING:
 106     case CERT_RDN_GENERAL_STRING:
 107         if (!psz || !csz)
 108             ret = pValue->cbData;
 109         else
 110         {
 111             DWORD chars = min(pValue->cbData, csz - 1);
 112
 113             if (chars)
 114             {
 115                 DWORD i;
 116
 117                 for (i = 0; i < chars; i++)
 118                     psz[i] = pValue->pbData[i];
 119                 ret += chars;
 120                 csz -= chars;
 121             }
 122         }
 123         break;
 124     case CERT_RDN_UTF8_STRING:
 125         if (!psz || !csz)
 126             ret = pValue->cbData / sizeof(WCHAR);
 127         else
 128         {
 129             DWORD chars = min(pValue->cbData / sizeof(WCHAR), csz - 1);
 130
 131             if (chars)
 132             {
 133                 DWORD i;
 134
 135                 for (i = 0; i < chars; i++)
 136                     psz[i] = *((LPWSTR)pValue->pbData + i);
 137                 ret += chars;
 138                 csz -= chars;
 139             }
 140         }
 141         break;
 142     default:
 143         FIXME("string type %d unimplemented\n", dwValueType);
 144     }
 145     if (psz && csz)
 146     {
 147         *(psz + ret) = '\0';
 148         csz--;
 149         ret++;
 150     }
 151     else
 152         ret++;
 153     TRACE("returning %d (%s)\n", ret, debugstr_w(psz));
 154     return ret;
 155 }
 156
 157 /* Adds the prefix prefix to the string pointed to by psz, followed by the
 158  * character '='.  Copies no more than csz characters.  Returns the number of
 159  * characters copied.  If psz is NULL, returns the number of characters that
 160  * would be copied.
 161  */
 162 static DWORD CRYPT_AddPrefixA(LPCSTR prefix, LPSTR psz, DWORD csz)
 163 {
 164     DWORD chars;
 165
 166     TRACE("(%s, %p, %d)\n", debugstr_a(prefix), psz, csz);
 167
 168     if (psz)
 169     {
 170         chars = min(lstrlenA(prefix), csz);
 171         memcpy(psz, prefix, chars);
 172         csz -= chars;
 173         *(psz + chars) = '=';
 174         chars++;
 175         csz--;
 176     }
 177     else
 178         chars = lstrlenA(prefix) + 1;
 179     return chars;
 180 }
 181
 182 DWORD WINAPI CertNameToStrA(DWORD dwCertEncodingType, PCERT_NAME_BLOB pName,
 183  DWORD dwStrType, LPSTR psz, DWORD csz)
 184 {
 185     static const DWORD unsupportedFlags = CERT_NAME_STR_NO_QUOTING_FLAG |
 186      CERT_NAME_STR_REVERSE_FLAG | CERT_NAME_STR_ENABLE_T61_UNICODE_FLAG;
 187     static const char commaSep[] = ", ";
 188     static const char semiSep[] = "; ";
 189     static const char crlfSep[] = "\r\n";
 190     static const char plusSep[] = " + ";
 191     static const char spaceSep[] = " ";
 192     DWORD ret = 0, bytes = 0;
 193     BOOL bRet;
 194     CERT_NAME_INFO *info;
 195
 196     TRACE("(%d, %p, %08x, %p, %d)\n", dwCertEncodingType, pName, dwStrType,
 197      psz, csz);
 198     if (dwStrType & unsupportedFlags)
 199         FIXME("unsupported flags: %08x\n", dwStrType & unsupportedFlags);
 200
 201     bRet = CryptDecodeObjectEx(dwCertEncodingType, X509_NAME, pName->pbData,
 202      pName->cbData, CRYPT_DECODE_ALLOC_FLAG, NULL, &info, &bytes);
 203     if (bRet)
 204     {
 205         DWORD i, j, sepLen, rdnSepLen;
 206         LPCSTR sep, rdnSep;
 207
 208         if (dwStrType & CERT_NAME_STR_SEMICOLON_FLAG)
 209             sep = semiSep;
 210         else if (dwStrType & CERT_NAME_STR_CRLF_FLAG)
 211             sep = crlfSep;
 212         else
 213             sep = commaSep;
 214         sepLen = strlen(sep);
 215         if (dwStrType & CERT_NAME_STR_NO_PLUS_FLAG)
 216             rdnSep = spaceSep;
 217         else
 218             rdnSep = plusSep;
 219         rdnSepLen = strlen(rdnSep);
 220         for (i = 0; (!psz || ret < csz) && i < info->cRDN; i++)
 221         {
 222             for (j = 0; (!psz || ret < csz) && j < info->rgRDN[i].cRDNAttr; j++)
 223             {
 224                 DWORD chars;
 225                 char prefixBuf[10]; /* big enough for GivenName */
 226                 LPCSTR prefix = NULL;
 227
 228                 if ((dwStrType & 0x000000ff) == CERT_OID_NAME_STR)
 229                     prefix = info->rgRDN[i].rgRDNAttr[j].pszObjId;
 230                 else if ((dwStrType & 0x000000ff) == CERT_X500_NAME_STR)
 231                 {
 232                     PCCRYPT_OID_INFO oidInfo = CryptFindOIDInfo(
 233                      CRYPT_OID_INFO_OID_KEY,
 234                      info->rgRDN[i].rgRDNAttr[j].pszObjId,
 235                      CRYPT_RDN_ATTR_OID_GROUP_ID);
 236
 237                     if (oidInfo)
 238                     {
 239                         WideCharToMultiByte(CP_ACP, 0, oidInfo->pwszName, -1,
 240                          prefixBuf, sizeof(prefixBuf), NULL, NULL);
 241                         prefix = prefixBuf;
 242                     }
 243                     else
 244                         prefix = info->rgRDN[i].rgRDNAttr[j].pszObjId;
 245                 }
 246                 if (prefix)
 247                 {
 248                     /* - 1 is needed to account for the NULL terminator. */
 249                     chars = CRYPT_AddPrefixA(prefix,
 250                      psz ? psz + ret : NULL, psz ? csz - ret - 1 : 0);
 251                     ret += chars;
 252                     csz -= chars;
 253                 }
 254                 /* FIXME: handle quoting */
 255                 chars = CertRDNValueToStrA(
 256                  info->rgRDN[i].rgRDNAttr[j].dwValueType,
 257                  &info->rgRDN[i].rgRDNAttr[j].Value, psz ? psz + ret : NULL,
 258                  psz ? csz - ret : 0);
 259                 if (chars)
 260                     ret += chars - 1;
 261                 if (j < info->rgRDN[i].cRDNAttr - 1)
 262                 {
 263                     if (psz && ret < csz - rdnSepLen - 1)
 264                         memcpy(psz + ret, rdnSep, rdnSepLen);
 265                     ret += rdnSepLen;
 266                 }
 267             }
 268             if (i < info->cRDN - 1)
 269             {
 270                 if (psz && ret < csz - sepLen - 1)
 271                     memcpy(psz + ret, sep, sepLen);
 272                 ret += sepLen;
 273             }
 274         }
 275         LocalFree(info);
 276     }
 277     if (psz && csz)
 278     {
 279         *(psz + ret) = '\0';
 280         csz--;
 281         ret++;
 282     }
 283     else
 284         ret++;
 285     TRACE("Returning %s\n", debugstr_a(psz));
 286     return ret;
 287 }
 288
 289 /* Adds the prefix prefix to the wide-character string pointed to by psz,
 290  * followed by the character '='.  Copies no more than csz characters.  Returns
 291  * the number of characters copied.  If psz is NULL, returns the number of
 292  * characters that would be copied.
 293  * Assumes the characters in prefix are ASCII (not multibyte characters.)
 294  */
 295 static DWORD CRYPT_AddPrefixAToW(LPCSTR prefix, LPWSTR psz, DWORD csz)
 296 {
 297     DWORD chars;
 298
 299     TRACE("(%s, %p, %d)\n", debugstr_a(prefix), psz, csz);
 300
 301     if (psz)
 302     {
 303         DWORD i;
 304
 305         chars = min(lstrlenA(prefix), csz);
 306         for (i = 0; i < chars; i++)
 307             *(psz + i) = prefix[i];
 308         csz -= chars;
 309         *(psz + chars) = '=';
 310         chars++;
 311         csz--;
 312     }
 313     else
 314         chars = lstrlenA(prefix) + 1;
 315     return chars;
 316 }
 317
 318 /* Adds the prefix prefix to the string pointed to by psz, followed by the
 319  * character '='.  Copies no more than csz characters.  Returns the number of
 320  * characters copied.  If psz is NULL, returns the number of characters that
 321  * would be copied.
 322  */
 323 static DWORD CRYPT_AddPrefixW(LPCWSTR prefix, LPWSTR psz, DWORD csz)
 324 {
 325     DWORD chars;
 326
 327     TRACE("(%s, %p, %d)\n", debugstr_w(prefix), psz, csz);
 328
 329     if (psz)
 330     {
 331         chars = min(lstrlenW(prefix), csz);
 332         memcpy(psz, prefix, chars * sizeof(WCHAR));
 333         csz -= chars;
 334         *(psz + chars) = '=';
 335         chars++;
 336         csz--;
 337     }
 338     else
 339         chars = lstrlenW(prefix) + 1;
 340     return chars;
 341 }
 342
 343 DWORD WINAPI CertNameToStrW(DWORD dwCertEncodingType, PCERT_NAME_BLOB pName,
 344  DWORD dwStrType, LPWSTR psz, DWORD csz)
 345 {
 346     static const DWORD unsupportedFlags = CERT_NAME_STR_NO_QUOTING_FLAG |
 347      CERT_NAME_STR_REVERSE_FLAG | CERT_NAME_STR_ENABLE_T61_UNICODE_FLAG;
 348     static const WCHAR commaSep[] = { ',',' ',0 };
 349     static const WCHAR semiSep[] = { ';',' ',0 };
 350     static const WCHAR crlfSep[] = { '\r','\n',0 };
 351     static const WCHAR plusSep[] = { ' ','+',' ',0 };
 352     static const WCHAR spaceSep[] = { ' ',0 };
 353     DWORD ret = 0, bytes = 0;
 354     BOOL bRet;
 355     CERT_NAME_INFO *info;
 356
 357     TRACE("(%d, %p, %08x, %p, %d)\n", dwCertEncodingType, pName, dwStrType,
 358      psz, csz);
 359     if (dwStrType & unsupportedFlags)
 360         FIXME("unsupported flags: %08x\n", dwStrType & unsupportedFlags);
 361
 362     bRet = CryptDecodeObjectEx(dwCertEncodingType, X509_NAME, pName->pbData,
 363      pName->cbData, CRYPT_DECODE_ALLOC_FLAG, NULL, &info, &bytes);
 364     if (bRet)
 365     {
 366         DWORD i, j, sepLen, rdnSepLen;
 367         LPCWSTR sep, rdnSep;
 368
 369         if (dwStrType & CERT_NAME_STR_SEMICOLON_FLAG)
 370             sep = semiSep;
 371         else if (dwStrType & CERT_NAME_STR_CRLF_FLAG)
 372             sep = crlfSep;
 373         else
 374             sep = commaSep;
 375         sepLen = lstrlenW(sep);
 376         if (dwStrType & CERT_NAME_STR_NO_PLUS_FLAG)
 377             rdnSep = spaceSep;
 378         else
 379             rdnSep = plusSep;
 380         rdnSepLen = lstrlenW(rdnSep);
 381         for (i = 0; (!psz || ret < csz) && i < info->cRDN; i++)
 382         {
 383             for (j = 0; (!psz || ret < csz) && j < info->rgRDN[i].cRDNAttr; j++)
 384             {
 385                 DWORD chars;
 386                 LPCSTR prefixA = NULL;
 387                 LPCWSTR prefixW = NULL;
 388
 389                 if ((dwStrType & 0x000000ff) == CERT_OID_NAME_STR)
 390                     prefixA = info->rgRDN[i].rgRDNAttr[j].pszObjId;
 391                 else if ((dwStrType & 0x000000ff) == CERT_X500_NAME_STR)
 392                 {
 393                     PCCRYPT_OID_INFO oidInfo = CryptFindOIDInfo(
 394                      CRYPT_OID_INFO_OID_KEY,
 395                      info->rgRDN[i].rgRDNAttr[j].pszObjId,
 396                      CRYPT_RDN_ATTR_OID_GROUP_ID);
 397
 398                     if (oidInfo)
 399                         prefixW = oidInfo->pwszName;
 400                     else
 401                         prefixA = info->rgRDN[i].rgRDNAttr[j].pszObjId;
 402                 }
 403                 if (prefixW)
 404                 {
 405                     /* - 1 is needed to account for the NULL terminator. */
 406                     chars = CRYPT_AddPrefixW(prefixW,
 407                      psz ? psz + ret : NULL, psz ? csz - ret - 1 : 0);
 408                     ret += chars;
 409                     csz -= chars;
 410                 }
 411                 else if (prefixA)
 412                 {
 413                     /* - 1 is needed to account for the NULL terminator. */
 414                     chars = CRYPT_AddPrefixAToW(prefixA,
 415                      psz ? psz + ret : NULL, psz ? csz - ret - 1 : 0);
 416                     ret += chars;
 417                     csz -= chars;
 418                 }
 419                 /* FIXME: handle quoting */
 420                 chars = CertRDNValueToStrW(
 421                  info->rgRDN[i].rgRDNAttr[j].dwValueType,
 422                  &info->rgRDN[i].rgRDNAttr[j].Value, psz ? psz + ret : NULL,
 423                  psz ? csz - ret : 0);
 424                 if (chars)
 425                     ret += chars - 1;
 426                 if (j < info->rgRDN[i].cRDNAttr - 1)
 427                 {
 428                     if (psz && ret < csz - rdnSepLen - 1)
 429                         memcpy(psz + ret, rdnSep, rdnSepLen * sizeof(WCHAR));
 430                     ret += rdnSepLen;
 431                 }
 432             }
 433             if (i < info->cRDN - 1)
 434             {
 435                 if (psz && ret < csz - sepLen - 1)
 436                     memcpy(psz + ret, sep, sepLen * sizeof(WCHAR));
 437                 ret += sepLen;
 438             }
 439         }
 440         LocalFree(info);
 441     }
 442     if (psz && csz)
 443     {
 444         *(psz + ret) = '\0';
 445         csz--;
 446         ret++;
 447     }
 448     else
 449         ret++;
 450     TRACE("Returning %s\n", debugstr_w(psz));
 451     return ret;
 452 }
 453
 454 BOOL WINAPI CertStrToNameA(DWORD dwCertEncodingType, LPCSTR pszX500,
 455  DWORD dwStrType, void *pvReserved, BYTE *pbEncoded, DWORD *pcbEncoded,
 456  LPCSTR *ppszError)
 457 {
 458     BOOL ret;
 459     int len;
 460
 461     TRACE("(%08x, %s, %08x, %p, %p, %p, %p)\n", dwCertEncodingType,
 462      debugstr_a(pszX500), dwStrType, pvReserved, pbEncoded, pcbEncoded,
 463      ppszError);
 464
 465     len = MultiByteToWideChar(CP_ACP, 0, pszX500, -1, NULL, 0);
 466     if (len)
 467     {
 468         LPWSTR x500, errorStr;
 469
 470         if ((x500 = CryptMemAlloc(len * sizeof(WCHAR))))
 471         {
 472             MultiByteToWideChar(CP_ACP, 0, pszX500, -1, x500, len);
 473             ret = CertStrToNameW(dwCertEncodingType, x500, dwStrType,
 474              pvReserved, pbEncoded, pcbEncoded,
 475              ppszError ? (LPCWSTR *)&errorStr : NULL);
 476             if (ppszError)
 477             {
 478                 if (!ret)
 479                 {
 480                     DWORD i;
 481
 482                     *ppszError = pszX500;
 483                     for (i = 0; i < errorStr - x500; i++)
 484                         *ppszError = CharNextA(*ppszError);
 485                 }
 486                 else
 487                     *ppszError = NULL;
 488             }
 489             CryptMemFree(x500);
 490         }
 491         else
 492         {
 493             SetLastError(ERROR_OUTOFMEMORY);
 494             ret = FALSE;
 495         }
 496     }
 497     else
 498     {
 499         SetLastError(CRYPT_E_INVALID_X500_STRING);
 500         if (ppszError)
 501             *ppszError = pszX500;
 502         ret = FALSE;
 503     }
 504     return ret;
 505 }
 506
 507 struct KeynameKeeper
 508 {
 509     WCHAR  buf[10]; /* big enough for L"GivenName" */
 510     LPWSTR keyName; /* usually = buf, but may be allocated */
 511     DWORD  keyLen;
 512 };
 513
 514 static void CRYPT_InitializeKeynameKeeper(struct KeynameKeeper *keeper)
 515 {
 516     keeper->keyName = keeper->buf;
 517     keeper->keyLen = sizeof(keeper->buf) / sizeof(keeper->buf[0]);
 518 }
 519
 520 static void CRYPT_FreeKeynameKeeper(struct KeynameKeeper *keeper)
 521 {
 522     if (keeper->keyName != keeper->buf)
 523         CryptMemFree(keeper->keyName);
 524 }
 525
 526 struct X500TokenW
 527 {
 528     LPCWSTR start;
 529     LPCWSTR end;
 530 };
 531
 532 static void CRYPT_KeynameKeeperFromTokenW(struct KeynameKeeper *keeper,
 533  const struct X500TokenW *key)
 534 {
 535     DWORD len = key->end - key->start;
 536
 537     if (len > keeper->keyLen)
 538     {
 539         if (keeper->keyName == keeper->buf)
 540             keeper->keyName = CryptMemAlloc(len * sizeof(WCHAR));
 541         else
 542             keeper->keyName = CryptMemRealloc(keeper->keyName,
 543              len * sizeof(WCHAR));
 544         keeper->keyLen = len;
 545     }
 546     memcpy(keeper->keyName, key->start, (key->end - key->start) *
 547      sizeof(WCHAR));
 548     keeper->keyName[len] = '\0';
 549     TRACE("Keyname is %s\n", debugstr_w(keeper->keyName));
 550 }
 551
 552 static BOOL CRYPT_GetNextKeyW(LPCWSTR str, struct X500TokenW *token,
 553  LPCWSTR *ppszError)
 554 {
 555     BOOL ret = TRUE;
 556
 557     while (*str && isspaceW(*str))
 558         str++;
 559     if (*str)
 560     {
 561         token->start = str;
 562         while (*str && *str != '=' && !isspaceW(*str))
 563             str++;
 564         if (*str && (*str == '=' || isspaceW(*str)))
 565             token->end = str;
 566         else
 567         {
 568             TRACE("missing equals char at %s\n", debugstr_w(token->start));
 569             if (ppszError)
 570                 *ppszError = token->start;
 571             SetLastError(CRYPT_E_INVALID_X500_STRING);
 572             ret = FALSE;
 573         }
 574     }
 575     else
 576         token->start = NULL;
 577     return ret;
 578 }
 579
 580 /* Assumes separators are characters in the 0-255 range */
 581 static BOOL CRYPT_GetNextValueW(LPCWSTR str, DWORD dwFlags, LPCWSTR separators,
 582  struct X500TokenW *token, LPCWSTR *ppszError)
 583 {
 584     BOOL ret = TRUE;
 585
 586     TRACE("(%s, %s, %p, %p)\n", debugstr_w(str), debugstr_w(separators), token,
 587      ppszError);
 588
 589     while (*str && isspaceW(*str))
 590         str++;
 591     if (*str)
 592     {
 593         token->start = str;
 594         if (!(dwFlags & CERT_NAME_STR_NO_QUOTING_FLAG) && *str == '"')
 595         {
 596             token->end = NULL;
 597             str++;
 598             while (!token->end && ret)
 599             {
 600                 while (*str && *str != '"')
 601                     str++;
 602                 if (*str == '"')
 603                 {
 604                     if (*(str + 1) != '"')
 605                         token->end = str + 1;
 606                     else
 607                         str += 2;
 608                 }
 609                 else
 610                 {
 611                     TRACE("unterminated quote at %s\n", debugstr_w(str));
 612                     if (ppszError)
 613                         *ppszError = str;
 614                     SetLastError(CRYPT_E_INVALID_X500_STRING);
 615                     ret = FALSE;
 616                 }
 617             }
 618         }
 619         else
 620         {
 621             WCHAR map[256] = { 0 };
 622
 623             while (*separators)
 624                 map[*separators++] = 1;
 625             while (*str && (*str >= 0xff || !map[*str]))
 626                 str++;
 627             token->end = str;
 628         }
 629     }
 630     else
 631     {
 632         TRACE("missing value at %s\n", debugstr_w(str));
 633         if (ppszError)
 634             *ppszError = str;
 635         SetLastError(CRYPT_E_INVALID_X500_STRING);
 636         ret = FALSE;
 637     }
 638     return ret;
 639 }
 640
 641 /* Encodes the string represented by value as the string type type into the
 642  * CERT_NAME_BLOB output.  If there is an error and ppszError is not NULL,
 643  * *ppszError is set to the first failing character.  If there is no error,
 644  * output's pbData must be freed with LocalFree.
 645  */
 646 static BOOL CRYPT_EncodeValueWithType(DWORD dwCertEncodingType,
 647  const struct X500TokenW *value, PCERT_NAME_BLOB output, DWORD type,
 648  LPCWSTR *ppszError)
 649 {
 650     CERT_NAME_VALUE nameValue = { type, { 0, NULL } };
 651     BOOL ret = TRUE;
 652
 653     if (value->end > value->start)
 654     {
 655         nameValue.Value.pbData = CryptMemAlloc((value->end - value->start) *
 656          sizeof(WCHAR));
 657         if (!nameValue.Value.pbData)
 658         {
 659             SetLastError(ERROR_OUTOFMEMORY);
 660             ret = FALSE;
 661         }
 662     }
 663     if (ret)
 664     {
 665         if (value->end > value->start)
 666         {
 667             DWORD i;
 668             LPWSTR ptr = (LPWSTR)nameValue.Value.pbData;
 669
 670             for (i = 0; i < value->end - value->start; i++)
 671             {
 672                 *ptr++ = value->start[i];
 673                 if (value->start[i] == '"')
 674                     i++;
 675             }
 676             nameValue.Value.cbData = (LPBYTE)ptr - nameValue.Value.pbData;
 677         }
 678         ret = CryptEncodeObjectEx(dwCertEncodingType, X509_UNICODE_NAME_VALUE,
 679          &nameValue, CRYPT_ENCODE_ALLOC_FLAG, NULL, &output->pbData,
 680          &output->cbData);
 681         if (!ret && ppszError)
 682         {
 683             if (type == CERT_RDN_NUMERIC_STRING &&
 684              GetLastError() == CRYPT_E_INVALID_NUMERIC_STRING)
 685                 *ppszError = value->start + output->cbData;
 686             else if (type == CERT_RDN_PRINTABLE_STRING &&
 687              GetLastError() == CRYPT_E_INVALID_PRINTABLE_STRING)
 688                 *ppszError = value->start + output->cbData;
 689             else if (type == CERT_RDN_IA5_STRING &&
 690              GetLastError() == CRYPT_E_INVALID_IA5_STRING)
 691                 *ppszError = value->start + output->cbData;
 692         }
 693         CryptMemFree(nameValue.Value.pbData);
 694     }
 695     return ret;
 696 }
 697
 698 static BOOL CRYPT_EncodeValue(DWORD dwCertEncodingType,
 699  const struct X500TokenW *value, PCERT_NAME_BLOB output, const DWORD *types,
 700  LPCWSTR *ppszError)
 701 {
 702     DWORD i;
 703     BOOL ret;
 704
 705     ret = FALSE;
 706     for (i = 0; !ret && types[i]; i++)
 707         ret = CRYPT_EncodeValueWithType(dwCertEncodingType, value, output,
 708          types[i], ppszError);
 709     return ret;
 710 }
 711
 712 static BOOL CRYPT_ValueToRDN(DWORD dwCertEncodingType, PCERT_NAME_INFO info,
 713  PCCRYPT_OID_INFO keyOID, struct X500TokenW *value, LPCWSTR *ppszError)
 714 {
 715     BOOL ret = FALSE;
 716
 717     TRACE("OID %s, value %s\n", debugstr_a(keyOID->pszOID),
 718      debugstr_wn(value->start, value->end - value->start));
 719
 720     if (!info->rgRDN)
 721         info->rgRDN = CryptMemAlloc(sizeof(CERT_RDN));
 722     else
 723         info->rgRDN = CryptMemRealloc(info->rgRDN,
 724          (info->cRDN + 1) * sizeof(CERT_RDN));
 725     if (info->rgRDN)
 726     {
 727         /* FIXME: support multiple RDN attrs */
 728         info->rgRDN[info->cRDN].rgRDNAttr =
 729          CryptMemAlloc(sizeof(CERT_RDN_ATTR));
 730         if (info->rgRDN[info->cRDN].rgRDNAttr)
 731         {
 732             static const DWORD defaultTypes[] = { CERT_RDN_PRINTABLE_STRING,
 733              CERT_RDN_BMP_STRING, 0 };
 734             const DWORD *types;
 735
 736             info->rgRDN[info->cRDN].cRDNAttr = 1;
 737             info->rgRDN[info->cRDN].rgRDNAttr[0].pszObjId =
 738              (LPSTR)keyOID->pszOID;
 739             info->rgRDN[info->cRDN].rgRDNAttr[0].dwValueType =
 740              CERT_RDN_ENCODED_BLOB;
 741             if (keyOID->ExtraInfo.cbData)
 742                 types = (const DWORD *)keyOID->ExtraInfo.pbData;
 743             else
 744                 types = defaultTypes;
 745
 746             /* Remove surrounding quotes */
 747             if (value->start[0] == '"')
 748             {
 749                 value->start++;
 750                 value->end--;
 751             }
 752             ret = CRYPT_EncodeValue(dwCertEncodingType, value,
 753              &info->rgRDN[info->cRDN].rgRDNAttr[0].Value, types, ppszError);
 754         }
 755         else
 756             SetLastError(ERROR_OUTOFMEMORY);
 757         info->cRDN++;
 758     }
 759     else
 760         SetLastError(ERROR_OUTOFMEMORY);
 761     return ret;
 762 }
 763
 764 BOOL WINAPI CertStrToNameW(DWORD dwCertEncodingType, LPCWSTR pszX500,
 765  DWORD dwStrType, void *pvReserved, BYTE *pbEncoded, DWORD *pcbEncoded,
 766  LPCWSTR *ppszError)
 767 {
 768     CERT_NAME_INFO info = { 0, NULL };
 769     LPCWSTR str;
 770     struct KeynameKeeper keeper;
 771     DWORD i;
 772     BOOL ret = TRUE;
 773
 774     TRACE("(%08x, %s, %08x, %p, %p, %p, %p)\n", dwCertEncodingType,
 775      debugstr_w(pszX500), dwStrType, pvReserved, pbEncoded, pcbEncoded,
 776      ppszError);
 777
 778     CRYPT_InitializeKeynameKeeper(&keeper);
 779     str = pszX500;
 780     while (str && *str && ret)
 781     {
 782         struct X500TokenW token;
 783
 784         ret = CRYPT_GetNextKeyW(str, &token, ppszError);
 785         if (ret && token.start)
 786         {
 787             PCCRYPT_OID_INFO keyOID;
 788
 789             CRYPT_KeynameKeeperFromTokenW(&keeper, &token);
 790             keyOID = CryptFindOIDInfo(CRYPT_OID_INFO_NAME_KEY, keeper.keyName,
 791              CRYPT_RDN_ATTR_OID_GROUP_ID);
 792             if (!keyOID)
 793             {
 794                 if (ppszError)
 795                     *ppszError = token.start;
 796                 SetLastError(CRYPT_E_INVALID_X500_STRING);
 797                 ret = FALSE;
 798             }
 799             else
 800             {
 801                 str = token.end;
 802                 while (isspace(*str))
 803                     str++;
 804                 if (*str != '=')
 805                 {
 806                     if (ppszError)
 807                         *ppszError = str;
 808                     SetLastError(CRYPT_E_INVALID_X500_STRING);
 809                     ret = FALSE;
 810                 }
 811                 else
 812                 {
 813                     static const WCHAR commaSep[] = { ',',0 };
 814                     static const WCHAR semiSep[] = { ';',0 };
 815                     static const WCHAR crlfSep[] = { '\r','\n',0 };
 816                     static const WCHAR allSeps[] = { ',',';','\r','\n',0 };
 817                     LPCWSTR sep;
 818
 819                     str++;
 820                     if (dwStrType & CERT_NAME_STR_COMMA_FLAG)
 821                         sep = commaSep;
 822                     else if (dwStrType & CERT_NAME_STR_SEMICOLON_FLAG)
 823                         sep = semiSep;
 824                     else if (dwStrType & CERT_NAME_STR_CRLF_FLAG)
 825                         sep = crlfSep;
 826                     else
 827                         sep = allSeps;
 828                     ret = CRYPT_GetNextValueW(str, dwStrType, sep, &token,
 829                      ppszError);
 830                     if (ret)
 831                     {
 832                         str = token.end;
 833                         ret = CRYPT_ValueToRDN(dwCertEncodingType, &info,
 834                          keyOID, &token, ppszError);
 835                     }
 836                 }
 837             }
 838         }
 839     }
 840     CRYPT_FreeKeynameKeeper(&keeper);
 841     if (ret)
 842     {
 843         if (ppszError)
 844             *ppszError = NULL;
 845         ret = CryptEncodeObjectEx(dwCertEncodingType, X509_NAME, &info,
 846          0, NULL, pbEncoded, pcbEncoded);
 847     }
 848     for (i = 0; i < info.cRDN; i++)
 849     {
 850         DWORD j;
 851
 852         for (j = 0; j < info.rgRDN[i].cRDNAttr; j++)
 853             LocalFree(info.rgRDN[i].rgRDNAttr[j].Value.pbData);
 854         CryptMemFree(info.rgRDN[i].rgRDNAttr);
 855     }
 856     CryptMemFree(info.rgRDN);
 857     return ret;
 858 }
 859
 860 DWORD WINAPI CertGetNameStringA(PCCERT_CONTEXT pCertContext, DWORD dwType,
 861  DWORD dwFlags, void *pvTypePara, LPSTR pszNameString, DWORD cchNameString)
 862 {
 863     DWORD ret;
 864
 865     TRACE("(%p, %d, %08x, %p, %p, %d)\n", pCertContext, dwType, dwFlags,
 866      pvTypePara, pszNameString, cchNameString);
 867
 868     if (pszNameString)
 869     {
 870         LPWSTR wideName;
 871         DWORD nameLen;
 872
 873         nameLen = CertGetNameStringW(pCertContext, dwType, dwFlags, pvTypePara,
 874          NULL, 0);
 875         wideName = CryptMemAlloc(nameLen * sizeof(WCHAR));
 876         if (wideName)
 877         {
 878             CertGetNameStringW(pCertContext, dwType, dwFlags, pvTypePara,
 879              wideName, nameLen);
 880             nameLen = WideCharToMultiByte(CP_ACP, 0, wideName, nameLen,
 881              pszNameString, cchNameString, NULL, NULL);
 882             if (nameLen <= cchNameString)
 883                 ret = nameLen;
 884             else
 885             {
 886                 pszNameString[cchNameString - 1] = '\0';
 887                 ret = cchNameString;
 888             }
 889             CryptMemFree(wideName);
 890         }
 891         else
 892         {
 893             *pszNameString = '\0';
 894             ret = 1;
 895         }
 896     }
 897     else
 898         ret = CertGetNameStringW(pCertContext, dwType, dwFlags, pvTypePara,
 899          NULL, 0);
 900     return ret;
 901 }
 902
 903 DWORD WINAPI CertGetNameStringW(PCCERT_CONTEXT pCertContext, DWORD dwType,
 904  DWORD dwFlags, void *pvTypePara, LPWSTR pszNameString, DWORD cchNameString)
 905 {
 906     DWORD ret;
 907     PCERT_NAME_BLOB name;
 908     LPCSTR altNameOID;
 909
 910     TRACE("(%p, %d, %08x, %p, %p, %d)\n", pCertContext, dwType,
 911      dwFlags, pvTypePara, pszNameString, cchNameString);
 912
 913     if (dwFlags & CERT_NAME_ISSUER_FLAG)
 914     {
 915         name = &pCertContext->pCertInfo->Issuer;
 916         altNameOID = szOID_ISSUER_ALT_NAME;
 917     }
 918     else
 919     {
 920         name = &pCertContext->pCertInfo->Subject;
 921         altNameOID = szOID_SUBJECT_ALT_NAME;
 922     }
 923
 924     switch (dwType)
 925     {
 926     case CERT_NAME_SIMPLE_DISPLAY_TYPE:
 927     {
 928         static const LPCSTR simpleAttributeOIDs[] = { szOID_COMMON_NAME,
 929          szOID_ORGANIZATIONAL_UNIT_NAME, szOID_ORGANIZATION_NAME,
 930          szOID_RSA_emailAddr };
 931         CERT_NAME_INFO *info = NULL;
 932         PCERT_RDN_ATTR nameAttr = NULL;
 933         DWORD bytes = 0, i;
 934
 935         if (CryptDecodeObjectEx(pCertContext->dwCertEncodingType, X509_NAME,
 936          name->pbData, name->cbData, CRYPT_DECODE_ALLOC_FLAG, NULL, &info,
 937          &bytes))
 938         {
 939             for (i = 0; !nameAttr && i < sizeof(simpleAttributeOIDs) /
 940              sizeof(simpleAttributeOIDs[0]); i++)
 941                 nameAttr = CertFindRDNAttr(simpleAttributeOIDs[i], info);
 942         }
 943         if (!nameAttr)
 944         {
 945             PCERT_EXTENSION ext = CertFindExtension(altNameOID,
 946              pCertContext->pCertInfo->cExtension,
 947              pCertContext->pCertInfo->rgExtension);
 948
 949             if (ext)
 950             {
 951                 for (i = 0; !nameAttr && i < sizeof(simpleAttributeOIDs) /
 952                  sizeof(simpleAttributeOIDs[0]); i++)
 953                     nameAttr = CertFindRDNAttr(simpleAttributeOIDs[i], info);
 954                 if (!nameAttr)
 955                 {
 956                     /* FIXME: gotta then look for a rfc822Name choice in ext.
 957                      * Failing that, look for the first attribute.
 958                      */
 959                     FIXME("CERT_NAME_SIMPLE_DISPLAY_TYPE: stub\n");
 960                 }
 961             }
 962         }
 963         if (nameAttr)
 964             ret = CertRDNValueToStrW(nameAttr->dwValueType, &nameAttr->Value,
 965                                      pszNameString, cchNameString);
 966         else
 967             ret = 0;
 968         if (info)
 969             LocalFree(info);
 970         break;
 971     }
 972     case CERT_NAME_FRIENDLY_DISPLAY_TYPE:
 973     {
 974         DWORD cch = cchNameString;
 975
 976         if (CertGetCertificateContextProperty(pCertContext,
 977          CERT_FRIENDLY_NAME_PROP_ID, pszNameString, &cch))
 978             ret = cch;
 979         else
 980             ret = CertGetNameStringW(pCertContext,
 981              CERT_NAME_SIMPLE_DISPLAY_TYPE, dwFlags, pvTypePara, pszNameString,
 982              cchNameString);
 983         break;
 984     }
 985     default:
 986         FIXME("unimplemented for type %d\n", dwType);
 987         ret = 0;
 988     }
 989     return ret;
 990 }