cryptlib.c 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394
  1. /* crypto/cryptlib.c */
  2. /* ====================================================================
  3. * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved.
  4. *
  5. * Redistribution and use in source and binary forms, with or without
  6. * modification, are permitted provided that the following conditions
  7. * are met:
  8. *
  9. * 1. Redistributions of source code must retain the above copyright
  10. * notice, this list of conditions and the following disclaimer.
  11. *
  12. * 2. Redistributions in binary form must reproduce the above copyright
  13. * notice, this list of conditions and the following disclaimer in
  14. * the documentation and/or other materials provided with the
  15. * distribution.
  16. *
  17. * 3. All advertising materials mentioning features or use of this
  18. * software must display the following acknowledgment:
  19. * "This product includes software developed by the OpenSSL Project
  20. * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
  21. *
  22. * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  23. * endorse or promote products derived from this software without
  24. * prior written permission. For written permission, please contact
  25. * openssl-core@openssl.org.
  26. *
  27. * 5. Products derived from this software may not be called "OpenSSL"
  28. * nor may "OpenSSL" appear in their names without prior written
  29. * permission of the OpenSSL Project.
  30. *
  31. * 6. Redistributions of any form whatsoever must retain the following
  32. * acknowledgment:
  33. * "This product includes software developed by the OpenSSL Project
  34. * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
  35. *
  36. * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  37. * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  38. * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  39. * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
  40. * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  41. * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  42. * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  43. * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  44. * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  45. * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  46. * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  47. * OF THE POSSIBILITY OF SUCH DAMAGE.
  48. * ====================================================================
  49. *
  50. * This product includes cryptographic software written by Eric Young
  51. * (eay@cryptsoft.com). This product includes software written by Tim
  52. * Hudson (tjh@cryptsoft.com).
  53. *
  54. */
  55. /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
  56. * All rights reserved.
  57. *
  58. * This package is an SSL implementation written
  59. * by Eric Young (eay@cryptsoft.com).
  60. * The implementation was written so as to conform with Netscapes SSL.
  61. *
  62. * This library is free for commercial and non-commercial use as long as
  63. * the following conditions are aheared to. The following conditions
  64. * apply to all code found in this distribution, be it the RC4, RSA,
  65. * lhash, DES, etc., code; not just the SSL code. The SSL documentation
  66. * included with this distribution is covered by the same copyright terms
  67. * except that the holder is Tim Hudson (tjh@cryptsoft.com).
  68. *
  69. * Copyright remains Eric Young's, and as such any Copyright notices in
  70. * the code are not to be removed.
  71. * If this package is used in a product, Eric Young should be given attribution
  72. * as the author of the parts of the library used.
  73. * This can be in the form of a textual message at program startup or
  74. * in documentation (online or textual) provided with the package.
  75. *
  76. * Redistribution and use in source and binary forms, with or without
  77. * modification, are permitted provided that the following conditions
  78. * are met:
  79. * 1. Redistributions of source code must retain the copyright
  80. * notice, this list of conditions and the following disclaimer.
  81. * 2. Redistributions in binary form must reproduce the above copyright
  82. * notice, this list of conditions and the following disclaimer in the
  83. * documentation and/or other materials provided with the distribution.
  84. * 3. All advertising materials mentioning features or use of this software
  85. * must display the following acknowledgement:
  86. * "This product includes cryptographic software written by
  87. * Eric Young (eay@cryptsoft.com)"
  88. * The word 'cryptographic' can be left out if the rouines from the library
  89. * being used are not cryptographic related :-).
  90. * 4. If you include any Windows specific code (or a derivative thereof) from
  91. * the apps directory (application code) you must include an acknowledgement:
  92. * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
  93. *
  94. * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  95. * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  96. * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  97. * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  98. * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  99. * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  100. * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  101. * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  102. * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  103. * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  104. * SUCH DAMAGE.
  105. *
  106. * The licence and distribution terms for any publically available version or
  107. * derivative of this code cannot be changed. i.e. this code cannot simply be
  108. * copied and put under another distribution licence
  109. * [including the GNU Public Licence.]
  110. */
  111. /* ====================================================================
  112. * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
  113. * ECDH support in OpenSSL originally developed by
  114. * SUN MICROSYSTEMS, INC., and contributed to the OpenSSL project.
  115. */
  116. #include "cryptlib.h"
  117. #include <openssl/safestack.h>
  118. #if defined(OPENSSL_SYS_WIN32) || defined(OPENSSL_SYS_WIN16)
  119. static double SSLeay_MSVC5_hack=0.0; /* and for VC1.5 */
  120. #endif
  121. #if defined(__i386) || defined(__i386__) || defined(_M_IX86) || \
  122. defined(__INTEL__) || \
  123. defined(__x86_64) || defined(__x86_64__) || defined(_M_AMD64) || defined(_M_X64)
  124. unsigned int OPENSSL_ia32cap_P[2];
  125. unsigned int *OPENSSL_ia32cap_loc(void) { return OPENSSL_ia32cap_P; }
  126. #if defined(OPENSSL_CPUID_OBJ) && !defined(OPENSSL_NO_ASM) && !defined(I386_ONLY)
  127. #define OPENSSL_CPUID_SETUP
  128. #if defined(_WIN32)
  129. typedef unsigned __int64 IA32CAP;
  130. #else
  131. typedef unsigned long long IA32CAP;
  132. #endif
  133. void OPENSSL_cpuid_setup(void)
  134. { static int trigger=0;
  135. IA32CAP OPENSSL_ia32_cpuid(void);
  136. IA32CAP vec;
  137. char *env;
  138. if (trigger) return;
  139. trigger=1;
  140. if ((env=getenv("OPENSSL_ia32cap"))) {
  141. int off = (env[0]=='~')?1:0;
  142. #if defined(_WIN32)
  143. if (!sscanf(env+off,"%I64i",&vec)) vec = strtoul(env+off,NULL,0);
  144. #else
  145. vec = strtoull(env+off,NULL,0);
  146. #endif
  147. if (off) vec = OPENSSL_ia32_cpuid()&~vec;
  148. }
  149. else
  150. vec = OPENSSL_ia32_cpuid();
  151. /*
  152. * |(1<<10) sets a reserved bit to signal that variable
  153. * was initialized already... This is to avoid interference
  154. * with cpuid snippets in ELF .init segment.
  155. */
  156. OPENSSL_ia32cap_P[0] = (unsigned int)vec|(1<<10);
  157. OPENSSL_ia32cap_P[1] = (unsigned int)(vec>>32);
  158. }
  159. #endif
  160. #else
  161. unsigned int *OPENSSL_ia32cap_loc(void) { return NULL; }
  162. #endif
  163. int OPENSSL_NONPIC_relocated = 0;
  164. #if !defined(OPENSSL_CPUID_SETUP) && !defined(OPENSSL_CPUID_OBJ)
  165. void OPENSSL_cpuid_setup(void) {}
  166. #endif
  167. #if (defined(_WIN32) || defined(__CYGWIN__)) && defined(_WINDLL)
  168. #ifdef __CYGWIN__
  169. /* pick DLL_[PROCESS|THREAD]_[ATTACH|DETACH] definitions */
  170. #include <windows.h>
  171. /* this has side-effect of _WIN32 getting defined, which otherwise
  172. * is mutually exclusive with __CYGWIN__... */
  173. #endif
  174. /* All we really need to do is remove the 'error' state when a thread
  175. * detaches */
  176. BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason,
  177. LPVOID lpvReserved)
  178. {
  179. switch(fdwReason)
  180. {
  181. case DLL_PROCESS_ATTACH:
  182. OPENSSL_cpuid_setup();
  183. #if defined(_WIN32_WINNT)
  184. {
  185. IMAGE_DOS_HEADER *dos_header = (IMAGE_DOS_HEADER *)hinstDLL;
  186. IMAGE_NT_HEADERS *nt_headers;
  187. if (dos_header->e_magic==IMAGE_DOS_SIGNATURE)
  188. {
  189. nt_headers = (IMAGE_NT_HEADERS *)((char *)dos_header
  190. + dos_header->e_lfanew);
  191. if (nt_headers->Signature==IMAGE_NT_SIGNATURE &&
  192. hinstDLL!=(HINSTANCE)(nt_headers->OptionalHeader.ImageBase))
  193. OPENSSL_NONPIC_relocated=1;
  194. }
  195. }
  196. #endif
  197. break;
  198. case DLL_THREAD_ATTACH:
  199. break;
  200. case DLL_THREAD_DETACH:
  201. break;
  202. case DLL_PROCESS_DETACH:
  203. break;
  204. }
  205. return(TRUE);
  206. }
  207. #endif
  208. #if defined(_WIN32) && !defined(__CYGWIN__)
  209. #include <tchar.h>
  210. #include <signal.h>
  211. #ifdef __WATCOMC__
  212. #if defined(_UNICODE) || defined(__UNICODE__)
  213. #define _vsntprintf _vsnwprintf
  214. #else
  215. #define _vsntprintf _vsnprintf
  216. #endif
  217. #endif
  218. #ifdef _MSC_VER
  219. #define alloca _alloca
  220. #endif
  221. #if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333
  222. int OPENSSL_isservice(void)
  223. { HWINSTA h;
  224. DWORD len;
  225. WCHAR *name;
  226. static union { void *p; int (*f)(void); } _OPENSSL_isservice = { NULL };
  227. if (_OPENSSL_isservice.p == NULL) {
  228. HANDLE h = GetModuleHandle(NULL);
  229. if (h != NULL)
  230. _OPENSSL_isservice.p = GetProcAddress(h,"_OPENSSL_isservice");
  231. if (_OPENSSL_isservice.p == NULL)
  232. _OPENSSL_isservice.p = (void *)-1;
  233. }
  234. if (_OPENSSL_isservice.p != (void *)-1)
  235. return (*_OPENSSL_isservice.f)();
  236. (void)GetDesktopWindow(); /* return value is ignored */
  237. h = GetProcessWindowStation();
  238. if (h==NULL) return -1;
  239. if (GetUserObjectInformationW (h,UOI_NAME,NULL,0,&len) ||
  240. GetLastError() != ERROR_INSUFFICIENT_BUFFER)
  241. return -1;
  242. if (len>512) return -1; /* paranoia */
  243. len++,len&=~1; /* paranoia */
  244. name=(WCHAR *)alloca(len+sizeof(WCHAR));
  245. if (!GetUserObjectInformationW (h,UOI_NAME,name,len,&len))
  246. return -1;
  247. len++,len&=~1; /* paranoia */
  248. name[len/sizeof(WCHAR)]=L'\0'; /* paranoia */
  249. #if 1
  250. /* This doesn't cover "interactive" services [working with real
  251. * WinSta0's] nor programs started non-interactively by Task
  252. * Scheduler [those are working with SAWinSta]. */
  253. if (wcsstr(name,L"Service-0x")) return 1;
  254. #else
  255. /* This covers all non-interactive programs such as services. */
  256. if (!wcsstr(name,L"WinSta0")) return 1;
  257. #endif
  258. else return 0;
  259. }
  260. #else
  261. int OPENSSL_isservice(void) { return 0; }
  262. #endif
  263. void OPENSSL_showfatal (const char *fmta,...)
  264. { va_list ap;
  265. TCHAR buf[256];
  266. const TCHAR *fmt;
  267. #ifdef STD_ERROR_HANDLE /* what a dirty trick! */
  268. HANDLE h;
  269. if ((h=GetStdHandle(STD_ERROR_HANDLE)) != NULL &&
  270. GetFileType(h)!=FILE_TYPE_UNKNOWN)
  271. { /* must be console application */
  272. int len;
  273. DWORD out;
  274. va_start (ap,fmta);
  275. len=_vsnprintf((char *)buf,sizeof(buf),fmt,ap);
  276. WriteFile(h,buf,len<0?sizeof(buf):(DWORD)len,&out,NULL);
  277. va_end (ap);
  278. return;
  279. }
  280. #endif
  281. if (sizeof(TCHAR)==sizeof(char))
  282. fmt=(const TCHAR *)fmta;
  283. else do
  284. { int keepgoing;
  285. size_t len_0=strlen(fmta)+1,i;
  286. WCHAR *fmtw;
  287. fmtw = (WCHAR *)alloca(len_0*sizeof(WCHAR));
  288. if (fmtw == NULL) { fmt=(const TCHAR *)L"no stack?"; break; }
  289. #ifndef OPENSSL_NO_MULTIBYTE
  290. if (!MultiByteToWideChar(CP_ACP,0,fmta,len_0,fmtw,len_0))
  291. #endif
  292. for (i=0;i<len_0;i++) fmtw[i]=(WCHAR)fmta[i];
  293. for (i=0;i<len_0;i++)
  294. { if (fmtw[i]==L'%') do
  295. { keepgoing=0;
  296. switch (fmtw[i+1])
  297. { case L'0': case L'1': case L'2': case L'3': case L'4':
  298. case L'5': case L'6': case L'7': case L'8': case L'9':
  299. case L'.': case L'*':
  300. case L'-': i++; keepgoing=1; break;
  301. case L's': fmtw[i+1]=L'S'; break;
  302. case L'S': fmtw[i+1]=L's'; break;
  303. case L'c': fmtw[i+1]=L'C'; break;
  304. case L'C': fmtw[i+1]=L'c'; break;
  305. }
  306. } while (keepgoing);
  307. }
  308. fmt = (const TCHAR *)fmtw;
  309. } while (0);
  310. va_start (ap,fmta);
  311. _vsntprintf (buf,sizeof(buf)/sizeof(TCHAR)-1,fmt,ap);
  312. buf [sizeof(buf)/sizeof(TCHAR)-1] = _T('\0');
  313. va_end (ap);
  314. #if defined(_WIN32_WINNT) && _WIN32_WINNT>=0x0333
  315. /* this -------------v--- guards NT-specific calls */
  316. if (GetVersion() < 0x80000000 && OPENSSL_isservice() > 0)
  317. { HANDLE h = RegisterEventSource(0,_T("OPENSSL"));
  318. const TCHAR *pmsg=buf;
  319. ReportEvent(h,EVENTLOG_ERROR_TYPE,0,0,0,1,0,&pmsg,0);
  320. DeregisterEventSource(h);
  321. }
  322. else
  323. #endif
  324. MessageBox (NULL,buf,_T("OpenSSL: FATAL"),MB_OK|MB_ICONSTOP);
  325. }
  326. #else
  327. void OPENSSL_showfatal (const char *fmta,...)
  328. { va_list ap;
  329. va_start (ap,fmta);
  330. #if defined(OPENSSL_SYS_VXWORKS)
  331. {
  332. char buf[256];
  333. vsnprintf(buf,sizeof(buf),fmta,ap);
  334. printf("%s",buf);
  335. }
  336. #else
  337. vfprintf (stderr,fmta,ap);
  338. #endif
  339. va_end (ap);
  340. }
  341. int OPENSSL_isservice (void) { return 0; }
  342. #endif
  343. void OpenSSLDie(const char *file,int line,const char *assertion)
  344. {
  345. OPENSSL_showfatal(
  346. "%s(%d): OpenSSL internal error, assertion failed: %s\n",
  347. file,line,assertion);
  348. #if !defined(_WIN32) || defined(__CYGWIN__)
  349. abort();
  350. #else
  351. /* Win32 abort() customarily shows a dialog, but we just did that... */
  352. #ifdef SIGABRT
  353. raise(SIGABRT);
  354. #endif
  355. _exit(3);
  356. #endif
  357. }
  358. #ifndef OPENSSL_FIPSCANISTER
  359. void *OPENSSL_stderr(void) { return stderr; }
  360. #endif