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 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 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