A local copy of OpenSSL from GitHub
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

450 lines
15 KiB

  1. /* ====================================================================
  2. * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved.
  3. *
  4. * Redistribution and use in source and binary forms, with or without
  5. * modification, are permitted provided that the following conditions
  6. * are met:
  7. *
  8. * 1. Redistributions of source code must retain the above copyright
  9. * notice, this list of conditions and the following disclaimer.
  10. *
  11. * 2. Redistributions in binary form must reproduce the above copyright
  12. * notice, this list of conditions and the following disclaimer in
  13. * the documentation and/or other materials provided with the
  14. * distribution.
  15. *
  16. * 3. All advertising materials mentioning features or use of this
  17. * software must display the following acknowledgment:
  18. * "This product includes software developed by the OpenSSL Project
  19. * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
  20. *
  21. * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  22. * endorse or promote products derived from this software without
  23. * prior written permission. For written permission, please contact
  24. * openssl-core@openssl.org.
  25. *
  26. * 5. Products derived from this software may not be called "OpenSSL"
  27. * nor may "OpenSSL" appear in their names without prior written
  28. * permission of the OpenSSL Project.
  29. *
  30. * 6. Redistributions of any form whatsoever must retain the following
  31. * acknowledgment:
  32. * "This product includes software developed by the OpenSSL Project
  33. * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
  34. *
  35. * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  36. * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  37. * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  38. * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
  39. * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  40. * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  41. * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  42. * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  43. * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  44. * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  45. * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  46. * OF THE POSSIBILITY OF SUCH DAMAGE.
  47. * ====================================================================
  48. *
  49. * This product includes cryptographic software written by Eric Young
  50. * (eay@cryptsoft.com). This product includes software written by Tim
  51. * Hudson (tjh@cryptsoft.com).
  52. *
  53. */
  54. /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
  55. * All rights reserved.
  56. *
  57. * This package is an SSL implementation written
  58. * by Eric Young (eay@cryptsoft.com).
  59. * The implementation was written so as to conform with Netscapes SSL.
  60. *
  61. * This library is free for commercial and non-commercial use as long as
  62. * the following conditions are aheared to. The following conditions
  63. * apply to all code found in this distribution, be it the RC4, RSA,
  64. * lhash, DES, etc., code; not just the SSL code. The SSL documentation
  65. * included with this distribution is covered by the same copyright terms
  66. * except that the holder is Tim Hudson (tjh@cryptsoft.com).
  67. *
  68. * Copyright remains Eric Young's, and as such any Copyright notices in
  69. * the code are not to be removed.
  70. * If this package is used in a product, Eric Young should be given attribution
  71. * as the author of the parts of the library used.
  72. * This can be in the form of a textual message at program startup or
  73. * in documentation (online or textual) provided with the package.
  74. *
  75. * Redistribution and use in source and binary forms, with or without
  76. * modification, are permitted provided that the following conditions
  77. * are met:
  78. * 1. Redistributions of source code must retain the copyright
  79. * notice, this list of conditions and the following disclaimer.
  80. * 2. Redistributions in binary form must reproduce the above copyright
  81. * notice, this list of conditions and the following disclaimer in the
  82. * documentation and/or other materials provided with the distribution.
  83. * 3. All advertising materials mentioning features or use of this software
  84. * must display the following acknowledgement:
  85. * "This product includes cryptographic software written by
  86. * Eric Young (eay@cryptsoft.com)"
  87. * The word 'cryptographic' can be left out if the rouines from the library
  88. * being used are not cryptographic related :-).
  89. * 4. If you include any Windows specific code (or a derivative thereof) from
  90. * the apps directory (application code) you must include an acknowledgement:
  91. * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
  92. *
  93. * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  94. * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  95. * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  96. * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  97. * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  98. * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  99. * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  100. * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  101. * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  102. * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  103. * SUCH DAMAGE.
  104. *
  105. * The licence and distribution terms for any publically available version or
  106. * derivative of this code cannot be changed. i.e. this code cannot simply be
  107. * copied and put under another distribution licence
  108. * [including the GNU Public Licence.]
  109. */
  110. /* ====================================================================
  111. * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
  112. * ECDH support in OpenSSL originally developed by
  113. * SUN MICROSYSTEMS, INC., and contributed to the OpenSSL project.
  114. */
  115. #include "internal/cryptlib_int.h"
  116. #include <openssl/safestack.h>
  117. #if defined(__i386) || defined(__i386__) || defined(_M_IX86) || \
  118. defined(__INTEL__) || \
  119. defined(__x86_64) || defined(__x86_64__) || \
  120. defined(_M_AMD64) || defined(_M_X64)
  121. extern unsigned int OPENSSL_ia32cap_P[4];
  122. unsigned int *OPENSSL_ia32cap_loc(void)
  123. {
  124. return OPENSSL_ia32cap_P;
  125. }
  126. # if defined(OPENSSL_CPUID_OBJ) && !defined(OPENSSL_NO_ASM) && !defined(I386_ONLY)
  127. #include <stdio.h>
  128. # define OPENSSL_CPUID_SETUP
  129. typedef uint64_t IA32CAP;
  130. void OPENSSL_cpuid_setup(void)
  131. {
  132. static int trigger = 0;
  133. IA32CAP OPENSSL_ia32_cpuid(unsigned int *);
  134. IA32CAP vec;
  135. char *env;
  136. if (trigger)
  137. return;
  138. trigger = 1;
  139. if ((env = getenv("OPENSSL_ia32cap"))) {
  140. int off = (env[0] == '~') ? 1 : 0;
  141. # if defined(_WIN32)
  142. if (!sscanf(env + off, "%I64i", &vec))
  143. vec = strtoul(env + off, NULL, 0);
  144. # else
  145. if (!sscanf(env + off, "%lli", (long long *)&vec))
  146. vec = strtoul(env + off, NULL, 0);
  147. # endif
  148. if (off)
  149. vec = OPENSSL_ia32_cpuid(OPENSSL_ia32cap_P) & ~vec;
  150. else if (env[0] == ':')
  151. vec = OPENSSL_ia32_cpuid(OPENSSL_ia32cap_P);
  152. OPENSSL_ia32cap_P[2] = 0;
  153. if ((env = strchr(env, ':'))) {
  154. unsigned int vecx;
  155. env++;
  156. off = (env[0] == '~') ? 1 : 0;
  157. vecx = strtoul(env + off, NULL, 0);
  158. if (off)
  159. OPENSSL_ia32cap_P[2] &= ~vecx;
  160. else
  161. OPENSSL_ia32cap_P[2] = vecx;
  162. }
  163. } else
  164. vec = OPENSSL_ia32_cpuid(OPENSSL_ia32cap_P);
  165. /*
  166. * |(1<<10) sets a reserved bit to signal that variable
  167. * was initialized already... This is to avoid interference
  168. * with cpuid snippets in ELF .init segment.
  169. */
  170. OPENSSL_ia32cap_P[0] = (unsigned int)vec | (1 << 10);
  171. OPENSSL_ia32cap_P[1] = (unsigned int)(vec >> 32);
  172. }
  173. # else
  174. unsigned int OPENSSL_ia32cap_P[4];
  175. # endif
  176. #else
  177. unsigned int *OPENSSL_ia32cap_loc(void)
  178. {
  179. return NULL;
  180. }
  181. #endif
  182. int OPENSSL_NONPIC_relocated = 0;
  183. #if !defined(OPENSSL_CPUID_SETUP) && !defined(OPENSSL_CPUID_OBJ)
  184. void OPENSSL_cpuid_setup(void)
  185. {
  186. }
  187. #endif
  188. #if defined(_WIN32) && !defined(__CYGWIN__)
  189. # include <tchar.h>
  190. # include <signal.h>
  191. # ifdef __WATCOMC__
  192. # if defined(_UNICODE) || defined(__UNICODE__)
  193. # define _vsntprintf _vsnwprintf
  194. # else
  195. # define _vsntprintf _vsnprintf
  196. # endif
  197. # endif
  198. # ifdef _MSC_VER
  199. # define alloca _alloca
  200. # endif
  201. # if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333
  202. int OPENSSL_isservice(void)
  203. {
  204. HWINSTA h;
  205. DWORD len;
  206. WCHAR *name;
  207. static union {
  208. void *p;
  209. FARPROC f;
  210. } _OPENSSL_isservice = {
  211. NULL
  212. };
  213. if (_OPENSSL_isservice.p == NULL) {
  214. HANDLE mod = GetModuleHandle(NULL);
  215. if (mod != NULL)
  216. _OPENSSL_isservice.f = GetProcAddress(mod, "_OPENSSL_isservice");
  217. if (_OPENSSL_isservice.p == NULL)
  218. _OPENSSL_isservice.p = (void *)-1;
  219. }
  220. if (_OPENSSL_isservice.p != (void *)-1)
  221. return (*_OPENSSL_isservice.f) ();
  222. h = GetProcessWindowStation();
  223. if (h == NULL)
  224. return -1;
  225. if (GetUserObjectInformationW(h, UOI_NAME, NULL, 0, &len) ||
  226. GetLastError() != ERROR_INSUFFICIENT_BUFFER)
  227. return -1;
  228. if (len > 512)
  229. return -1; /* paranoia */
  230. len++, len &= ~1; /* paranoia */
  231. name = (WCHAR *)alloca(len + sizeof(WCHAR));
  232. if (!GetUserObjectInformationW(h, UOI_NAME, name, len, &len))
  233. return -1;
  234. len++, len &= ~1; /* paranoia */
  235. name[len / sizeof(WCHAR)] = L'\0'; /* paranoia */
  236. # if 1
  237. /*
  238. * This doesn't cover "interactive" services [working with real
  239. * WinSta0's] nor programs started non-interactively by Task Scheduler
  240. * [those are working with SAWinSta].
  241. */
  242. if (wcsstr(name, L"Service-0x"))
  243. return 1;
  244. # else
  245. /* This covers all non-interactive programs such as services. */
  246. if (!wcsstr(name, L"WinSta0"))
  247. return 1;
  248. # endif
  249. else
  250. return 0;
  251. }
  252. # else
  253. int OPENSSL_isservice(void)
  254. {
  255. return 0;
  256. }
  257. # endif
  258. void OPENSSL_showfatal(const char *fmta, ...)
  259. {
  260. va_list ap;
  261. TCHAR buf[256];
  262. const TCHAR *fmt;
  263. # ifdef STD_ERROR_HANDLE /* what a dirty trick! */
  264. HANDLE h;
  265. if ((h = GetStdHandle(STD_ERROR_HANDLE)) != NULL &&
  266. GetFileType(h) != FILE_TYPE_UNKNOWN) {
  267. /* must be console application */
  268. int len;
  269. DWORD out;
  270. va_start(ap, fmta);
  271. len = _vsnprintf((char *)buf, sizeof(buf), fmta, ap);
  272. WriteFile(h, buf, len < 0 ? sizeof(buf) : (DWORD) len, &out, NULL);
  273. va_end(ap);
  274. return;
  275. }
  276. # endif
  277. if (sizeof(TCHAR) == sizeof(char))
  278. fmt = (const TCHAR *)fmta;
  279. else
  280. do {
  281. int keepgoing;
  282. size_t len_0 = strlen(fmta) + 1, i;
  283. WCHAR *fmtw;
  284. fmtw = (WCHAR *)alloca(len_0 * sizeof(WCHAR));
  285. if (fmtw == NULL) {
  286. fmt = (const TCHAR *)L"no stack?";
  287. break;
  288. }
  289. if (!MultiByteToWideChar(CP_ACP, 0, fmta, len_0, fmtw, len_0))
  290. for (i = 0; i < len_0; i++)
  291. fmtw[i] = (WCHAR)fmta[i];
  292. for (i = 0; i < len_0; i++) {
  293. if (fmtw[i] == L'%')
  294. do {
  295. keepgoing = 0;
  296. switch (fmtw[i + 1]) {
  297. case L'0':
  298. case L'1':
  299. case L'2':
  300. case L'3':
  301. case L'4':
  302. case L'5':
  303. case L'6':
  304. case L'7':
  305. case L'8':
  306. case L'9':
  307. case L'.':
  308. case L'*':
  309. case L'-':
  310. i++;
  311. keepgoing = 1;
  312. break;
  313. case L's':
  314. fmtw[i + 1] = L'S';
  315. break;
  316. case L'S':
  317. fmtw[i + 1] = L's';
  318. break;
  319. case L'c':
  320. fmtw[i + 1] = L'C';
  321. break;
  322. case L'C':
  323. fmtw[i + 1] = L'c';
  324. break;
  325. }
  326. } while (keepgoing);
  327. }
  328. fmt = (const TCHAR *)fmtw;
  329. } while (0);
  330. va_start(ap, fmta);
  331. _vsntprintf(buf, OSSL_NELEM(buf) - 1, fmt, ap);
  332. buf[OSSL_NELEM(buf) - 1] = _T('\0');
  333. va_end(ap);
  334. # if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333
  335. /* this -------------v--- guards NT-specific calls */
  336. if (check_winnt() && OPENSSL_isservice() > 0) {
  337. HANDLE hEventLog = RegisterEventSource(NULL, _T("OpenSSL"));
  338. if (hEventLog != NULL) {
  339. const TCHAR *pmsg = buf;
  340. if (!ReportEvent(hEventLog, EVENTLOG_ERROR_TYPE, 0, 0, NULL,
  341. 1, 0, &pmsg, NULL)) {
  342. #if defined(DEBUG)
  343. /*
  344. * We are in a situation where we tried to report a critical
  345. * error and this failed for some reason. As a last resort,
  346. * in debug builds, send output to the debugger or any other
  347. * tool like DebugView which can monitor the output.
  348. */
  349. OutputDebugString(pmsg);
  350. #endif
  351. }
  352. (void)DeregisterEventSource(hEventLog);
  353. }
  354. } else
  355. # endif
  356. MessageBox(NULL, buf, _T("OpenSSL: FATAL"), MB_OK | MB_ICONERROR);
  357. }
  358. #else
  359. void OPENSSL_showfatal(const char *fmta, ...)
  360. {
  361. #ifndef OPENSSL_NO_STDIO
  362. va_list ap;
  363. va_start(ap, fmta);
  364. vfprintf(stderr, fmta, ap);
  365. va_end(ap);
  366. #endif
  367. }
  368. int OPENSSL_isservice(void)
  369. {
  370. return 0;
  371. }
  372. #endif
  373. void OPENSSL_die(const char *message, const char *file, int line)
  374. {
  375. OPENSSL_showfatal("%s:%d: OpenSSL internal error: %s\n",
  376. file, line, message);
  377. #if !defined(_WIN32) || defined(__CYGWIN__)
  378. abort();
  379. #else
  380. /*
  381. * Win32 abort() customarily shows a dialog, but we just did that...
  382. */
  383. # if !defined(_WIN32_WCE)
  384. raise(SIGABRT);
  385. # endif
  386. _exit(3);
  387. #endif
  388. }
  389. /* volatile unsigned char* pointers are there because
  390. * 1. Accessing a variable declared volatile via a pointer
  391. * that lacks a volatile qualifier causes undefined behavior.
  392. * 2. When the variable itself is not volatile the compiler is
  393. * not required to keep all those reads and can convert
  394. * this into canonical memcmp() which doesn't read the whole block.
  395. * Pointers to volatile resolve the first problem fully. The second
  396. * problem cannot be resolved in any Standard-compliant way but this
  397. * works the problem around. Compilers typically react to
  398. * pointers to volatile by preserving the reads and writes through them.
  399. * The latter is not required by the Standard if the memory pointed to
  400. * is not volatile.
  401. * Pointers themselves are volatile in the function signature to work
  402. * around a subtle bug in gcc 4.6+ which causes writes through
  403. * pointers to volatile to not be emitted in some rare,
  404. * never needed in real life, pieces of code.
  405. */
  406. int CRYPTO_memcmp(const volatile void * volatile in_a,
  407. const volatile void * volatile in_b,
  408. size_t len)
  409. {
  410. size_t i;
  411. const volatile unsigned char *a = in_a;
  412. const volatile unsigned char *b = in_b;
  413. unsigned char x = 0;
  414. for (i = 0; i < len; i++)
  415. x |= a[i] ^ b[i];
  416. return x;
  417. }