• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 /*
2  * Copyright 2019-2023 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the Apache License 2.0 (the "License").  You may not use
5  * this file except in compliance with the License.  You can obtain a copy
6  * in the file LICENSE in the source distribution or at
7  * https://www.openssl.org/source/license.html
8  */
9 
10 #include <openssl/crypto.h>
11 #include "crypto/rand.h"
12 #include "crypto/dso_conf.h"
13 #include "internal/thread_once.h"
14 #include "internal/cryptlib.h"
15 #include "e_os.h"
16 #include "buildinf.h"
17 
18 #if defined(__arm__) || defined(__arm) || defined(__aarch64__)
19 # include "arm_arch.h"
20 # define CPU_INFO_STR_LEN 128
21 #elif defined(__s390__) || defined(__s390x__)
22 # include "s390x_arch.h"
23 # define CPU_INFO_STR_LEN 2048
24 #else
25 # define CPU_INFO_STR_LEN 128
26 #endif
27 
28 /* extern declaration to avoid warning */
29 extern char ossl_cpu_info_str[];
30 
31 static char *seed_sources = NULL;
32 
33 char ossl_cpu_info_str[CPU_INFO_STR_LEN] = "";
34 #define CPUINFO_PREFIX "CPUINFO: "
35 
36 static CRYPTO_ONCE init_info = CRYPTO_ONCE_STATIC_INIT;
37 
DEFINE_RUN_ONCE_STATIC(init_info_strings)38 DEFINE_RUN_ONCE_STATIC(init_info_strings)
39 {
40 #if defined(OPENSSL_CPUID_OBJ)
41 # if defined(__i386)   || defined(__i386__)   || defined(_M_IX86) || \
42      defined(__x86_64) || defined(__x86_64__) || \
43      defined(_M_AMD64) || defined(_M_X64)
44     const char *env;
45 
46     BIO_snprintf(ossl_cpu_info_str, sizeof(ossl_cpu_info_str),
47                  CPUINFO_PREFIX "OPENSSL_ia32cap=0x%llx:0x%llx",
48                  (unsigned long long)OPENSSL_ia32cap_P[0] |
49                  (unsigned long long)OPENSSL_ia32cap_P[1] << 32,
50                  (unsigned long long)OPENSSL_ia32cap_P[2] |
51                  (unsigned long long)OPENSSL_ia32cap_P[3] << 32);
52     if ((env = getenv("OPENSSL_ia32cap")) != NULL)
53         BIO_snprintf(ossl_cpu_info_str + strlen(ossl_cpu_info_str),
54                      sizeof(ossl_cpu_info_str) - strlen(ossl_cpu_info_str),
55                      " env:%s", env);
56 # elif defined(__arm__) || defined(__arm) || defined(__aarch64__)
57     const char *env;
58 
59     BIO_snprintf(ossl_cpu_info_str, sizeof(ossl_cpu_info_str),
60                  CPUINFO_PREFIX "OPENSSL_armcap=0x%x", OPENSSL_armcap_P);
61     if ((env = getenv("OPENSSL_armcap")) != NULL)
62         BIO_snprintf(ossl_cpu_info_str + strlen(ossl_cpu_info_str),
63                      sizeof(ossl_cpu_info_str) - strlen(ossl_cpu_info_str),
64                      " env:%s", env);
65 # elif defined(__s390__) || defined(__s390x__)
66     const char *env;
67 
68     BIO_snprintf(ossl_cpu_info_str, sizeof(ossl_cpu_info_str),
69                  CPUINFO_PREFIX "OPENSSL_s390xcap="
70                  "stfle:0x%llx:0x%llx:0x%llx:0x%llx:"
71                  "kimd:0x%llx:0x%llx:"
72                  "klmd:0x%llx:0x%llx:"
73                  "km:0x%llx:0x%llx:"
74                  "kmc:0x%llx:0x%llx:"
75                  "kmac:0x%llx:0x%llx:"
76                  "kmctr:0x%llx:0x%llx:"
77                  "kmo:0x%llx:0x%llx:"
78                  "kmf:0x%llx:0x%llx:"
79                  "prno:0x%llx:0x%llx:"
80                  "kma:0x%llx:0x%llx:"
81                  "pcc:0x%llx:0x%llx:"
82                  "kdsa:0x%llx:0x%llx",
83                  OPENSSL_s390xcap_P.stfle[0], OPENSSL_s390xcap_P.stfle[1],
84                  OPENSSL_s390xcap_P.stfle[2], OPENSSL_s390xcap_P.stfle[3],
85                  OPENSSL_s390xcap_P.kimd[0], OPENSSL_s390xcap_P.kimd[1],
86                  OPENSSL_s390xcap_P.klmd[0], OPENSSL_s390xcap_P.klmd[1],
87                  OPENSSL_s390xcap_P.km[0], OPENSSL_s390xcap_P.km[1],
88                  OPENSSL_s390xcap_P.kmc[0], OPENSSL_s390xcap_P.kmc[1],
89                  OPENSSL_s390xcap_P.kmac[0], OPENSSL_s390xcap_P.kmac[1],
90                  OPENSSL_s390xcap_P.kmctr[0], OPENSSL_s390xcap_P.kmctr[1],
91                  OPENSSL_s390xcap_P.kmo[0], OPENSSL_s390xcap_P.kmo[1],
92                  OPENSSL_s390xcap_P.kmf[0], OPENSSL_s390xcap_P.kmf[1],
93                  OPENSSL_s390xcap_P.prno[0], OPENSSL_s390xcap_P.prno[1],
94                  OPENSSL_s390xcap_P.kma[0], OPENSSL_s390xcap_P.kma[1],
95                  OPENSSL_s390xcap_P.pcc[0], OPENSSL_s390xcap_P.pcc[1],
96                  OPENSSL_s390xcap_P.kdsa[0], OPENSSL_s390xcap_P.kdsa[1]);
97     if ((env = getenv("OPENSSL_s390xcap")) != NULL)
98         BIO_snprintf(ossl_cpu_info_str + strlen(ossl_cpu_info_str),
99                      sizeof(ossl_cpu_info_str) - strlen(ossl_cpu_info_str),
100                      " env:%s", env);
101 # endif
102 #endif
103 
104     {
105         static char seeds[512] = "";
106 
107 #define add_seeds_string(str)                                           \
108         do {                                                            \
109             if (seeds[0] != '\0')                                       \
110                 OPENSSL_strlcat(seeds, " ", sizeof(seeds));             \
111             OPENSSL_strlcat(seeds, str, sizeof(seeds));                 \
112         } while (0)
113 #define add_seeds_stringlist(label, strlist)                            \
114         do {                                                            \
115             add_seeds_string(label "(");                                \
116             {                                                           \
117                 const char *dev[] =  { strlist, NULL };                 \
118                 const char **p;                                         \
119                 int first = 1;                                          \
120                                                                         \
121                 for (p = dev; *p != NULL; p++) {                        \
122                     if (!first)                                         \
123                         OPENSSL_strlcat(seeds, " ", sizeof(seeds));     \
124                     first = 0;                                          \
125                     OPENSSL_strlcat(seeds, *p, sizeof(seeds));          \
126                 }                                                       \
127             }                                                           \
128             OPENSSL_strlcat(seeds, ")", sizeof(seeds));                 \
129         } while (0)
130 
131 #ifdef OPENSSL_RAND_SEED_NONE
132         add_seeds_string("none");
133 #endif
134 #ifdef OPENSSL_RAND_SEED_RDTSC
135         add_seeds_string("rdtsc");
136 #endif
137 #ifdef OPENSSL_RAND_SEED_RDCPU
138         add_seeds_string("rdrand ( rdseed rdrand )");
139 #endif
140 #ifdef OPENSSL_RAND_SEED_LIBRANDOM
141         add_seeds_string("C-library-random");
142 #endif
143 #ifdef OPENSSL_RAND_SEED_GETRANDOM
144         add_seeds_string("getrandom-syscall");
145 #endif
146 #ifdef OPENSSL_RAND_SEED_DEVRANDOM
147         add_seeds_stringlist("random-device", DEVRANDOM);
148 #endif
149 #ifdef OPENSSL_RAND_SEED_EGD
150         add_seeds_stringlist("EGD", DEVRANDOM_EGD);
151 #endif
152 #ifdef OPENSSL_RAND_SEED_OS
153         add_seeds_string("os-specific");
154 #endif
155         seed_sources = seeds;
156     }
157     return 1;
158 }
159 
OPENSSL_info(int t)160 const char *OPENSSL_info(int t)
161 {
162     /*
163      * We don't care about the result.  Worst case scenario, the strings
164      * won't be initialised, i.e. remain NULL, which means that the info
165      * isn't available anyway...
166      */
167     (void)RUN_ONCE(&init_info, init_info_strings);
168 
169     switch (t) {
170     case OPENSSL_INFO_CONFIG_DIR:
171         return OPENSSLDIR;
172     case OPENSSL_INFO_ENGINES_DIR:
173         return ENGINESDIR;
174     case OPENSSL_INFO_MODULES_DIR:
175         return MODULESDIR;
176     case OPENSSL_INFO_DSO_EXTENSION:
177         return DSO_EXTENSION;
178     case OPENSSL_INFO_DIR_FILENAME_SEPARATOR:
179 #if defined(_WIN32)
180         return "\\";
181 #elif defined(__VMS)
182         return "";
183 #else  /* Assume POSIX */
184         return "/";
185 #endif
186     case OPENSSL_INFO_LIST_SEPARATOR:
187         {
188             static const char list_sep[] = { LIST_SEPARATOR_CHAR, '\0' };
189             return list_sep;
190         }
191     case OPENSSL_INFO_SEED_SOURCE:
192         return seed_sources;
193     case OPENSSL_INFO_CPU_SETTINGS:
194         /*
195          * If successfully initialized, ossl_cpu_info_str will start
196          * with CPUINFO_PREFIX, if failed it will be an empty string.
197          * Strip away the CPUINFO_PREFIX which we don't need here.
198          */
199         if (ossl_cpu_info_str[0] != '\0')
200             return ossl_cpu_info_str + strlen(CPUINFO_PREFIX);
201         break;
202     default:
203         break;
204     }
205     /* Not an error */
206     return NULL;
207 }
208