?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
wined3d: Track synchronized buffer maps.
[wine.git] / dlls / rpcrt4 / rpc_binding.c
bloba6cfb6aed1d30eec739f5b3480cab708977bfb14
1 /*
2 * RPC binding API
3 *
4 * Copyright 2001 Ove Kåven, TransGaming Technologies
5 * Copyright 2003 Mike Hearn
6 * Copyright 2004 Filip Navara
7 * Copyright 2006 CodeWeavers
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 */
23
24 #include <stdarg.h>
25 #include <stdio.h>
26 #include <string.h>
27 #include <assert.h>
28
29 #include "windef.h"
30 #include "winbase.h"
31 #include "winnls.h"
32 #include "winerror.h"
33 #include "winternl.h"
34 #include "wine/unicode.h"
35
36 #include "rpc.h"
37 #include "rpcndr.h"
38
39 #include "wine/debug.h"
40
41 #include "rpc_binding.h"
42 #include "rpc_assoc.h"
43
44 WINE_DEFAULT_DEBUG_CHANNEL(rpc);
45
46 LPSTR RPCRT4_strndupA(LPCSTR src, INT slen)
47 {
48 DWORD len;
49 LPSTR s;
50 if (!src) return NULL;
51 if (slen == -1) slen = strlen(src);
52 len = slen;
53 s = HeapAlloc(GetProcessHeap(), 0, len+1);
54 memcpy(s, src, len);
55 s[len] = 0;
56 return s;
57 }
58
59 LPSTR RPCRT4_strdupWtoA(LPCWSTR src)
60 {
61 DWORD len;
62 LPSTR s;
63 if (!src) return NULL;
64 len = WideCharToMultiByte(CP_ACP, 0, src, -1, NULL, 0, NULL, NULL);
65 s = HeapAlloc(GetProcessHeap(), 0, len);
66 WideCharToMultiByte(CP_ACP, 0, src, -1, s, len, NULL, NULL);
67 return s;
68 }
69
70 LPWSTR RPCRT4_strdupAtoW(LPCSTR src)
71 {
72 DWORD len;
73 LPWSTR s;
74 if (!src) return NULL;
75 len = MultiByteToWideChar(CP_ACP, 0, src, -1, NULL, 0);
76 s = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
77 MultiByteToWideChar(CP_ACP, 0, src, -1, s, len);
78 return s;
79 }
80
81 static LPWSTR RPCRT4_strndupAtoW(LPCSTR src, INT slen)
82 {
83 DWORD len;
84 LPWSTR s;
85 if (!src) return NULL;
86 len = MultiByteToWideChar(CP_ACP, 0, src, slen, NULL, 0);
87 s = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
88 MultiByteToWideChar(CP_ACP, 0, src, slen, s, len);
89 return s;
90 }
91
92 LPWSTR RPCRT4_strndupW(LPCWSTR src, INT slen)
93 {
94 DWORD len;
95 LPWSTR s;
96 if (!src) return NULL;
97 if (slen == -1) slen = strlenW(src);
98 len = slen;
99 s = HeapAlloc(GetProcessHeap(), 0, (len+1)*sizeof(WCHAR));
100 memcpy(s, src, len*sizeof(WCHAR));
101 s[len] = 0;
102 return s;
103 }
104
105 void RPCRT4_strfree(LPSTR src)
106 {
107 HeapFree(GetProcessHeap(), 0, src);
108 }
109
110 static RPC_STATUS RPCRT4_AllocBinding(RpcBinding** Binding, BOOL server)
111 {
112 RpcBinding* NewBinding;
113
114 NewBinding = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(RpcBinding));
115 NewBinding->refs = 1;
116 NewBinding->server = server;
117
118 *Binding = NewBinding;
119
120 return RPC_S_OK;
121 }
122
123 static RPC_STATUS RPCRT4_CreateBindingA(RpcBinding** Binding, BOOL server, LPCSTR Protseq)
124 {
125 RpcBinding* NewBinding;
126
127 RPCRT4_AllocBinding(&NewBinding, server);
128 NewBinding->Protseq = RPCRT4_strdupA(Protseq);
129
130 TRACE("binding: %p\n", NewBinding);
131 *Binding = NewBinding;
132
133 return RPC_S_OK;
134 }
135
136 static RPC_STATUS RPCRT4_CreateBindingW(RpcBinding** Binding, BOOL server, LPCWSTR Protseq)
137 {
138 RpcBinding* NewBinding;
139
140 RPCRT4_AllocBinding(&NewBinding, server);
141 NewBinding->Protseq = RPCRT4_strdupWtoA(Protseq);
142
143 TRACE("binding: %p\n", NewBinding);
144 *Binding = NewBinding;
145
146 return RPC_S_OK;
147 }
148
149 static RPC_STATUS RPCRT4_CompleteBindingA(RpcBinding* Binding, LPCSTR NetworkAddr,
150 LPCSTR Endpoint, LPCSTR NetworkOptions)
151 {
152 RPC_STATUS status;
153
154 TRACE("(RpcBinding == ^%p, NetworkAddr == %s, EndPoint == %s, NetworkOptions == %s)\n", Binding,
155 debugstr_a(NetworkAddr), debugstr_a(Endpoint), debugstr_a(NetworkOptions));
156
157 RPCRT4_strfree(Binding->NetworkAddr);
158 Binding->NetworkAddr = RPCRT4_strdupA(NetworkAddr);
159 RPCRT4_strfree(Binding->Endpoint);
160 Binding->Endpoint = RPCRT4_strdupA(Endpoint);
161 HeapFree(GetProcessHeap(), 0, Binding->NetworkOptions);
162 Binding->NetworkOptions = RPCRT4_strdupAtoW(NetworkOptions);
163
164 /* only attempt to get an association if the binding is complete */
165 if (Endpoint && Endpoint[0] != '\0')
166 {
167 status = RPCRT4_GetAssociation(Binding->Protseq, Binding->NetworkAddr,
168 Binding->Endpoint, Binding->NetworkOptions,
169 &Binding->Assoc);
170 if (status != RPC_S_OK)
171 return status;
172 }
173
174 return RPC_S_OK;
175 }
176
177 static RPC_STATUS RPCRT4_CompleteBindingW(RpcBinding* Binding, LPCWSTR NetworkAddr,
178 LPCWSTR Endpoint, LPCWSTR NetworkOptions)
179 {
180 RPC_STATUS status;
181
182 TRACE("(RpcBinding == ^%p, NetworkAddr == %s, EndPoint == %s, NetworkOptions == %s)\n", Binding,
183 debugstr_w(NetworkAddr), debugstr_w(Endpoint), debugstr_w(NetworkOptions));
184
185 RPCRT4_strfree(Binding->NetworkAddr);
186 Binding->NetworkAddr = RPCRT4_strdupWtoA(NetworkAddr);
187 RPCRT4_strfree(Binding->Endpoint);
188 Binding->Endpoint = RPCRT4_strdupWtoA(Endpoint);
189 HeapFree(GetProcessHeap(), 0, Binding->NetworkOptions);
190 Binding->NetworkOptions = RPCRT4_strdupW(NetworkOptions);
191
192 /* only attempt to get an association if the binding is complete */
193 if (Endpoint && Endpoint[0] != '\0')
194 {
195 status = RPCRT4_GetAssociation(Binding->Protseq, Binding->NetworkAddr,
196 Binding->Endpoint, Binding->NetworkOptions,
197 &Binding->Assoc);
198 if (status != RPC_S_OK)
199 return status;
200 }
201
202 return RPC_S_OK;
203 }
204
205 RPC_STATUS RPCRT4_ResolveBinding(RpcBinding* Binding, LPCSTR Endpoint)
206 {
207 RPC_STATUS status;
208
209 TRACE("(RpcBinding == ^%p, EndPoint == \"%s\"\n", Binding, Endpoint);
210
211 RPCRT4_strfree(Binding->Endpoint);
212 Binding->Endpoint = RPCRT4_strdupA(Endpoint);
213
214 if (Binding->Assoc) RpcAssoc_Release(Binding->Assoc);
215 Binding->Assoc = NULL;
216 status = RPCRT4_GetAssociation(Binding->Protseq, Binding->NetworkAddr,
217 Binding->Endpoint, Binding->NetworkOptions,
218 &Binding->Assoc);
219 if (status != RPC_S_OK)
220 return status;
221
222 return RPC_S_OK;
223 }
224
225 RPC_STATUS RPCRT4_SetBindingObject(RpcBinding* Binding, const UUID* ObjectUuid)
226 {
227 TRACE("(*RpcBinding == ^%p, UUID == %s)\n", Binding, debugstr_guid(ObjectUuid));
228 if (ObjectUuid) Binding->ObjectUuid = *ObjectUuid;
229 else UuidCreateNil(&Binding->ObjectUuid);
230 return RPC_S_OK;
231 }
232
233 RPC_STATUS RPCRT4_MakeBinding(RpcBinding** Binding, RpcConnection* Connection)
234 {
235 RpcBinding* NewBinding;
236 TRACE("(RpcBinding == ^%p, Connection == ^%p)\n", Binding, Connection);
237
238 RPCRT4_AllocBinding(&NewBinding, Connection->server);
239 NewBinding->Protseq = RPCRT4_strdupA(rpcrt4_conn_get_name(Connection));
240 NewBinding->NetworkAddr = RPCRT4_strdupA(Connection->NetworkAddr);
241 NewBinding->Endpoint = RPCRT4_strdupA(Connection->Endpoint);
242 NewBinding->FromConn = Connection;
243
244 TRACE("binding: %p\n", NewBinding);
245 *Binding = NewBinding;
246
247 return RPC_S_OK;
248 }
249
250 void RPCRT4_AddRefBinding(RpcBinding* Binding)
251 {
252 InterlockedIncrement(&Binding->refs);
253 }
254
255 RPC_STATUS RPCRT4_ReleaseBinding(RpcBinding* Binding)
256 {
257 if (InterlockedDecrement(&Binding->refs))
258 return RPC_S_OK;
259
260 TRACE("binding: %p\n", Binding);
261 if (Binding->Assoc) RpcAssoc_Release(Binding->Assoc);
262 RPCRT4_strfree(Binding->Endpoint);
263 RPCRT4_strfree(Binding->NetworkAddr);
264 RPCRT4_strfree(Binding->Protseq);
265 HeapFree(GetProcessHeap(), 0, Binding->NetworkOptions);
266 HeapFree(GetProcessHeap(), 0, Binding->CookieAuth);
267 if (Binding->AuthInfo) RpcAuthInfo_Release(Binding->AuthInfo);
268 if (Binding->QOS) RpcQualityOfService_Release(Binding->QOS);
269 HeapFree(GetProcessHeap(), 0, Binding);
270 return RPC_S_OK;
271 }
272
273 RPC_STATUS RPCRT4_OpenBinding(RpcBinding* Binding, RpcConnection** Connection,
274 const RPC_SYNTAX_IDENTIFIER *TransferSyntax,
275 const RPC_SYNTAX_IDENTIFIER *InterfaceId)
276 {
277 TRACE("(Binding == ^%p)\n", Binding);
278
279 if (!Binding->server) {
280 return RpcAssoc_GetClientConnection(Binding->Assoc, InterfaceId,
281 TransferSyntax, Binding->AuthInfo, Binding->QOS, Binding->CookieAuth, Connection);
282 } else {
283 /* we already have a connection with acceptable binding, so use it */
284 if (Binding->FromConn) {
285 *Connection = Binding->FromConn;
286 return RPC_S_OK;
287 } else {
288 ERR("no connection in binding\n");
289 return RPC_S_INTERNAL_ERROR;
290 }
291 }
292 }
293
294 RPC_STATUS RPCRT4_CloseBinding(RpcBinding* Binding, RpcConnection* Connection)
295 {
296 TRACE("(Binding == ^%p)\n", Binding);
297 if (!Connection) return RPC_S_OK;
298 if (Binding->server) {
299 /* don't destroy a connection that is cached in the binding */
300 if (Binding->FromConn == Connection)
301 return RPC_S_OK;
302 return RPCRT4_ReleaseConnection(Connection);
303 }
304 else {
305 RpcAssoc_ReleaseIdleConnection(Binding->Assoc, Connection);
306 return RPC_S_OK;
307 }
308 }
309
310 static LPSTR RPCRT4_strconcatA(LPSTR dst, LPCSTR src)
311 {
312 DWORD len = strlen(dst), slen = strlen(src);
313 LPSTR ndst = HeapReAlloc(GetProcessHeap(), 0, dst, (len+slen+2)*sizeof(CHAR));
314 if (!ndst)
315 {
316 HeapFree(GetProcessHeap(), 0, dst);
317 return NULL;
318 }
319 ndst[len] = ',';
320 memcpy(ndst+len+1, src, slen+1);
321 return ndst;
322 }
323
324 static LPWSTR RPCRT4_strconcatW(LPWSTR dst, LPCWSTR src)
325 {
326 DWORD len = strlenW(dst), slen = strlenW(src);
327 LPWSTR ndst = HeapReAlloc(GetProcessHeap(), 0, dst, (len+slen+2)*sizeof(WCHAR));
328 if (!ndst)
329 {
330 HeapFree(GetProcessHeap(), 0, dst);
331 return NULL;
332 }
333 ndst[len] = ',';
334 memcpy(ndst+len+1, src, (slen+1)*sizeof(WCHAR));
335 return ndst;
336 }
337
338 /* Copies the escaped version of a component into a string binding.
339 * Note: doesn't nul-terminate the string */
340 static RPC_CSTR escape_string_binding_component(RPC_CSTR string_binding,
341 const unsigned char *component)
342 {
343 for (; *component; component++) {
344 switch (*component) {
345 case '@':
346 case ':':
347 case '[':
348 case ']':
349 case '\\':
350 *string_binding++ = '\\';
351 *string_binding++ = *component;
352 break;
353 default:
354 *string_binding++ = *component;
355 break;
356 }
357 }
358 return string_binding;
359 }
360
361 static RPC_WSTR escape_string_binding_componentW(RPC_WSTR string_binding,
362 const WCHAR *component)
363 {
364 for (; *component; component++) {
365 switch (*component) {
366 case '@':
367 case ':':
368 case '[':
369 case ']':
370 case '\\':
371 *string_binding++ = '\\';
372 *string_binding++ = *component;
373 break;
374 default:
375 *string_binding++ = *component;
376 break;
377 }
378 }
379 return string_binding;
380 }
381
382 static const unsigned char *string_binding_find_delimiter(
383 const unsigned char *string_binding, unsigned char delim)
384 {
385 const unsigned char *next;
386 for (next = string_binding; *next; next++) {
387 if (*next == '\\') {
388 next++;
389 continue;
390 }
391 if (*next == delim)
392 return next;
393 }
394 return NULL;
395 }
396
397 static const WCHAR *string_binding_find_delimiterW(
398 const WCHAR *string_binding, WCHAR delim)
399 {
400 const WCHAR *next;
401 for (next = string_binding; *next; next++) {
402 if (*next == '\\') {
403 next++;
404 continue;
405 }
406 if (*next == delim)
407 return next;
408 }
409 return NULL;
410 }
411
412 static RPC_CSTR unescape_string_binding_component(
413 const unsigned char *string_binding, int len)
414 {
415 RPC_CSTR component, p;
416
417 if (len == -1) len = strlen((const char *)string_binding);
418
419 component = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(*component));
420 if (!component) return NULL;
421 for (p = component; len > 0; string_binding++, len--) {
422 if (*string_binding == '\\') {
423 string_binding++;
424 len--;
425 *p++ = *string_binding;
426 } else {
427 *p++ = *string_binding;
428 }
429 }
430 *p = '\0';
431 return component;
432 }
433
434 static RPC_WSTR unescape_string_binding_componentW(
435 const WCHAR *string_binding, int len)
436 {
437 RPC_WSTR component, p;
438
439 if (len == -1) len = strlenW(string_binding);
440
441 component = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(*component));
442 if (!component) return NULL;
443 for (p = component; len > 0; string_binding++, len--) {
444 if (*string_binding == '\\') {
445 string_binding++;
446 len--;
447 *p++ = *string_binding;
448 } else {
449 *p++ = *string_binding;
450 }
451 }
452 *p = '\0';
453 return component;
454 }
455
456 /***********************************************************************
457 * RpcStringBindingComposeA (RPCRT4.@)
458 */
459 RPC_STATUS WINAPI RpcStringBindingComposeA(RPC_CSTR ObjUuid, RPC_CSTR Protseq,
460 RPC_CSTR NetworkAddr, RPC_CSTR Endpoint,
461 RPC_CSTR Options, RPC_CSTR *StringBinding )
462 {
463 DWORD len = 1;
464 RPC_CSTR data;
465
466 TRACE( "(%s,%s,%s,%s,%s,%p)\n",
467 debugstr_a( (char*)ObjUuid ), debugstr_a( (char*)Protseq ),
468 debugstr_a( (char*)NetworkAddr ), debugstr_a( (char*)Endpoint ),
469 debugstr_a( (char*)Options ), StringBinding );
470
471 /* overestimate for each component for escaping of delimiters */
472 if (ObjUuid && *ObjUuid) len += strlen((char*)ObjUuid) * 2 + 1;
473 if (Protseq && *Protseq) len += strlen((char*)Protseq) * 2 + 1;
474 if (NetworkAddr && *NetworkAddr) len += strlen((char*)NetworkAddr) * 2;
475 if (Endpoint && *Endpoint) len += strlen((char*)Endpoint) * 2 + 2;
476 if (Options && *Options) len += strlen((char*)Options) * 2 + 2;
477
478 data = HeapAlloc(GetProcessHeap(), 0, len);
479 *StringBinding = data;
480
481 if (ObjUuid && *ObjUuid) {
482 data = escape_string_binding_component(data, ObjUuid);
483 *data++ = '@';
484 }
485 if (Protseq && *Protseq) {
486 data = escape_string_binding_component(data, Protseq);
487 *data++ = ':';
488 }
489 if (NetworkAddr && *NetworkAddr)
490 data = escape_string_binding_component(data, NetworkAddr);
491
492 if ((Endpoint && *Endpoint) ||
493 (Options && *Options)) {
494 *data++ = '[';
495 if (Endpoint && *Endpoint) {
496 data = escape_string_binding_component(data, Endpoint);
497 if (Options && *Options) *data++ = ',';
498 }
499 if (Options && *Options) {
500 data = escape_string_binding_component(data, Options);
501 }
502 *data++ = ']';
503 }
504 *data = 0;
505
506 return RPC_S_OK;
507 }
508
509 /***********************************************************************
510 * RpcStringBindingComposeW (RPCRT4.@)
511 */
512 RPC_STATUS WINAPI RpcStringBindingComposeW( RPC_WSTR ObjUuid, RPC_WSTR Protseq,
513 RPC_WSTR NetworkAddr, RPC_WSTR Endpoint,
514 RPC_WSTR Options, RPC_WSTR* StringBinding )
515 {
516 DWORD len = 1;
517 RPC_WSTR data;
518
519 TRACE("(%s,%s,%s,%s,%s,%p)\n",
520 debugstr_w( ObjUuid ), debugstr_w( Protseq ),
521 debugstr_w( NetworkAddr ), debugstr_w( Endpoint ),
522 debugstr_w( Options ), StringBinding);
523
524 /* overestimate for each component for escaping of delimiters */
525 if (ObjUuid && *ObjUuid) len += strlenW(ObjUuid) * 2 + 1;
526 if (Protseq && *Protseq) len += strlenW(Protseq) * 2 + 1;
527 if (NetworkAddr && *NetworkAddr) len += strlenW(NetworkAddr) * 2;
528 if (Endpoint && *Endpoint) len += strlenW(Endpoint) * 2 + 2;
529 if (Options && *Options) len += strlenW(Options) * 2 + 2;
530
531 data = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
532 *StringBinding = data;
533
534 if (ObjUuid && *ObjUuid) {
535 data = escape_string_binding_componentW(data, ObjUuid);
536 *data++ = '@';
537 }
538 if (Protseq && *Protseq) {
539 data = escape_string_binding_componentW(data, Protseq);
540 *data++ = ':';
541 }
542 if (NetworkAddr && *NetworkAddr) {
543 data = escape_string_binding_componentW(data, NetworkAddr);
544 }
545 if ((Endpoint && *Endpoint) ||
546 (Options && *Options)) {
547 *data++ = '[';
548 if (Endpoint && *Endpoint) {
549 data = escape_string_binding_componentW(data, Endpoint);
550 if (Options && *Options) *data++ = ',';
551 }
552 if (Options && *Options) {
553 data = escape_string_binding_componentW(data, Options);
554 }
555 *data++ = ']';
556 }
557 *data = 0;
558
559 return RPC_S_OK;
560 }
561
562
563 /***********************************************************************
564 * RpcStringBindingParseA (RPCRT4.@)
565 */
566 RPC_STATUS WINAPI RpcStringBindingParseA( RPC_CSTR StringBinding, RPC_CSTR *ObjUuid,
567 RPC_CSTR *Protseq, RPC_CSTR *NetworkAddr,
568 RPC_CSTR *Endpoint, RPC_CSTR *Options)
569 {
570 const unsigned char *data, *next;
571 static const char ep_opt[] = "endpoint=";
572 BOOL endpoint_already_found = FALSE;
573
574 TRACE("(%s,%p,%p,%p,%p,%p)\n", debugstr_a((char*)StringBinding),
575 ObjUuid, Protseq, NetworkAddr, Endpoint, Options);
576
577 if (ObjUuid) *ObjUuid = NULL;
578 if (Protseq) *Protseq = NULL;
579 if (NetworkAddr) *NetworkAddr = NULL;
580 if (Endpoint) *Endpoint = NULL;
581 if (Options) *Options = NULL;
582
583 data = StringBinding;
584
585 next = string_binding_find_delimiter(data, '@');
586 if (next) {
587 UUID uuid;
588 RPC_STATUS status;
589 RPC_CSTR str_uuid = unescape_string_binding_component(data, next - data);
590 status = UuidFromStringA(str_uuid, &uuid);
591 if (status != RPC_S_OK) {
592 HeapFree(GetProcessHeap(), 0, str_uuid);
593 return status;
594 }
595 if (ObjUuid)
596 *ObjUuid = str_uuid;
597 else
598 HeapFree(GetProcessHeap(), 0, str_uuid);
599 data = next+1;
600 }
601
602 next = string_binding_find_delimiter(data, ':');
603 if (next) {
604 if (Protseq) *Protseq = unescape_string_binding_component(data, next - data);
605 data = next+1;
606 }
607
608 next = string_binding_find_delimiter(data, '[');
609 if (next) {
610 const unsigned char *close;
611 RPC_CSTR opt;
612
613 if (NetworkAddr) *NetworkAddr = unescape_string_binding_component(data, next - data);
614 data = next+1;
615 close = string_binding_find_delimiter(data, ']');
616 if (!close) goto fail;
617
618 /* tokenize options */
619 while (data < close) {
620 next = string_binding_find_delimiter(data, ',');
621 if (!next || next > close) next = close;
622 /* FIXME: this is kind of inefficient */
623 opt = unescape_string_binding_component(data, next - data);
624 data = next+1;
625
626 /* parse option */
627 next = string_binding_find_delimiter(opt, '=');
628 if (!next) {
629 /* not an option, must be an endpoint */
630 if (endpoint_already_found) goto fail;
631 if (Endpoint) *Endpoint = opt;
632 else HeapFree(GetProcessHeap(), 0, opt);
633 endpoint_already_found = TRUE;
634 } else {
635 if (strncmp((const char *)opt, ep_opt, strlen(ep_opt)) == 0) {
636 /* endpoint option */
637 if (endpoint_already_found) goto fail;
638 if (Endpoint) *Endpoint = unescape_string_binding_component(next+1, -1);
639 HeapFree(GetProcessHeap(), 0, opt);
640 endpoint_already_found = TRUE;
641 } else {
642 /* network option */
643 if (Options) {
644 if (*Options) {
645 /* FIXME: this is kind of inefficient */
646 *Options = (unsigned char*) RPCRT4_strconcatA( (char*)*Options, (char *)opt);
647 HeapFree(GetProcessHeap(), 0, opt);
648 } else
649 *Options = opt;
650 } else
651 HeapFree(GetProcessHeap(), 0, opt);
652 }
653 }
654 }
655
656 data = close+1;
657 if (*data) goto fail;
658 }
659 else if (NetworkAddr)
660 *NetworkAddr = unescape_string_binding_component(data, -1);
661
662 return RPC_S_OK;
663
664 fail:
665 if (ObjUuid) RpcStringFreeA(ObjUuid);
666 if (Protseq) RpcStringFreeA(Protseq);
667 if (NetworkAddr) RpcStringFreeA(NetworkAddr);
668 if (Endpoint) RpcStringFreeA(Endpoint);
669 if (Options) RpcStringFreeA(Options);
670 return RPC_S_INVALID_STRING_BINDING;
671 }
672
673 /***********************************************************************
674 * RpcStringBindingParseW (RPCRT4.@)
675 */
676 RPC_STATUS WINAPI RpcStringBindingParseW( RPC_WSTR StringBinding, RPC_WSTR *ObjUuid,
677 RPC_WSTR *Protseq, RPC_WSTR *NetworkAddr,
678 RPC_WSTR *Endpoint, RPC_WSTR *Options)
679 {
680 const WCHAR *data, *next;
681 static const WCHAR ep_opt[] = {'e','n','d','p','o','i','n','t','=',0};
682 BOOL endpoint_already_found = FALSE;
683
684 TRACE("(%s,%p,%p,%p,%p,%p)\n", debugstr_w(StringBinding),
685 ObjUuid, Protseq, NetworkAddr, Endpoint, Options);
686
687 if (ObjUuid) *ObjUuid = NULL;
688 if (Protseq) *Protseq = NULL;
689 if (NetworkAddr) *NetworkAddr = NULL;
690 if (Endpoint) *Endpoint = NULL;
691 if (Options) *Options = NULL;
692
693 data = StringBinding;
694
695 next = string_binding_find_delimiterW(data, '@');
696 if (next) {
697 UUID uuid;
698 RPC_STATUS status;
699 RPC_WSTR str_uuid = unescape_string_binding_componentW(data, next - data);
700 status = UuidFromStringW(str_uuid, &uuid);
701 if (status != RPC_S_OK) {
702 HeapFree(GetProcessHeap(), 0, str_uuid);
703 return status;
704 }
705 if (ObjUuid)
706 *ObjUuid = str_uuid;
707 else
708 HeapFree(GetProcessHeap(), 0, str_uuid);
709 data = next+1;
710 }
711
712 next = string_binding_find_delimiterW(data, ':');
713 if (next) {
714 if (Protseq) *Protseq = unescape_string_binding_componentW(data, next - data);
715 data = next+1;
716 }
717
718 next = string_binding_find_delimiterW(data, '[');
719 if (next) {
720 const WCHAR *close;
721 RPC_WSTR opt;
722
723 if (NetworkAddr) *NetworkAddr = unescape_string_binding_componentW(data, next - data);
724 data = next+1;
725 close = string_binding_find_delimiterW(data, ']');
726 if (!close) goto fail;
727
728 /* tokenize options */
729 while (data < close) {
730 next = string_binding_find_delimiterW(data, ',');
731 if (!next || next > close) next = close;
732 /* FIXME: this is kind of inefficient */
733 opt = unescape_string_binding_componentW(data, next - data);
734 data = next+1;
735
736 /* parse option */
737 next = string_binding_find_delimiterW(opt, '=');
738 if (!next) {
739 /* not an option, must be an endpoint */
740 if (endpoint_already_found) goto fail;
741 if (Endpoint) *Endpoint = opt;
742 else HeapFree(GetProcessHeap(), 0, opt);
743 endpoint_already_found = TRUE;
744 } else {
745 if (strncmpW(opt, ep_opt, strlenW(ep_opt)) == 0) {
746 /* endpoint option */
747 if (endpoint_already_found) goto fail;
748 if (Endpoint) *Endpoint = unescape_string_binding_componentW(next+1, -1);
749 HeapFree(GetProcessHeap(), 0, opt);
750 endpoint_already_found = TRUE;
751 } else {
752 /* network option */
753 if (Options) {
754 if (*Options) {
755 /* FIXME: this is kind of inefficient */
756 *Options = RPCRT4_strconcatW(*Options, opt);
757 HeapFree(GetProcessHeap(), 0, opt);
758 } else
759 *Options = opt;
760 } else
761 HeapFree(GetProcessHeap(), 0, opt);
762 }
763 }
764 }
765
766 data = close+1;
767 if (*data) goto fail;
768 } else if (NetworkAddr)
769 *NetworkAddr = unescape_string_binding_componentW(data, -1);
770
771 return RPC_S_OK;
772
773 fail:
774 if (ObjUuid) RpcStringFreeW(ObjUuid);
775 if (Protseq) RpcStringFreeW(Protseq);
776 if (NetworkAddr) RpcStringFreeW(NetworkAddr);
777 if (Endpoint) RpcStringFreeW(Endpoint);
778 if (Options) RpcStringFreeW(Options);
779 return RPC_S_INVALID_STRING_BINDING;
780 }
781
782 /***********************************************************************
783 * RpcBindingFree (RPCRT4.@)
784 */
785 RPC_STATUS WINAPI RpcBindingFree( RPC_BINDING_HANDLE* Binding )
786 {
787 RPC_STATUS status;
788 TRACE("(%p) = %p\n", Binding, *Binding);
789 if (*Binding)
790 status = RPCRT4_ReleaseBinding(*Binding);
791 else
792 status = RPC_S_INVALID_BINDING;
793 if (status == RPC_S_OK) *Binding = NULL;
794 return status;
795 }
796
797 /***********************************************************************
798 * RpcBindingVectorFree (RPCRT4.@)
799 */
800 RPC_STATUS WINAPI RpcBindingVectorFree( RPC_BINDING_VECTOR** BindingVector )
801 {
802 ULONG c;
803
804 TRACE("(%p)\n", BindingVector);
805 for (c=0; c<(*BindingVector)->Count; c++) RpcBindingFree(&(*BindingVector)->BindingH[c]);
806 HeapFree(GetProcessHeap(), 0, *BindingVector);
807 *BindingVector = NULL;
808 return RPC_S_OK;
809 }
810
811 /***********************************************************************
812 * RpcBindingInqObject (RPCRT4.@)
813 */
814 RPC_STATUS WINAPI RpcBindingInqObject( RPC_BINDING_HANDLE Binding, UUID* ObjectUuid )
815 {
816 RpcBinding* bind = Binding;
817
818 TRACE("(%p,%p) = %s\n", Binding, ObjectUuid, debugstr_guid(&bind->ObjectUuid));
819 *ObjectUuid = bind->ObjectUuid;
820 return RPC_S_OK;
821 }
822
823 /***********************************************************************
824 * RpcBindingSetObject (RPCRT4.@)
825 */
826 RPC_STATUS WINAPI RpcBindingSetObject( RPC_BINDING_HANDLE Binding, UUID* ObjectUuid )
827 {
828 RpcBinding* bind = Binding;
829
830 TRACE("(%p,%s)\n", Binding, debugstr_guid(ObjectUuid));
831 if (bind->server) return RPC_S_WRONG_KIND_OF_BINDING;
832 return RPCRT4_SetBindingObject(Binding, ObjectUuid);
833 }
834
835 /***********************************************************************
836 * RpcBindingFromStringBindingA (RPCRT4.@)
837 */
838 RPC_STATUS WINAPI RpcBindingFromStringBindingA( RPC_CSTR StringBinding, RPC_BINDING_HANDLE* Binding )
839 {
840 RPC_STATUS ret;
841 RpcBinding* bind = NULL;
842 RPC_CSTR ObjectUuid, Protseq, NetworkAddr, Endpoint, Options;
843 UUID Uuid;
844
845 TRACE("(%s,%p)\n", debugstr_a((char*)StringBinding), Binding);
846
847 ret = RpcStringBindingParseA(StringBinding, &ObjectUuid, &Protseq,
848 &NetworkAddr, &Endpoint, &Options);
849 if (ret != RPC_S_OK) return ret;
850
851 ret = UuidFromStringA(ObjectUuid, &Uuid);
852
853 if (ret == RPC_S_OK)
854 ret = RPCRT4_CreateBindingA(&bind, FALSE, (char*)Protseq);
855 if (ret == RPC_S_OK) {
856 ret = RPCRT4_SetBindingObject(bind, &Uuid);
857 if (ret == RPC_S_OK)
858 ret = RPCRT4_CompleteBindingA(bind, (char*)NetworkAddr, (char*)Endpoint, (char*)Options);
859
860 if (ret == RPC_S_OK)
861 *Binding = (RPC_BINDING_HANDLE)bind;
862 else
863 RPCRT4_ReleaseBinding(bind);
864 }
865
866 RpcStringFreeA(&Options);
867 RpcStringFreeA(&Endpoint);
868 RpcStringFreeA(&NetworkAddr);
869 RpcStringFreeA(&Protseq);
870 RpcStringFreeA(&ObjectUuid);
871
872 return ret;
873 }
874
875 /***********************************************************************
876 * RpcBindingFromStringBindingW (RPCRT4.@)
877 */
878 RPC_STATUS WINAPI RpcBindingFromStringBindingW( RPC_WSTR StringBinding, RPC_BINDING_HANDLE* Binding )
879 {
880 RPC_STATUS ret;
881 RpcBinding* bind = NULL;
882 RPC_WSTR ObjectUuid, Protseq, NetworkAddr, Endpoint, Options;
883 UUID Uuid;
884
885 TRACE("(%s,%p)\n", debugstr_w(StringBinding), Binding);
886
887 ret = RpcStringBindingParseW(StringBinding, &ObjectUuid, &Protseq,
888 &NetworkAddr, &Endpoint, &Options);
889 if (ret != RPC_S_OK) return ret;
890
891 ret = UuidFromStringW(ObjectUuid, &Uuid);
892
893 if (ret == RPC_S_OK)
894 ret = RPCRT4_CreateBindingW(&bind, FALSE, Protseq);
895 if (ret == RPC_S_OK) {
896 ret = RPCRT4_SetBindingObject(bind, &Uuid);
897 if (ret == RPC_S_OK)
898 ret = RPCRT4_CompleteBindingW(bind, NetworkAddr, Endpoint, Options);
899
900 if (ret == RPC_S_OK)
901 *Binding = (RPC_BINDING_HANDLE)bind;
902 else
903 RPCRT4_ReleaseBinding(bind);
904 }
905
906 RpcStringFreeW(&Options);
907 RpcStringFreeW(&Endpoint);
908 RpcStringFreeW(&NetworkAddr);
909 RpcStringFreeW(&Protseq);
910 RpcStringFreeW(&ObjectUuid);
911
912 return ret;
913 }
914
915 /***********************************************************************
916 * RpcBindingToStringBindingA (RPCRT4.@)
917 */
918 RPC_STATUS WINAPI RpcBindingToStringBindingA( RPC_BINDING_HANDLE Binding, RPC_CSTR *StringBinding )
919 {
920 RPC_STATUS ret;
921 RpcBinding* bind = Binding;
922 RPC_CSTR ObjectUuid;
923
924 TRACE("(%p,%p)\n", Binding, StringBinding);
925
926 if (UuidIsNil(&bind->ObjectUuid, &ret))
927 ObjectUuid = NULL;
928 else
929 {
930 ret = UuidToStringA(&bind->ObjectUuid, &ObjectUuid);
931 if (ret != RPC_S_OK) return ret;
932 }
933
934 ret = RpcStringBindingComposeA(ObjectUuid, (unsigned char*)bind->Protseq, (unsigned char*) bind->NetworkAddr,
935 (unsigned char*) bind->Endpoint, NULL, StringBinding);
936
937 RpcStringFreeA(&ObjectUuid);
938
939 return ret;
940 }
941
942 /***********************************************************************
943 * RpcBindingToStringBindingW (RPCRT4.@)
944 */
945 RPC_STATUS WINAPI RpcBindingToStringBindingW( RPC_BINDING_HANDLE Binding, RPC_WSTR *StringBinding )
946 {
947 RPC_STATUS ret;
948 unsigned char *str = NULL;
949 TRACE("(%p,%p)\n", Binding, StringBinding);
950 ret = RpcBindingToStringBindingA(Binding, &str);
951 *StringBinding = RPCRT4_strdupAtoW((char*)str);
952 RpcStringFreeA(&str);
953 return ret;
954 }
955
956 /***********************************************************************
957 * I_RpcBindingInqTransportType (RPCRT4.@)
958 */
959 RPC_STATUS WINAPI I_RpcBindingInqTransportType( RPC_BINDING_HANDLE Binding, unsigned int * Type )
960 {
961
962 FIXME( "(%p,%p): stub\n", Binding, Type);
963 *Type = TRANSPORT_TYPE_LPC;
964 return RPC_S_OK;
965 }
966
967 /***********************************************************************
968 * I_RpcBindingSetAsync (RPCRT4.@)
969 * NOTES
970 * Exists in win9x and winNT, but with different number of arguments
971 * (9x version has 3 arguments, NT has 2).
972 */
973 RPC_STATUS WINAPI I_RpcBindingSetAsync( RPC_BINDING_HANDLE Binding, RPC_BLOCKING_FN BlockingFn)
974 {
975 RpcBinding* bind = Binding;
976
977 TRACE( "(%p,%p): stub\n", Binding, BlockingFn );
978
979 bind->BlockingFn = BlockingFn;
980
981 return RPC_S_OK;
982 }
983
984 /***********************************************************************
985 * RpcBindingCopy (RPCRT4.@)
986 */
987 RPC_STATUS RPC_ENTRY RpcBindingCopy(
988 RPC_BINDING_HANDLE SourceBinding,
989 RPC_BINDING_HANDLE* DestinationBinding)
990 {
991 RpcBinding *DestBinding;
992 RpcBinding *SrcBinding = SourceBinding;
993 RPC_STATUS status;
994
995 TRACE("(%p, %p)\n", SourceBinding, DestinationBinding);
996
997 status = RPCRT4_AllocBinding(&DestBinding, SrcBinding->server);
998 if (status != RPC_S_OK) return status;
999
1000 DestBinding->ObjectUuid = SrcBinding->ObjectUuid;
1001 DestBinding->BlockingFn = SrcBinding->BlockingFn;
1002 DestBinding->Protseq = RPCRT4_strndupA(SrcBinding->Protseq, -1);
1003 DestBinding->NetworkAddr = RPCRT4_strndupA(SrcBinding->NetworkAddr, -1);
1004 DestBinding->Endpoint = RPCRT4_strndupA(SrcBinding->Endpoint, -1);
1005 DestBinding->NetworkOptions = RPCRT4_strdupW(SrcBinding->NetworkOptions);
1006 DestBinding->CookieAuth = RPCRT4_strdupW(SrcBinding->CookieAuth);
1007 if (SrcBinding->Assoc) SrcBinding->Assoc->refs++;
1008 DestBinding->Assoc = SrcBinding->Assoc;
1009
1010 if (SrcBinding->AuthInfo) RpcAuthInfo_AddRef(SrcBinding->AuthInfo);
1011 DestBinding->AuthInfo = SrcBinding->AuthInfo;
1012 if (SrcBinding->QOS) RpcQualityOfService_AddRef(SrcBinding->QOS);
1013 DestBinding->QOS = SrcBinding->QOS;
1014
1015 *DestinationBinding = DestBinding;
1016 return RPC_S_OK;
1017 }
1018
1019 /***********************************************************************
1020 * RpcBindingReset (RPCRT4.@)
1021 */
1022 RPC_STATUS RPC_ENTRY RpcBindingReset(RPC_BINDING_HANDLE Binding)
1023 {
1024 RpcBinding *bind = Binding;
1025
1026 TRACE("(%p)\n", Binding);
1027
1028 RPCRT4_strfree(bind->Endpoint);
1029 bind->Endpoint = NULL;
1030 if (bind->Assoc) RpcAssoc_Release(bind->Assoc);
1031 bind->Assoc = NULL;
1032
1033 return RPC_S_OK;
1034 }
1035
1036 /***********************************************************************
1037 * RpcImpersonateClient (RPCRT4.@)
1038 *
1039 * Impersonates the client connected via a binding handle so that security
1040 * checks are done in the context of the client.
1041 *
1042 * PARAMS
1043 * BindingHandle [I] Handle to the binding to the client.
1044 *
1045 * RETURNS
1046 * Success: RPS_S_OK.
1047 * Failure: RPC_STATUS value.
1048 *
1049 * NOTES
1050 *
1051 * If BindingHandle is NULL then the function impersonates the client
1052 * connected to the binding handle of the current thread.
1053 */
1054 RPC_STATUS WINAPI RpcImpersonateClient(RPC_BINDING_HANDLE BindingHandle)
1055 {
1056 RpcBinding *bind;
1057
1058 TRACE("(%p)\n", BindingHandle);
1059
1060 if (!BindingHandle) BindingHandle = I_RpcGetCurrentCallHandle();
1061 if (!BindingHandle) return RPC_S_INVALID_BINDING;
1062
1063 bind = BindingHandle;
1064 if (bind->FromConn)
1065 return rpcrt4_conn_impersonate_client(bind->FromConn);
1066 return RPC_S_WRONG_KIND_OF_BINDING;
1067 }
1068
1069 /***********************************************************************
1070 * RpcRevertToSelfEx (RPCRT4.@)
1071 *
1072 * Stops impersonating the client connected to the binding handle so that security
1073 * checks are no longer done in the context of the client.
1074 *
1075 * PARAMS
1076 * BindingHandle [I] Handle to the binding to the client.
1077 *
1078 * RETURNS
1079 * Success: RPS_S_OK.
1080 * Failure: RPC_STATUS value.
1081 *
1082 * NOTES
1083 *
1084 * If BindingHandle is NULL then the function stops impersonating the client
1085 * connected to the binding handle of the current thread.
1086 */
1087 RPC_STATUS WINAPI RpcRevertToSelfEx(RPC_BINDING_HANDLE BindingHandle)
1088 {
1089 RpcBinding *bind;
1090
1091 TRACE("(%p)\n", BindingHandle);
1092
1093 if (!BindingHandle) BindingHandle = I_RpcGetCurrentCallHandle();
1094 if (!BindingHandle) return RPC_S_INVALID_BINDING;
1095
1096 bind = BindingHandle;
1097 if (bind->FromConn)
1098 return rpcrt4_conn_revert_to_self(bind->FromConn);
1099 return RPC_S_WRONG_KIND_OF_BINDING;
1100 }
1101
1102 static inline BOOL has_nt_auth_identity(ULONG AuthnLevel)
1103 {
1104 switch (AuthnLevel)
1105 {
1106 case RPC_C_AUTHN_GSS_NEGOTIATE:
1107 case RPC_C_AUTHN_WINNT:
1108 case RPC_C_AUTHN_GSS_KERBEROS:
1109 return TRUE;
1110 default:
1111 return FALSE;
1112 }
1113 }
1114
1115 RPC_STATUS RpcAuthInfo_Create(ULONG AuthnLevel, ULONG AuthnSvc,
1116 CredHandle cred, TimeStamp exp,
1117 ULONG cbMaxToken,
1118 RPC_AUTH_IDENTITY_HANDLE identity,
1119 RpcAuthInfo **ret)
1120 {
1121 RpcAuthInfo *AuthInfo = HeapAlloc(GetProcessHeap(), 0, sizeof(*AuthInfo));
1122 if (!AuthInfo)
1123 return ERROR_OUTOFMEMORY;
1124
1125 AuthInfo->refs = 1;
1126 AuthInfo->AuthnLevel = AuthnLevel;
1127 AuthInfo->AuthnSvc = AuthnSvc;
1128 AuthInfo->cred = cred;
1129 AuthInfo->exp = exp;
1130 AuthInfo->cbMaxToken = cbMaxToken;
1131 AuthInfo->identity = identity;
1132 AuthInfo->server_principal_name = NULL;
1133
1134 /* duplicate the SEC_WINNT_AUTH_IDENTITY structure, if applicable, to
1135 * enable better matching in RpcAuthInfo_IsEqual */
1136 if (identity && has_nt_auth_identity(AuthnSvc))
1137 {
1138 const SEC_WINNT_AUTH_IDENTITY_W *nt_identity = identity;
1139 AuthInfo->nt_identity = HeapAlloc(GetProcessHeap(), 0, sizeof(*AuthInfo->nt_identity));
1140 if (!AuthInfo->nt_identity)
1141 {
1142 HeapFree(GetProcessHeap(), 0, AuthInfo);
1143 return ERROR_OUTOFMEMORY;
1144 }
1145
1146 AuthInfo->nt_identity->Flags = SEC_WINNT_AUTH_IDENTITY_UNICODE;
1147 if (nt_identity->Flags & SEC_WINNT_AUTH_IDENTITY_UNICODE)
1148 AuthInfo->nt_identity->User = RPCRT4_strndupW(nt_identity->User, nt_identity->UserLength);
1149 else
1150 AuthInfo->nt_identity->User = RPCRT4_strndupAtoW((const char *)nt_identity->User, nt_identity->UserLength);
1151 AuthInfo->nt_identity->UserLength = nt_identity->UserLength;
1152 if (nt_identity->Flags & SEC_WINNT_AUTH_IDENTITY_UNICODE)
1153 AuthInfo->nt_identity->Domain = RPCRT4_strndupW(nt_identity->Domain, nt_identity->DomainLength);
1154 else
1155 AuthInfo->nt_identity->Domain = RPCRT4_strndupAtoW((const char *)nt_identity->Domain, nt_identity->DomainLength);
1156 AuthInfo->nt_identity->DomainLength = nt_identity->DomainLength;
1157 if (nt_identity->Flags & SEC_WINNT_AUTH_IDENTITY_UNICODE)
1158 AuthInfo->nt_identity->Password = RPCRT4_strndupW(nt_identity->Password, nt_identity->PasswordLength);
1159 else
1160 AuthInfo->nt_identity->Password = RPCRT4_strndupAtoW((const char *)nt_identity->Password, nt_identity->PasswordLength);
1161 AuthInfo->nt_identity->PasswordLength = nt_identity->PasswordLength;
1162
1163 if ((nt_identity->User && !AuthInfo->nt_identity->User) ||
1164 (nt_identity->Domain && !AuthInfo->nt_identity->Domain) ||
1165 (nt_identity->Password && !AuthInfo->nt_identity->Password))
1166 {
1167 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity->User);
1168 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity->Domain);
1169 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity->Password);
1170 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity);
1171 HeapFree(GetProcessHeap(), 0, AuthInfo);
1172 return ERROR_OUTOFMEMORY;
1173 }
1174 }
1175 else
1176 AuthInfo->nt_identity = NULL;
1177 *ret = AuthInfo;
1178 return RPC_S_OK;
1179 }
1180
1181 ULONG RpcAuthInfo_AddRef(RpcAuthInfo *AuthInfo)
1182 {
1183 return InterlockedIncrement(&AuthInfo->refs);
1184 }
1185
1186 ULONG RpcAuthInfo_Release(RpcAuthInfo *AuthInfo)
1187 {
1188 ULONG refs = InterlockedDecrement(&AuthInfo->refs);
1189
1190 if (!refs)
1191 {
1192 FreeCredentialsHandle(&AuthInfo->cred);
1193 if (AuthInfo->nt_identity)
1194 {
1195 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity->User);
1196 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity->Domain);
1197 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity->Password);
1198 HeapFree(GetProcessHeap(), 0, AuthInfo->nt_identity);
1199 }
1200 HeapFree(GetProcessHeap(), 0, AuthInfo->server_principal_name);
1201 HeapFree(GetProcessHeap(), 0, AuthInfo);
1202 }
1203
1204 return refs;
1205 }
1206
1207 BOOL RpcAuthInfo_IsEqual(const RpcAuthInfo *AuthInfo1, const RpcAuthInfo *AuthInfo2)
1208 {
1209 if (AuthInfo1 == AuthInfo2)
1210 return TRUE;
1211
1212 if (!AuthInfo1 || !AuthInfo2)
1213 return FALSE;
1214
1215 if ((AuthInfo1->AuthnLevel != AuthInfo2->AuthnLevel) ||
1216 (AuthInfo1->AuthnSvc != AuthInfo2->AuthnSvc))
1217 return FALSE;
1218
1219 if (AuthInfo1->identity == AuthInfo2->identity)
1220 return TRUE;
1221
1222 if (!AuthInfo1->identity || !AuthInfo2->identity)
1223 return FALSE;
1224
1225 if (has_nt_auth_identity(AuthInfo1->AuthnSvc))
1226 {
1227 const SEC_WINNT_AUTH_IDENTITY_W *identity1 = AuthInfo1->nt_identity;
1228 const SEC_WINNT_AUTH_IDENTITY_W *identity2 = AuthInfo2->nt_identity;
1229 /* compare user names */
1230 if (identity1->UserLength != identity2->UserLength ||
1231 memcmp(identity1->User, identity2->User, identity1->UserLength))
1232 return FALSE;
1233 /* compare domain names */
1234 if (identity1->DomainLength != identity2->DomainLength ||
1235 memcmp(identity1->Domain, identity2->Domain, identity1->DomainLength))
1236 return FALSE;
1237 /* compare passwords */
1238 if (identity1->PasswordLength != identity2->PasswordLength ||
1239 memcmp(identity1->Password, identity2->Password, identity1->PasswordLength))
1240 return FALSE;
1241 }
1242 else
1243 return FALSE;
1244
1245 return TRUE;
1246 }
1247
1248 static RPC_STATUS RpcQualityOfService_Create(const RPC_SECURITY_QOS *qos_src, BOOL unicode, RpcQualityOfService **qos_dst)
1249 {
1250 RpcQualityOfService *qos = HeapAlloc(GetProcessHeap(), 0, sizeof(*qos));
1251
1252 if (!qos)
1253 return RPC_S_OUT_OF_RESOURCES;
1254
1255 qos->refs = 1;
1256 qos->qos = HeapAlloc(GetProcessHeap(), 0, sizeof(*qos->qos));
1257 if (!qos->qos) goto error;
1258 qos->qos->Version = qos_src->Version;
1259 qos->qos->Capabilities = qos_src->Capabilities;
1260 qos->qos->IdentityTracking = qos_src->IdentityTracking;
1261 qos->qos->ImpersonationType = qos_src->ImpersonationType;
1262 qos->qos->AdditionalSecurityInfoType = 0;
1263
1264 if (qos_src->Version >= 2)
1265 {
1266 const RPC_SECURITY_QOS_V2_W *qos_src2 = (const RPC_SECURITY_QOS_V2_W *)qos_src;
1267 qos->qos->AdditionalSecurityInfoType = qos_src2->AdditionalSecurityInfoType;
1268 if (qos_src2->AdditionalSecurityInfoType == RPC_C_AUTHN_INFO_TYPE_HTTP)
1269 {
1270 const RPC_HTTP_TRANSPORT_CREDENTIALS_W *http_credentials_src = qos_src2->u.HttpCredentials;
1271 RPC_HTTP_TRANSPORT_CREDENTIALS_W *http_credentials_dst;
1272
1273 http_credentials_dst = HeapAlloc(GetProcessHeap(), 0, sizeof(*http_credentials_dst));
1274 qos->qos->u.HttpCredentials = http_credentials_dst;
1275 if (!http_credentials_dst) goto error;
1276 http_credentials_dst->TransportCredentials = NULL;
1277 http_credentials_dst->Flags = http_credentials_src->Flags;
1278 http_credentials_dst->AuthenticationTarget = http_credentials_src->AuthenticationTarget;
1279 http_credentials_dst->NumberOfAuthnSchemes = http_credentials_src->NumberOfAuthnSchemes;
1280 http_credentials_dst->AuthnSchemes = NULL;
1281 http_credentials_dst->ServerCertificateSubject = NULL;
1282 if (http_credentials_src->TransportCredentials)
1283 {
1284 SEC_WINNT_AUTH_IDENTITY_W *cred_dst;
1285 cred_dst = http_credentials_dst->TransportCredentials = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*cred_dst));
1286 if (!cred_dst) goto error;
1287 cred_dst->Flags = SEC_WINNT_AUTH_IDENTITY_UNICODE;
1288 if (unicode)
1289 {
1290 const SEC_WINNT_AUTH_IDENTITY_W *cred_src = http_credentials_src->TransportCredentials;
1291 cred_dst->UserLength = cred_src->UserLength;
1292 cred_dst->PasswordLength = cred_src->PasswordLength;
1293 cred_dst->DomainLength = cred_src->DomainLength;
1294 cred_dst->User = RPCRT4_strndupW(cred_src->User, cred_src->UserLength);
1295 cred_dst->Password = RPCRT4_strndupW(cred_src->Password, cred_src->PasswordLength);
1296 cred_dst->Domain = RPCRT4_strndupW(cred_src->Domain, cred_src->DomainLength);
1297 }
1298 else
1299 {
1300 const SEC_WINNT_AUTH_IDENTITY_A *cred_src = (const SEC_WINNT_AUTH_IDENTITY_A *)http_credentials_src->TransportCredentials;
1301 cred_dst->UserLength = MultiByteToWideChar(CP_ACP, 0, (char *)cred_src->User, cred_src->UserLength, NULL, 0);
1302 cred_dst->DomainLength = MultiByteToWideChar(CP_ACP, 0, (char *)cred_src->Domain, cred_src->DomainLength, NULL, 0);
1303 cred_dst->PasswordLength = MultiByteToWideChar(CP_ACP, 0, (char *)cred_src->Password, cred_src->PasswordLength, NULL, 0);
1304 cred_dst->User = HeapAlloc(GetProcessHeap(), 0, cred_dst->UserLength * sizeof(WCHAR));
1305 cred_dst->Password = HeapAlloc(GetProcessHeap(), 0, cred_dst->PasswordLength * sizeof(WCHAR));
1306 cred_dst->Domain = HeapAlloc(GetProcessHeap(), 0, cred_dst->DomainLength * sizeof(WCHAR));
1307 if (!cred_dst->Password || !cred_dst->Domain) goto error;
1308 MultiByteToWideChar(CP_ACP, 0, (char *)cred_src->User, cred_src->UserLength, cred_dst->User, cred_dst->UserLength);
1309 MultiByteToWideChar(CP_ACP, 0, (char *)cred_src->Domain, cred_src->DomainLength, cred_dst->Domain, cred_dst->DomainLength);
1310 MultiByteToWideChar(CP_ACP, 0, (char *)cred_src->Password, cred_src->PasswordLength, cred_dst->Password, cred_dst->PasswordLength);
1311 }
1312 }
1313 if (http_credentials_src->NumberOfAuthnSchemes)
1314 {
1315 http_credentials_dst->AuthnSchemes = HeapAlloc(GetProcessHeap(), 0, http_credentials_src->NumberOfAuthnSchemes * sizeof(*http_credentials_dst->AuthnSchemes));
1316 if (!http_credentials_dst->AuthnSchemes) goto error;
1317 memcpy(http_credentials_dst->AuthnSchemes, http_credentials_src->AuthnSchemes, http_credentials_src->NumberOfAuthnSchemes * sizeof(*http_credentials_dst->AuthnSchemes));
1318 }
1319 if (http_credentials_src->ServerCertificateSubject)
1320 {
1321 if (unicode)
1322 http_credentials_dst->ServerCertificateSubject =
1323 RPCRT4_strndupW(http_credentials_src->ServerCertificateSubject,
1324 strlenW(http_credentials_src->ServerCertificateSubject));
1325 else
1326 http_credentials_dst->ServerCertificateSubject =
1327 RPCRT4_strdupAtoW((char *)http_credentials_src->ServerCertificateSubject);
1328 if (!http_credentials_dst->ServerCertificateSubject) goto error;
1329 }
1330 }
1331 }
1332 *qos_dst = qos;
1333 return RPC_S_OK;
1334
1335 error:
1336 if (qos->qos)
1337 {
1338 if (qos->qos->AdditionalSecurityInfoType == RPC_C_AUTHN_INFO_TYPE_HTTP &&
1339 qos->qos->u.HttpCredentials)
1340 {
1341 if (qos->qos->u.HttpCredentials->TransportCredentials)
1342 {
1343 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials->User);
1344 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials->Domain);
1345 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials->Password);
1346 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials);
1347 }
1348 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->AuthnSchemes);
1349 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->ServerCertificateSubject);
1350 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials);
1351 }
1352 HeapFree(GetProcessHeap(), 0, qos->qos);
1353 }
1354 HeapFree(GetProcessHeap(), 0, qos);
1355 return RPC_S_OUT_OF_RESOURCES;
1356 }
1357
1358 ULONG RpcQualityOfService_AddRef(RpcQualityOfService *qos)
1359 {
1360 return InterlockedIncrement(&qos->refs);
1361 }
1362
1363 ULONG RpcQualityOfService_Release(RpcQualityOfService *qos)
1364 {
1365 ULONG refs = InterlockedDecrement(&qos->refs);
1366
1367 if (!refs)
1368 {
1369 if (qos->qos->AdditionalSecurityInfoType == RPC_C_AUTHN_INFO_TYPE_HTTP)
1370 {
1371 if (qos->qos->u.HttpCredentials->TransportCredentials)
1372 {
1373 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials->User);
1374 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials->Domain);
1375 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials->Password);
1376 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->TransportCredentials);
1377 }
1378 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->AuthnSchemes);
1379 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials->ServerCertificateSubject);
1380 HeapFree(GetProcessHeap(), 0, qos->qos->u.HttpCredentials);
1381 }
1382 HeapFree(GetProcessHeap(), 0, qos->qos);
1383 HeapFree(GetProcessHeap(), 0, qos);
1384 }
1385 return refs;
1386 }
1387
1388 BOOL RpcQualityOfService_IsEqual(const RpcQualityOfService *qos1, const RpcQualityOfService *qos2)
1389 {
1390 if (qos1 == qos2)
1391 return TRUE;
1392
1393 if (!qos1 || !qos2)
1394 return FALSE;
1395
1396 TRACE("qos1 = { %d %d %d %d }, qos2 = { %d %d %d %d }\n",
1397 qos1->qos->Capabilities, qos1->qos->IdentityTracking,
1398 qos1->qos->ImpersonationType, qos1->qos->AdditionalSecurityInfoType,
1399 qos2->qos->Capabilities, qos2->qos->IdentityTracking,
1400 qos2->qos->ImpersonationType, qos2->qos->AdditionalSecurityInfoType);
1401
1402 if ((qos1->qos->Capabilities != qos2->qos->Capabilities) ||
1403 (qos1->qos->IdentityTracking != qos2->qos->IdentityTracking) ||
1404 (qos1->qos->ImpersonationType != qos2->qos->ImpersonationType) ||
1405 (qos1->qos->AdditionalSecurityInfoType != qos2->qos->AdditionalSecurityInfoType))
1406 return FALSE;
1407
1408 if (qos1->qos->AdditionalSecurityInfoType == RPC_C_AUTHN_INFO_TYPE_HTTP)
1409 {
1410 const RPC_HTTP_TRANSPORT_CREDENTIALS_W *http_credentials1 = qos1->qos->u.HttpCredentials;
1411 const RPC_HTTP_TRANSPORT_CREDENTIALS_W *http_credentials2 = qos2->qos->u.HttpCredentials;
1412
1413 if (http_credentials1->Flags != http_credentials2->Flags)
1414 return FALSE;
1415
1416 if (http_credentials1->AuthenticationTarget != http_credentials2->AuthenticationTarget)
1417 return FALSE;
1418
1419 if (http_credentials1->NumberOfAuthnSchemes != http_credentials2->NumberOfAuthnSchemes)
1420 return FALSE;
1421
1422 if ((!http_credentials1->AuthnSchemes && http_credentials2->AuthnSchemes) ||
1423 (http_credentials1->AuthnSchemes && !http_credentials2->AuthnSchemes))
1424 return FALSE;
1425
1426 if (memcmp(http_credentials1->AuthnSchemes, http_credentials2->AuthnSchemes,
1427 http_credentials1->NumberOfAuthnSchemes * sizeof(http_credentials1->AuthnSchemes[0])))
1428 return FALSE;
1429
1430 /* server certificate subject not currently used */
1431
1432 if (http_credentials1->TransportCredentials != http_credentials2->TransportCredentials)
1433 {
1434 const SEC_WINNT_AUTH_IDENTITY_W *identity1 = http_credentials1->TransportCredentials;
1435 const SEC_WINNT_AUTH_IDENTITY_W *identity2 = http_credentials2->TransportCredentials;
1436
1437 if (!identity1 || !identity2)
1438 return FALSE;
1439
1440 /* compare user names */
1441 if (identity1->UserLength != identity2->UserLength ||
1442 memcmp(identity1->User, identity2->User, identity1->UserLength))
1443 return FALSE;
1444 /* compare domain names */
1445 if (identity1->DomainLength != identity2->DomainLength ||
1446 memcmp(identity1->Domain, identity2->Domain, identity1->DomainLength))
1447 return FALSE;
1448 /* compare passwords */
1449 if (identity1->PasswordLength != identity2->PasswordLength ||
1450 memcmp(identity1->Password, identity2->Password, identity1->PasswordLength))
1451 return FALSE;
1452 }
1453 }
1454
1455 return TRUE;
1456 }
1457
1458 /***********************************************************************
1459 * RpcRevertToSelf (RPCRT4.@)
1460 */
1461 RPC_STATUS WINAPI RpcRevertToSelf(void)
1462 {
1463 TRACE("\n");
1464 return RpcRevertToSelfEx(NULL);
1465 }
1466
1467 /***********************************************************************
1468 * RpcMgmtSetComTimeout (RPCRT4.@)
1469 */
1470 RPC_STATUS WINAPI RpcMgmtSetComTimeout(RPC_BINDING_HANDLE BindingHandle, unsigned int Timeout)
1471 {
1472 FIXME("(%p, %d): stub\n", BindingHandle, Timeout);
1473 return RPC_S_OK;
1474 }
1475
1476 /***********************************************************************
1477 * RpcBindingInqAuthInfoExA (RPCRT4.@)
1478 */
1479 RPCRTAPI RPC_STATUS RPC_ENTRY
1480 RpcBindingInqAuthInfoExA( RPC_BINDING_HANDLE Binding, RPC_CSTR *ServerPrincName, ULONG *AuthnLevel,
1481 ULONG *AuthnSvc, RPC_AUTH_IDENTITY_HANDLE *AuthIdentity, ULONG *AuthzSvc,
1482 ULONG RpcQosVersion, RPC_SECURITY_QOS *SecurityQOS )
1483 {
1484 RPC_STATUS status;
1485 RPC_WSTR principal;
1486
1487 TRACE("%p %p %p %p %p %p %u %p\n", Binding, ServerPrincName, AuthnLevel,
1488 AuthnSvc, AuthIdentity, AuthzSvc, RpcQosVersion, SecurityQOS);
1489
1490 status = RpcBindingInqAuthInfoExW(Binding, ServerPrincName ? &principal : NULL, AuthnLevel,
1491 AuthnSvc, AuthIdentity, AuthzSvc, RpcQosVersion, SecurityQOS);
1492 if (status == RPC_S_OK && ServerPrincName)
1493 {
1494 *ServerPrincName = (RPC_CSTR)RPCRT4_strdupWtoA(principal);
1495 RpcStringFreeW(&principal);
1496 if (!*ServerPrincName) return ERROR_OUTOFMEMORY;
1497 }
1498
1499 return status;
1500 }
1501
1502 /***********************************************************************
1503 * RpcBindingInqAuthInfoExW (RPCRT4.@)
1504 */
1505 RPCRTAPI RPC_STATUS RPC_ENTRY
1506 RpcBindingInqAuthInfoExW( RPC_BINDING_HANDLE Binding, RPC_WSTR *ServerPrincName, ULONG *AuthnLevel,
1507 ULONG *AuthnSvc, RPC_AUTH_IDENTITY_HANDLE *AuthIdentity, ULONG *AuthzSvc,
1508 ULONG RpcQosVersion, RPC_SECURITY_QOS *SecurityQOS )
1509 {
1510 RpcBinding *bind = Binding;
1511
1512 TRACE("%p %p %p %p %p %p %u %p\n", Binding, ServerPrincName, AuthnLevel,
1513 AuthnSvc, AuthIdentity, AuthzSvc, RpcQosVersion, SecurityQOS);
1514
1515 if (!bind->AuthInfo) return RPC_S_BINDING_HAS_NO_AUTH;
1516
1517 if (SecurityQOS)
1518 {
1519 FIXME("QOS not implemented\n");
1520 return RPC_S_INVALID_BINDING;
1521 }
1522
1523 if (ServerPrincName)
1524 {
1525 if (bind->AuthInfo->server_principal_name)
1526 {
1527 *ServerPrincName = RPCRT4_strdupW(bind->AuthInfo->server_principal_name);
1528 if (!*ServerPrincName) return ERROR_OUTOFMEMORY;
1529 }
1530 else *ServerPrincName = NULL;
1531 }
1532 if (AuthnLevel) *AuthnLevel = bind->AuthInfo->AuthnLevel;
1533 if (AuthnSvc) *AuthnSvc = bind->AuthInfo->AuthnSvc;
1534 if (AuthIdentity) *AuthIdentity = bind->AuthInfo->identity;
1535 if (AuthzSvc)
1536 {
1537 FIXME("authorization service not implemented\n");
1538 *AuthzSvc = RPC_C_AUTHZ_NONE;
1539 }
1540
1541 return RPC_S_OK;
1542 }
1543
1544 /***********************************************************************
1545 * RpcBindingInqAuthInfoA (RPCRT4.@)
1546 */
1547 RPCRTAPI RPC_STATUS RPC_ENTRY
1548 RpcBindingInqAuthInfoA( RPC_BINDING_HANDLE Binding, RPC_CSTR *ServerPrincName, ULONG *AuthnLevel,
1549 ULONG *AuthnSvc, RPC_AUTH_IDENTITY_HANDLE *AuthIdentity, ULONG *AuthzSvc )
1550 {
1551 return RpcBindingInqAuthInfoExA(Binding, ServerPrincName, AuthnLevel, AuthnSvc, AuthIdentity,
1552 AuthzSvc, 0, NULL);
1553 }
1554
1555 /***********************************************************************
1556 * RpcBindingInqAuthInfoW (RPCRT4.@)
1557 */
1558 RPCRTAPI RPC_STATUS RPC_ENTRY
1559 RpcBindingInqAuthInfoW( RPC_BINDING_HANDLE Binding, RPC_WSTR *ServerPrincName, ULONG *AuthnLevel,
1560 ULONG *AuthnSvc, RPC_AUTH_IDENTITY_HANDLE *AuthIdentity, ULONG *AuthzSvc )
1561 {
1562 return RpcBindingInqAuthInfoExW(Binding, ServerPrincName, AuthnLevel, AuthnSvc, AuthIdentity,
1563 AuthzSvc, 0, NULL);
1564 }
1565
1566 /***********************************************************************
1567 * RpcBindingInqAuthClientA (RPCRT4.@)
1568 */
1569 RPCRTAPI RPC_STATUS RPC_ENTRY
1570 RpcBindingInqAuthClientA( RPC_BINDING_HANDLE ClientBinding, RPC_AUTHZ_HANDLE *Privs,
1571 RPC_CSTR *ServerPrincName, ULONG *AuthnLevel, ULONG *AuthnSvc,
1572 ULONG *AuthzSvc )
1573 {
1574 return RpcBindingInqAuthClientExA(ClientBinding, Privs, ServerPrincName, AuthnLevel,
1575 AuthnSvc, AuthzSvc, 0);
1576 }
1577
1578 /***********************************************************************
1579 * RpcBindingInqAuthClientW (RPCRT4.@)
1580 */
1581 RPCRTAPI RPC_STATUS RPC_ENTRY
1582 RpcBindingInqAuthClientW( RPC_BINDING_HANDLE ClientBinding, RPC_AUTHZ_HANDLE *Privs,
1583 RPC_WSTR *ServerPrincName, ULONG *AuthnLevel, ULONG *AuthnSvc,
1584 ULONG *AuthzSvc )
1585 {
1586 return RpcBindingInqAuthClientExW(ClientBinding, Privs, ServerPrincName, AuthnLevel,
1587 AuthnSvc, AuthzSvc, 0);
1588 }
1589
1590 /***********************************************************************
1591 * RpcBindingInqAuthClientExA (RPCRT4.@)
1592 */
1593 RPCRTAPI RPC_STATUS RPC_ENTRY
1594 RpcBindingInqAuthClientExA( RPC_BINDING_HANDLE ClientBinding, RPC_AUTHZ_HANDLE *Privs,
1595 RPC_CSTR *ServerPrincName, ULONG *AuthnLevel, ULONG *AuthnSvc,
1596 ULONG *AuthzSvc, ULONG Flags )
1597 {
1598 RPC_STATUS status;
1599 RPC_WSTR principal;
1600
1601 TRACE("%p %p %p %p %p %p 0x%x\n", ClientBinding, Privs, ServerPrincName, AuthnLevel,
1602 AuthnSvc, AuthzSvc, Flags);
1603
1604 status = RpcBindingInqAuthClientExW(ClientBinding, Privs, ServerPrincName ? &principal : NULL,
1605 AuthnLevel, AuthnSvc, AuthzSvc, Flags);
1606 if (status == RPC_S_OK && ServerPrincName)
1607 {
1608 *ServerPrincName = (RPC_CSTR)RPCRT4_strdupWtoA(principal);
1609 if (!*ServerPrincName && principal) status = ERROR_OUTOFMEMORY;
1610 RpcStringFreeW(&principal);
1611 }
1612
1613 return status;
1614 }
1615
1616 /***********************************************************************
1617 * RpcBindingInqAuthClientExW (RPCRT4.@)
1618 */
1619 RPCRTAPI RPC_STATUS RPC_ENTRY
1620 RpcBindingInqAuthClientExW( RPC_BINDING_HANDLE ClientBinding, RPC_AUTHZ_HANDLE *Privs,
1621 RPC_WSTR *ServerPrincName, ULONG *AuthnLevel, ULONG *AuthnSvc,
1622 ULONG *AuthzSvc, ULONG Flags )
1623 {
1624 RpcBinding *bind = ClientBinding;
1625
1626 TRACE("%p %p %p %p %p %p 0x%x\n", ClientBinding, Privs, ServerPrincName, AuthnLevel,
1627 AuthnSvc, AuthzSvc, Flags);
1628
1629 if (!bind->FromConn) return RPC_S_INVALID_BINDING;
1630
1631 return rpcrt4_conn_inquire_auth_client(bind->FromConn, Privs,
1632 ServerPrincName, AuthnLevel,
1633 AuthnSvc, AuthzSvc, Flags);
1634 }
1635
1636 /***********************************************************************
1637 * RpcBindingSetAuthInfoExA (RPCRT4.@)
1638 */
1639 RPCRTAPI RPC_STATUS RPC_ENTRY
1640 RpcBindingSetAuthInfoExA( RPC_BINDING_HANDLE Binding, RPC_CSTR ServerPrincName,
1641 ULONG AuthnLevel, ULONG AuthnSvc,
1642 RPC_AUTH_IDENTITY_HANDLE AuthIdentity, ULONG AuthzSvr,
1643 RPC_SECURITY_QOS *SecurityQos )
1644 {
1645 RpcBinding* bind = Binding;
1646 SECURITY_STATUS r;
1647 CredHandle cred;
1648 TimeStamp exp;
1649 ULONG package_count;
1650 ULONG i;
1651 PSecPkgInfoA packages;
1652 ULONG cbMaxToken;
1653
1654 TRACE("%p %s %u %u %p %u %p\n", Binding, debugstr_a((const char*)ServerPrincName),
1655 AuthnLevel, AuthnSvc, AuthIdentity, AuthzSvr, SecurityQos);
1656
1657 if (SecurityQos)
1658 {
1659 RPC_STATUS status;
1660
1661 TRACE("SecurityQos { Version=%d, Capabilities=0x%x, IdentityTracking=%d, ImpersonationLevel=%d",
1662 SecurityQos->Version, SecurityQos->Capabilities, SecurityQos->IdentityTracking, SecurityQos->ImpersonationType);
1663 if (SecurityQos->Version >= 2)
1664 {
1665 const RPC_SECURITY_QOS_V2_A *SecurityQos2 = (const RPC_SECURITY_QOS_V2_A *)SecurityQos;
1666 TRACE(", AdditionalSecurityInfoType=%d", SecurityQos2->AdditionalSecurityInfoType);
1667 if (SecurityQos2->AdditionalSecurityInfoType == RPC_C_AUTHN_INFO_TYPE_HTTP)
1668 TRACE(", { %p, 0x%x, %d, %d, %p(%u), %s }",
1669 SecurityQos2->u.HttpCredentials->TransportCredentials,
1670 SecurityQos2->u.HttpCredentials->Flags,
1671 SecurityQos2->u.HttpCredentials->AuthenticationTarget,
1672 SecurityQos2->u.HttpCredentials->NumberOfAuthnSchemes,
1673 SecurityQos2->u.HttpCredentials->AuthnSchemes,
1674 SecurityQos2->u.HttpCredentials->AuthnSchemes ? *SecurityQos2->u.HttpCredentials->AuthnSchemes : 0,
1675 SecurityQos2->u.HttpCredentials->ServerCertificateSubject);
1676 }
1677 TRACE("}\n");
1678 status = RpcQualityOfService_Create(SecurityQos, FALSE, &bind->QOS);
1679 if (status != RPC_S_OK)
1680 return status;
1681 }
1682 else
1683 {
1684 if (bind->QOS) RpcQualityOfService_Release(bind->QOS);
1685 bind->QOS = NULL;
1686 }
1687
1688 if (AuthnSvc == RPC_C_AUTHN_DEFAULT)
1689 AuthnSvc = RPC_C_AUTHN_WINNT;
1690
1691 /* FIXME: the mapping should probably be retrieved using SSPI somehow */
1692 if (AuthnLevel == RPC_C_AUTHN_LEVEL_DEFAULT)
1693 AuthnLevel = RPC_C_AUTHN_LEVEL_NONE;
1694
1695 if ((AuthnLevel == RPC_C_AUTHN_LEVEL_NONE) || (AuthnSvc == RPC_C_AUTHN_NONE))
1696 {
1697 if (bind->AuthInfo) RpcAuthInfo_Release(bind->AuthInfo);
1698 bind->AuthInfo = NULL;
1699 return RPC_S_OK;
1700 }
1701
1702 if (AuthnLevel > RPC_C_AUTHN_LEVEL_PKT_PRIVACY)
1703 {
1704 FIXME("unknown AuthnLevel %u\n", AuthnLevel);
1705 return RPC_S_UNKNOWN_AUTHN_LEVEL;
1706 }
1707
1708 /* RPC_C_AUTHN_WINNT ignores the AuthzSvr parameter */
1709 if (AuthzSvr && AuthnSvc != RPC_C_AUTHN_WINNT)
1710 {
1711 FIXME("unsupported AuthzSvr %u\n", AuthzSvr);
1712 return RPC_S_UNKNOWN_AUTHZ_SERVICE;
1713 }
1714
1715 r = EnumerateSecurityPackagesA(&package_count, &packages);
1716 if (r != SEC_E_OK)
1717 {
1718 ERR("EnumerateSecurityPackagesA failed with error 0x%08x\n", r);
1719 return RPC_S_SEC_PKG_ERROR;
1720 }
1721
1722 for (i = 0; i < package_count; i++)
1723 if (packages[i].wRPCID == AuthnSvc)
1724 break;
1725
1726 if (i == package_count)
1727 {
1728 FIXME("unsupported AuthnSvc %u\n", AuthnSvc);
1729 FreeContextBuffer(packages);
1730 return RPC_S_UNKNOWN_AUTHN_SERVICE;
1731 }
1732
1733 TRACE("found package %s for service %u\n", packages[i].Name, AuthnSvc);
1734 r = AcquireCredentialsHandleA(NULL, packages[i].Name, SECPKG_CRED_OUTBOUND, NULL,
1735 AuthIdentity, NULL, NULL, &cred, &exp);
1736 cbMaxToken = packages[i].cbMaxToken;
1737 FreeContextBuffer(packages);
1738 if (r == ERROR_SUCCESS)
1739 {
1740 RpcAuthInfo *new_auth_info;
1741 r = RpcAuthInfo_Create(AuthnLevel, AuthnSvc, cred, exp, cbMaxToken,
1742 AuthIdentity, &new_auth_info);
1743 if (r == RPC_S_OK)
1744 {
1745 new_auth_info->server_principal_name = RPCRT4_strdupAtoW((char *)ServerPrincName);
1746 if (!ServerPrincName || new_auth_info->server_principal_name)
1747 {
1748 if (bind->AuthInfo) RpcAuthInfo_Release(bind->AuthInfo);
1749 bind->AuthInfo = new_auth_info;
1750 }
1751 else
1752 {
1753 RpcAuthInfo_Release(new_auth_info);
1754 r = ERROR_OUTOFMEMORY;
1755 }
1756 }
1757 else
1758 FreeCredentialsHandle(&cred);
1759 return r;
1760 }
1761 else
1762 {
1763 ERR("AcquireCredentialsHandleA failed with error 0x%08x\n", r);
1764 return RPC_S_SEC_PKG_ERROR;
1765 }
1766 }
1767
1768 /***********************************************************************
1769 * RpcBindingSetAuthInfoExW (RPCRT4.@)
1770 */
1771 RPCRTAPI RPC_STATUS RPC_ENTRY
1772 RpcBindingSetAuthInfoExW( RPC_BINDING_HANDLE Binding, RPC_WSTR ServerPrincName, ULONG AuthnLevel,
1773 ULONG AuthnSvc, RPC_AUTH_IDENTITY_HANDLE AuthIdentity, ULONG AuthzSvr,
1774 RPC_SECURITY_QOS *SecurityQos )
1775 {
1776 RpcBinding* bind = Binding;
1777 SECURITY_STATUS r;
1778 CredHandle cred;
1779 TimeStamp exp;
1780 ULONG package_count;
1781 ULONG i;
1782 PSecPkgInfoW packages;
1783 ULONG cbMaxToken;
1784
1785 TRACE("%p %s %u %u %p %u %p\n", Binding, debugstr_w(ServerPrincName),
1786 AuthnLevel, AuthnSvc, AuthIdentity, AuthzSvr, SecurityQos);
1787
1788 if (SecurityQos)
1789 {
1790 RPC_STATUS status;
1791
1792 TRACE("SecurityQos { Version=%d, Capabilities=0x%x, IdentityTracking=%d, ImpersonationLevel=%d",
1793 SecurityQos->Version, SecurityQos->Capabilities, SecurityQos->IdentityTracking, SecurityQos->ImpersonationType);
1794 if (SecurityQos->Version >= 2)
1795 {
1796 const RPC_SECURITY_QOS_V2_W *SecurityQos2 = (const RPC_SECURITY_QOS_V2_W *)SecurityQos;
1797 TRACE(", AdditionalSecurityInfoType=%d", SecurityQos2->AdditionalSecurityInfoType);
1798 if (SecurityQos2->AdditionalSecurityInfoType == RPC_C_AUTHN_INFO_TYPE_HTTP)
1799 TRACE(", { %p, 0x%x, %d, %d, %p(%u), %s }",
1800 SecurityQos2->u.HttpCredentials->TransportCredentials,
1801 SecurityQos2->u.HttpCredentials->Flags,
1802 SecurityQos2->u.HttpCredentials->AuthenticationTarget,
1803 SecurityQos2->u.HttpCredentials->NumberOfAuthnSchemes,
1804 SecurityQos2->u.HttpCredentials->AuthnSchemes,
1805 SecurityQos2->u.HttpCredentials->AuthnSchemes ? *SecurityQos2->u.HttpCredentials->AuthnSchemes : 0,
1806 debugstr_w(SecurityQos2->u.HttpCredentials->ServerCertificateSubject));
1807 }
1808 TRACE("}\n");
1809 status = RpcQualityOfService_Create(SecurityQos, TRUE, &bind->QOS);
1810 if (status != RPC_S_OK)
1811 return status;
1812 }
1813 else
1814 {
1815 if (bind->QOS) RpcQualityOfService_Release(bind->QOS);
1816 bind->QOS = NULL;
1817 }
1818
1819 if (AuthnSvc == RPC_C_AUTHN_DEFAULT)
1820 AuthnSvc = RPC_C_AUTHN_WINNT;
1821
1822 /* FIXME: the mapping should probably be retrieved using SSPI somehow */
1823 if (AuthnLevel == RPC_C_AUTHN_LEVEL_DEFAULT)
1824 AuthnLevel = RPC_C_AUTHN_LEVEL_NONE;
1825
1826 if ((AuthnLevel == RPC_C_AUTHN_LEVEL_NONE) || (AuthnSvc == RPC_C_AUTHN_NONE))
1827 {
1828 if (bind->AuthInfo) RpcAuthInfo_Release(bind->AuthInfo);
1829 bind->AuthInfo = NULL;
1830 return RPC_S_OK;
1831 }
1832
1833 if (AuthnLevel > RPC_C_AUTHN_LEVEL_PKT_PRIVACY)
1834 {
1835 FIXME("unknown AuthnLevel %u\n", AuthnLevel);
1836 return RPC_S_UNKNOWN_AUTHN_LEVEL;
1837 }
1838
1839 /* RPC_C_AUTHN_WINNT ignores the AuthzSvr parameter */
1840 if (AuthzSvr && AuthnSvc != RPC_C_AUTHN_WINNT)
1841 {
1842 FIXME("unsupported AuthzSvr %u\n", AuthzSvr);
1843 return RPC_S_UNKNOWN_AUTHZ_SERVICE;
1844 }
1845
1846 r = EnumerateSecurityPackagesW(&package_count, &packages);
1847 if (r != SEC_E_OK)
1848 {
1849 ERR("EnumerateSecurityPackagesW failed with error 0x%08x\n", r);
1850 return RPC_S_SEC_PKG_ERROR;
1851 }
1852
1853 for (i = 0; i < package_count; i++)
1854 if (packages[i].wRPCID == AuthnSvc)
1855 break;
1856
1857 if (i == package_count)
1858 {
1859 FIXME("unsupported AuthnSvc %u\n", AuthnSvc);
1860 FreeContextBuffer(packages);
1861 return RPC_S_UNKNOWN_AUTHN_SERVICE;
1862 }
1863
1864 TRACE("found package %s for service %u\n", debugstr_w(packages[i].Name), AuthnSvc);
1865 r = AcquireCredentialsHandleW(NULL, packages[i].Name, SECPKG_CRED_OUTBOUND, NULL,
1866 AuthIdentity, NULL, NULL, &cred, &exp);
1867 cbMaxToken = packages[i].cbMaxToken;
1868 FreeContextBuffer(packages);
1869 if (r == ERROR_SUCCESS)
1870 {
1871 RpcAuthInfo *new_auth_info;
1872 r = RpcAuthInfo_Create(AuthnLevel, AuthnSvc, cred, exp, cbMaxToken,
1873 AuthIdentity, &new_auth_info);
1874 if (r == RPC_S_OK)
1875 {
1876 new_auth_info->server_principal_name = RPCRT4_strdupW(ServerPrincName);
1877 if (!ServerPrincName || new_auth_info->server_principal_name)
1878 {
1879 if (bind->AuthInfo) RpcAuthInfo_Release(bind->AuthInfo);
1880 bind->AuthInfo = new_auth_info;
1881 }
1882 else
1883 {
1884 RpcAuthInfo_Release(new_auth_info);
1885 r = ERROR_OUTOFMEMORY;
1886 }
1887 }
1888 else
1889 FreeCredentialsHandle(&cred);
1890 return r;
1891 }
1892 else
1893 {
1894 ERR("AcquireCredentialsHandleW failed with error 0x%08x\n", r);
1895 return RPC_S_SEC_PKG_ERROR;
1896 }
1897 }
1898
1899 /***********************************************************************
1900 * RpcBindingSetAuthInfoA (RPCRT4.@)
1901 */
1902 RPCRTAPI RPC_STATUS RPC_ENTRY
1903 RpcBindingSetAuthInfoA( RPC_BINDING_HANDLE Binding, RPC_CSTR ServerPrincName, ULONG AuthnLevel,
1904 ULONG AuthnSvc, RPC_AUTH_IDENTITY_HANDLE AuthIdentity, ULONG AuthzSvr )
1905 {
1906 TRACE("%p %s %u %u %p %u\n", Binding, debugstr_a((const char*)ServerPrincName),
1907 AuthnLevel, AuthnSvc, AuthIdentity, AuthzSvr);
1908 return RpcBindingSetAuthInfoExA(Binding, ServerPrincName, AuthnLevel, AuthnSvc, AuthIdentity, AuthzSvr, NULL);
1909 }
1910
1911 /***********************************************************************
1912 * RpcBindingSetAuthInfoW (RPCRT4.@)
1913 */
1914 RPCRTAPI RPC_STATUS RPC_ENTRY
1915 RpcBindingSetAuthInfoW( RPC_BINDING_HANDLE Binding, RPC_WSTR ServerPrincName, ULONG AuthnLevel,
1916 ULONG AuthnSvc, RPC_AUTH_IDENTITY_HANDLE AuthIdentity, ULONG AuthzSvr )
1917 {
1918 TRACE("%p %s %u %u %p %u\n", Binding, debugstr_w(ServerPrincName),
1919 AuthnLevel, AuthnSvc, AuthIdentity, AuthzSvr);
1920 return RpcBindingSetAuthInfoExW(Binding, ServerPrincName, AuthnLevel, AuthnSvc, AuthIdentity, AuthzSvr, NULL);
1921 }
1922
1923 /***********************************************************************
1924 * RpcBindingSetOption (RPCRT4.@)
1925 */
1926 RPC_STATUS WINAPI RpcBindingSetOption(RPC_BINDING_HANDLE BindingHandle, ULONG Option, ULONG_PTR OptionValue)
1927 {
1928 TRACE("(%p, %d, %ld)\n", BindingHandle, Option, OptionValue);
1929
1930 switch (Option)
1931 {
1932 case RPC_C_OPT_COOKIE_AUTH:
1933 {
1934 RPC_C_OPT_COOKIE_AUTH_DESCRIPTOR *cookie = (RPC_C_OPT_COOKIE_AUTH_DESCRIPTOR *)OptionValue;
1935 RpcBinding *binding = BindingHandle;
1936 int len = MultiByteToWideChar(CP_ACP, 0, cookie->Buffer, cookie->BufferSize, NULL, 0);
1937 WCHAR *str;
1938
1939 if (!(str = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR)))) return ERROR_OUTOFMEMORY;
1940 MultiByteToWideChar(CP_ACP, 0, cookie->Buffer, cookie->BufferSize, str, len);
1941 str[len] = 0;
1942 HeapFree(GetProcessHeap(), 0, binding->CookieAuth);
1943 binding->CookieAuth = str;
1944 break;
1945 }
1946 default:
1947 FIXME("option %u not supported\n", Option);
1948 break;
1949 }
1950 return RPC_S_OK;
1951 }
Windows API implementation