rand_vms.c revision 296465
1/* crypto/rand/rand_vms.c -*- mode:C; c-file-style: "eay" -*- */ 2/* 3 * Written by Richard Levitte <richard@levitte.org> for the OpenSSL project 4 * 2000. 5 */ 6/* ==================================================================== 7 * Copyright (c) 1998-2000 The OpenSSL Project. All rights reserved. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in 18 * the documentation and/or other materials provided with the 19 * distribution. 20 * 21 * 3. All advertising materials mentioning features or use of this 22 * software must display the following acknowledgment: 23 * "This product includes software developed by the OpenSSL Project 24 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" 25 * 26 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to 27 * endorse or promote products derived from this software without 28 * prior written permission. For written permission, please contact 29 * openssl-core@openssl.org. 30 * 31 * 5. Products derived from this software may not be called "OpenSSL" 32 * nor may "OpenSSL" appear in their names without prior written 33 * permission of the OpenSSL Project. 34 * 35 * 6. Redistributions of any form whatsoever must retain the following 36 * acknowledgment: 37 * "This product includes software developed by the OpenSSL Project 38 * for use in the OpenSSL Toolkit (http://www.openssl.org/)" 39 * 40 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY 41 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 42 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 43 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR 44 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 45 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 46 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 47 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 49 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 50 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 51 * OF THE POSSIBILITY OF SUCH DAMAGE. 52 * ==================================================================== 53 * 54 * This product includes cryptographic software written by Eric Young 55 * (eay@cryptsoft.com). This product includes software written by Tim 56 * Hudson (tjh@cryptsoft.com). 57 * 58 */ 59 60#include <openssl/rand.h> 61#include "rand_lcl.h" 62 63#if defined(OPENSSL_SYS_VMS) 64 65# include <descrip.h> 66# include <jpidef.h> 67# include <ssdef.h> 68# include <starlet.h> 69# ifdef __DECC 70# pragma message disable DOLLARID 71# endif 72 73static struct items_data_st { 74 short length, code; /* length is amount of bytes */ 75} items_data[] = { 76 { 77 4, JPI$_BUFIO 78 }, 79 { 80 4, JPI$_CPUTIM 81 }, 82 { 83 4, JPI$_DIRIO 84 }, 85 { 86 8, JPI$_LOGINTIM 87 }, 88 { 89 4, JPI$_PAGEFLTS 90 }, 91 { 92 4, JPI$_PID 93 }, 94 { 95 4, JPI$_WSSIZE 96 }, 97 { 98 0, 0 99 } 100}; 101 102int RAND_poll(void) 103{ 104 long pid, iosb[2]; 105 int status = 0; 106 struct { 107 short length, code; 108 long *buffer; 109 int *retlen; 110 } item[32], *pitem; 111 unsigned char data_buffer[256]; 112 short total_length = 0; 113 struct items_data_st *pitems_data; 114 115 pitems_data = items_data; 116 pitem = item; 117 118 /* Setup */ 119 while (pitems_data->length && (total_length + pitems_data->length <= 256)) { 120 pitem->length = pitems_data->length; 121 pitem->code = pitems_data->code; 122 pitem->buffer = (long *)&data_buffer[total_length]; 123 pitem->retlen = 0; 124 total_length += pitems_data->length; 125 pitems_data++; 126 pitem ++; 127 } 128 pitem->length = pitem->code = 0; 129 130 /* 131 * Scan through all the processes in the system and add entropy with 132 * results from the processes that were possible to look at. 133 * However, view the information as only half trustable. 134 */ 135 pid = -1; /* search context */ 136 while ((status = sys$getjpiw(0, &pid, 0, item, iosb, 0, 0)) 137 != SS$_NOMOREPROC) { 138 if (status == SS$_NORMAL) { 139 RAND_add(data_buffer, total_length, total_length / 2); 140 } 141 } 142 sys$gettim(iosb); 143 RAND_add((unsigned char *)iosb, sizeof(iosb), sizeof(iosb) / 2); 144 return 1; 145} 146 147#endif 148