rand_os2.c 5.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  1. /* crypto/rand/rand_os2.c */
  2. /* ====================================================================
  3. * Copyright (c) 1998-2000 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. #include "cryptlib.h"
  56. #include <openssl/rand.h>
  57. #include "rand_lcl.h"
  58. #ifdef OPENSSL_SYS_OS2
  59. #define INCL_DOSPROCESS
  60. #define INCL_DOSPROFILE
  61. #define INCL_DOSMISC
  62. #define INCL_DOSMODULEMGR
  63. #include <os2.h>
  64. #define CMD_KI_RDCNT (0x63)
  65. typedef struct _CPUUTIL {
  66. ULONG ulTimeLow; /* Low 32 bits of time stamp */
  67. ULONG ulTimeHigh; /* High 32 bits of time stamp */
  68. ULONG ulIdleLow; /* Low 32 bits of idle time */
  69. ULONG ulIdleHigh; /* High 32 bits of idle time */
  70. ULONG ulBusyLow; /* Low 32 bits of busy time */
  71. ULONG ulBusyHigh; /* High 32 bits of busy time */
  72. ULONG ulIntrLow; /* Low 32 bits of interrupt time */
  73. ULONG ulIntrHigh; /* High 32 bits of interrupt time */
  74. } CPUUTIL;
  75. #ifndef __KLIBC__
  76. APIRET APIENTRY(*DosPerfSysCall) (ULONG ulCommand, ULONG ulParm1, ULONG ulParm2, ULONG ulParm3) = NULL;
  77. APIRET APIENTRY(*DosQuerySysState) (ULONG func, ULONG arg1, ULONG pid, ULONG _res_, PVOID buf, ULONG bufsz) = NULL;
  78. #endif
  79. HMODULE hDoscalls = 0;
  80. int RAND_poll(void)
  81. {
  82. char failed_module[20];
  83. QWORD qwTime;
  84. ULONG SysVars[QSV_FOREGROUND_PROCESS];
  85. if (hDoscalls == 0) {
  86. ULONG rc = DosLoadModule(failed_module, sizeof(failed_module), "DOSCALLS", &hDoscalls);
  87. #ifndef __KLIBC__
  88. if (rc == 0) {
  89. rc = DosQueryProcAddr(hDoscalls, 976, NULL, (PFN *)&DosPerfSysCall);
  90. if (rc)
  91. DosPerfSysCall = NULL;
  92. rc = DosQueryProcAddr(hDoscalls, 368, NULL, (PFN *)&DosQuerySysState);
  93. if (rc)
  94. DosQuerySysState = NULL;
  95. }
  96. #endif
  97. }
  98. /* Sample the hi-res timer, runs at around 1.1 MHz */
  99. DosTmrQueryTime(&qwTime);
  100. RAND_add(&qwTime, sizeof(qwTime), 2);
  101. /* Sample a bunch of system variables, includes various process & memory statistics */
  102. DosQuerySysInfo(1, QSV_FOREGROUND_PROCESS, SysVars, sizeof(SysVars));
  103. RAND_add(SysVars, sizeof(SysVars), 4);
  104. /* If available, sample CPU registers that count at CPU MHz
  105. * Only fairly new CPUs (PPro & K6 onwards) & OS/2 versions support this
  106. */
  107. if (DosPerfSysCall) {
  108. CPUUTIL util;
  109. if (DosPerfSysCall(CMD_KI_RDCNT, (ULONG)&util, 0, 0) == 0) {
  110. RAND_add(&util, sizeof(util), 10);
  111. }
  112. else {
  113. #ifndef __KLIBC__
  114. DosPerfSysCall = NULL;
  115. #endif
  116. }
  117. }
  118. /* DosQuerySysState() gives us a huge quantity of process, thread, memory & handle stats */
  119. if (DosQuerySysState) {
  120. char *buffer = OPENSSL_malloc(256 * 1024);
  121. if (DosQuerySysState(0x1F, 0, 0, 0, buffer, 256 * 1024) == 0) {
  122. /* First 4 bytes in buffer is a pointer to the thread count
  123. * there should be at least 1 byte of entropy per thread
  124. */
  125. RAND_add(buffer, 256 * 1024, **(ULONG **)buffer);
  126. }
  127. OPENSSL_free(buffer);
  128. return 1;
  129. }
  130. return 0;
  131. }
  132. #endif /* OPENSSL_SYS_OS2 */