1 /*
   2  * Copyright (c) 2004, 2017, Oracle and/or its affiliates. All rights reserved.
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * This code is free software; you can redistribute it and/or modify it
   6  * under the terms of the GNU General Public License version 2 only, as
   7  * published by the Free Software Foundation.  Oracle designates this
   8  * particular file as subject to the "Classpath" exception as provided
   9  * by Oracle in the LICENSE file that accompanied this code.
  10  *
  11  * This code is distributed in the hope that it will be useful, but WITHOUT
  12  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14  * version 2 for more details (a copy is included in the LICENSE file that
  15  * accompanied this code).
  16  *
  17  * You should have received a copy of the GNU General Public License version
  18  * 2 along with this work; if not, write to the Free Software Foundation,
  19  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  20  *
  21  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  22  * or visit www.oracle.com if you need additional information or have any
  23  * questions.
  24  */
  25 
  26 #include <windows.h>
  27 #include <Winhttp.h>
  28 
  29 #include "jni.h"
  30 #include "jni_util.h"
  31 #include "jvm.h"
  32 
  33 #include "proxy_util.h"
  34 
  35 #include "sun_net_spi_DefaultProxySelector.h"
  36 
  37 /*
  38  * These functions are used by the sun.net.spi.DefaultProxySelector class
  39  * to access some platform specific settings.
  40  * On Windows use WinHTTP functions to get the system settings.
  41  */
  42 
  43 /* Keep one static session for all requests. */
  44 static HINTERNET session = NULL;
  45 
  46 /*
  47  * Class:     sun_net_spi_DefaultProxySelector
  48  * Method:    init
  49  * Signature: ()Z
  50  */
  51 JNIEXPORT jboolean JNICALL
  52 Java_sun_net_spi_DefaultProxySelector_init(JNIEnv *env, jclass clazz) {
  53 
  54     /*
  55      * Get one WinHTTP session handle to initialize the WinHTTP internal data
  56      * structures. Keep and use only this one for the whole life time.
  57      */
  58     session = WinHttpOpen(L"Only used internal", /* we need no real agent string here */
  59                           WINHTTP_ACCESS_TYPE_DEFAULT_PROXY,
  60                           WINHTTP_NO_PROXY_NAME,
  61                           WINHTTP_NO_PROXY_BYPASS,
  62                           0);
  63     if (session == NULL) {
  64         return JNI_FALSE;
  65     }
  66 
  67     if (!initJavaClass(env)) {
  68         return JNI_FALSE;
  69     }
  70 
  71     return JNI_TRUE;
  72 }
  73 
  74 
  75 #define MAX_STR_LEN 1024
  76 
  77 /* A linked list element for a proxy */
  78 typedef struct list_item {
  79     wchar_t *host;
  80     int port;
  81     struct list_item *next;
  82 } list_item;
  83 
  84 /* Free the linked list */
  85 static void freeList(list_item *head) {
  86     list_item *next = NULL;
  87     list_item *current = head;
  88     while (current != NULL) {
  89         next = current->next;
  90         free(current->host);
  91         free(current);
  92         current = next;
  93     }
  94 }
  95 
  96 
  97 /*
  98  * Creates a linked list of list_item elements that has to be freed later on.
  99  * Returns the size of the array as int.
 100  */
 101 static int createProxyList(LPWSTR win_proxy, const WCHAR *pproto, list_item **head) {
 102     static const wchar_t separators[] = L"\t\r\n ;";
 103     list_item *current = NULL;
 104     int nr_elems = 0;
 105     wchar_t *context = NULL;
 106     wchar_t *current_proxy = NULL;
 107     BOOL error = FALSE;
 108 
 109     /*
 110      * The proxy server list contains one or more of the following strings
 111      * separated by semicolons or whitespace:
 112      *    ([<scheme>=][<scheme>"://"]<server>[":"<port>])
 113      */
 114     current_proxy = wcstok_s(win_proxy, separators, &context);
 115     while (current_proxy != NULL) {
 116         LPWSTR pport;
 117         LPWSTR phost;
 118         int portVal = 0;
 119         wchar_t *next_proxy = NULL;
 120         list_item *proxy = NULL;
 121         wchar_t* pos = NULL;
 122 
 123         /* Filter based on the scheme, if there is one */
 124         pos = wcschr(current_proxy, L'=');
 125         if (pos) {
 126           *pos = L'\0';
 127           if (wcscmp(current_proxy, pproto) != 0) {
 128               current_proxy = wcstok_s(NULL, separators, &context);
 129               continue;
 130           }
 131           current_proxy = pos + 1;
 132         }
 133 
 134         /* Let's check for a scheme and ignore it. */
 135         if ((phost = wcsstr(current_proxy, L"://")) != NULL) {
 136             phost += 3;
 137         } else {
 138             phost = current_proxy;
 139         }
 140 
 141         /* Get the port */
 142         pport = wcschr(phost, L':');
 143         if (pport != NULL) {
 144             *pport = 0;
 145             pport++;
 146             swscanf(pport, L"%d", &portVal);
 147         }
 148 
 149         proxy = (list_item *)malloc(sizeof(list_item));
 150         if (proxy != NULL) {
 151             proxy->next = NULL;
 152             proxy->port = portVal;
 153             proxy->host = _wcsdup(phost);
 154 
 155             if (proxy->host != NULL) {
 156                 if (*head == NULL) {
 157                     *head = proxy; /* first elem */
 158                 }
 159                 if (current != NULL) {
 160                     current->next = proxy;
 161                 }
 162                 current = proxy;
 163                 nr_elems++;
 164             } else {
 165                 free(proxy); /* cleanup */
 166             }
 167         }
 168         /* goto next proxy if available... */
 169         current_proxy = wcstok_s(NULL, separators, &context);
 170     }
 171     return nr_elems;
 172 }
 173 
 174 
 175 
 176 /*
 177  * Class:     sun_net_spi_DefaultProxySelector
 178  * Method:    getSystemProxies
 179  * Signature: ([Ljava/lang/String;Ljava/lang/String;)[Ljava/net/Proxy;
 180  */
 181 JNIEXPORT jobjectArray JNICALL
 182 Java_sun_net_spi_DefaultProxySelector_getSystemProxies(JNIEnv *env,
 183                                                        jobject this,
 184                                                        jstring proto,
 185                                                        jstring host)
 186 {
 187     jobjectArray proxy_array = NULL;
 188     jobject type_proxy = NULL;
 189     LPCWSTR lpProto;
 190     LPCWSTR lpHost;
 191     list_item *head = NULL;
 192 
 193     BOOL                                   use_auto_proxy = FALSE;
 194     WINHTTP_CURRENT_USER_IE_PROXY_CONFIG   ie_proxy_config;
 195     WINHTTP_AUTOPROXY_OPTIONS              auto_proxy_options;
 196     WINHTTP_PROXY_INFO                     proxy_info;
 197     LPWSTR win_proxy = NULL;
 198     LPWSTR win_bypass_proxy = NULL;
 199 
 200     memset(&ie_proxy_config, 0, sizeof(WINHTTP_CURRENT_USER_IE_PROXY_CONFIG));
 201     memset(&auto_proxy_options, 0, sizeof(WINHTTP_AUTOPROXY_OPTIONS));
 202     memset(&proxy_info, 0, sizeof(WINHTTP_PROXY_INFO));
 203 
 204     lpHost = (*env)->GetStringChars(env, host, NULL);
 205     if (lpHost == NULL) {
 206         if (!(*env)->ExceptionCheck(env))
 207             JNU_ThrowOutOfMemoryError(env, NULL);
 208         return NULL;
 209     }
 210 
 211     lpProto = (*env)->GetStringChars(env, proto, NULL);
 212     if (lpProto == NULL) {
 213         (*env)->ReleaseStringChars(env, host, lpHost);
 214         if (!(*env)->ExceptionCheck(env))
 215             JNU_ThrowOutOfMemoryError(env, NULL);
 216         return NULL;
 217     }
 218 
 219     if (WinHttpGetIEProxyConfigForCurrentUser(&ie_proxy_config) == FALSE) {
 220         /* cleanup and exit */
 221         (*env)->ReleaseStringChars(env, host, lpHost);
 222         (*env)->ReleaseStringChars(env, proto, lpProto);
 223         return NULL;
 224     }
 225 
 226     if (ie_proxy_config.fAutoDetect) {
 227         /* Windows uses WPAD */
 228         auto_proxy_options.dwAutoDetectFlags = WINHTTP_AUTO_DETECT_TYPE_DHCP |
 229                                                WINHTTP_AUTO_DETECT_TYPE_DNS_A;
 230         auto_proxy_options.dwFlags = WINHTTP_AUTOPROXY_AUTO_DETECT;
 231         auto_proxy_options.fAutoLogonIfChallenged = TRUE;
 232         use_auto_proxy = TRUE;
 233     } else if (ie_proxy_config.lpszAutoConfigUrl != NULL) {
 234         /* Windows uses PAC file */
 235         auto_proxy_options.lpszAutoConfigUrl = ie_proxy_config.lpszAutoConfigUrl;
 236         auto_proxy_options.dwFlags = WINHTTP_AUTOPROXY_CONFIG_URL;
 237         use_auto_proxy = TRUE;
 238     } else if (ie_proxy_config.lpszProxy != NULL) {
 239         /* Windows uses manually entered proxy. */
 240         use_auto_proxy = FALSE;
 241         win_bypass_proxy = ie_proxy_config.lpszProxyBypass;
 242         win_proxy = ie_proxy_config.lpszProxy;
 243     }
 244 
 245     if (use_auto_proxy) {
 246         WCHAR url[MAX_STR_LEN];
 247         /* Create url for WinHttpGetProxyForUrl */
 248         _snwprintf(url, sizeof(url) - 1, L"%s://%s", lpProto, lpHost);
 249         /* Get proxy for URL from Windows */
 250         use_auto_proxy = WinHttpGetProxyForUrl(session, &url[0], &auto_proxy_options, &proxy_info);
 251         if (use_auto_proxy) {
 252             win_proxy = proxy_info.lpszProxy;
 253             win_bypass_proxy = proxy_info.lpszProxyBypass;
 254         }
 255     }
 256 
 257     /* Check the bypass entry. */
 258     if (NULL != win_bypass_proxy) {
 259         /*
 260          * From MSDN:
 261          * The proxy bypass list contains one or more server names separated by
 262          * semicolons or whitespace. The proxy bypass list can also contain the
 263          * string "<local>" to indicate that all local intranet sites are
 264          * bypassed. Local intranet sites are considered to be all servers that
 265          * do not contain a period in their name.
 266          */
 267         wchar_t *context = NULL;
 268         LPWSTR s = wcstok_s(win_bypass_proxy, L"; ", &context);
 269 
 270         while (s != NULL) {
 271             size_t maxlen = wcslen(s);
 272             if (wcsncmp(s, lpHost, maxlen) == 0) {
 273                 /*
 274                  * The URL host name matches with one of the prefixes, use a
 275                  * direct connection.
 276                  */
 277                 goto noproxy;
 278             }
 279             if (wcsncmp(s, L"<local>", maxlen) == 0) {
 280                 /*
 281                  * All local intranet sites are bypassed - Microsoft consider all
 282                  * servers that do not contain a period in their name to be local.
 283                  */
 284                 if (wcschr(lpHost, '.') == NULL) {
 285                     goto noproxy;
 286                 }
 287             }
 288             s = wcstok_s(NULL, L"; ", &context);
 289         }
 290     }
 291 
 292     if (win_proxy != NULL) {
 293         wchar_t *context = NULL;
 294         int defport = 0;
 295         int nr_elems = 0;
 296 
 297         /* Set the default port value & proxy type from protocol. */
 298         if ((wcscmp(lpProto, L"http") == 0) ||
 299             (wcscmp(lpProto, L"ftp") == 0) ||
 300             (wcscmp(lpProto, L"gopher") == 0))
 301             defport = 80;
 302         if (wcscmp(lpProto, L"https") == 0)
 303             defport = 443;
 304         if (wcscmp(lpProto, L"socks") == 0) {
 305             defport = 1080;
 306             type_proxy = (*env)->GetStaticObjectField(env, ptype_class, ptype_socksID);
 307         } else {
 308             type_proxy = (*env)->GetStaticObjectField(env, ptype_class, ptype_httpID);
 309         }
 310         if (type_proxy == NULL || (*env)->ExceptionCheck(env)) {
 311             goto noproxy;
 312         }
 313 
 314         nr_elems = createProxyList(win_proxy, lpProto, &head);
 315         if (nr_elems != 0 && head != NULL) {
 316             int index = 0;
 317             proxy_array = (*env)->NewObjectArray(env, nr_elems, proxy_class, NULL);
 318             if (proxy_array == NULL || (*env)->ExceptionCheck(env)) {
 319                 goto noproxy;
 320             }
 321             while (head != NULL && index < nr_elems) {
 322                 jstring jhost;
 323                 jobject isa;
 324                 jobject proxy;
 325 
 326                 if (head->host != NULL && proxy_array != NULL) {
 327                     /* Let's create the appropriate Proxy object then. */
 328                     if (head->port == 0) {
 329                         head->port = defport;
 330                     }
 331                     jhost = (*env)->NewString(env, head->host, (jsize)wcslen(head->host));
 332                     if (jhost == NULL || (*env)->ExceptionCheck(env)) {
 333                         proxy_array = NULL;
 334                     }
 335                     isa = (*env)->CallStaticObjectMethod(env, isaddr_class,
 336                                                          isaddr_createUnresolvedID, jhost,
 337                                                          head->port);
 338                     if (isa == NULL || (*env)->ExceptionCheck(env)) {
 339                         proxy_array = NULL;
 340                     }
 341                     proxy = (*env)->NewObject(env, proxy_class, proxy_ctrID, type_proxy, isa);
 342                     if (proxy == NULL || (*env)->ExceptionCheck(env)) {
 343                         proxy_array = NULL;
 344                     }
 345                     (*env)->SetObjectArrayElement(env, proxy_array, index, proxy);
 346                     if ((*env)->ExceptionCheck(env)) {
 347                         proxy_array = NULL;
 348                     }
 349                     index++;
 350                 }
 351                 head = head->next;
 352             }
 353         }
 354     }
 355 
 356 noproxy:
 357     if (head != NULL) {
 358         freeList(head);
 359     }
 360     if (proxy_info.lpszProxy != NULL)
 361       GlobalFree(proxy_info.lpszProxy);
 362     if (proxy_info.lpszProxyBypass != NULL)
 363       GlobalFree(proxy_info.lpszProxyBypass);
 364     if (ie_proxy_config.lpszAutoConfigUrl != NULL)
 365       GlobalFree(ie_proxy_config.lpszAutoConfigUrl);
 366     if (ie_proxy_config.lpszProxy != NULL)
 367       GlobalFree(ie_proxy_config.lpszProxy);
 368     if (ie_proxy_config.lpszProxyBypass != NULL)
 369       GlobalFree(ie_proxy_config.lpszProxyBypass);
 370     if (lpHost != NULL)
 371       (*env)->ReleaseStringChars(env, host, lpHost);
 372     if (lpProto != NULL)
 373       (*env)->ReleaseStringChars(env, proto, lpProto);
 374 
 375     return proxy_array;
 376 }