+++ /dev/null
-/* -*-c-*-
- *
- * $Id$
- *
- * Acquisition of environmental noise (Unix-specific)
- *
- * (c) 1998 Straylight/Edgeware
- */
-
-/*----- Licensing notice --------------------------------------------------*
- *
- * This file is part of Catacomb.
- *
- * Catacomb is free software; you can redistribute it and/or modify
- * it under the terms of the GNU Library General Public License as
- * published by the Free Software Foundation; either version 2 of the
- * License, or (at your option) any later version.
- *
- * Catacomb is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with Catacomb; if not, write to the Free
- * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA 02111-1307, USA.
- */
-
-/*----- Header files ------------------------------------------------------*/
-
-#include "config.h"
-
-#include <setjmp.h>
-#include <stdio.h>
-#include <string.h>
-#include <signal.h>
-
-#include <sys/types.h>
-#include <sys/time.h>
-#include <sys/wait.h>
-
-#include <fcntl.h>
-#include <unistd.h>
-
-#ifdef HAVE_SETGROUPS
-# include <grp.h>
-#endif
-
-#include <mLib/bits.h>
-#include <mLib/tv.h>
-
-#include "noise.h"
-#include "paranoia.h"
-#include "rand.h"
-
-/*----- Magical numbers ---------------------------------------------------*/
-
-#define NOISE_KIDLIFE 100000 /* @noise_filter@ child lifetime */
-#define MILLION 1000000 /* One million */
-
-/*----- Noise source definition -------------------------------------------*/
-
-const rand_source noise_source = { noise_acquire, noise_timer };
-
-/*----- Static variables --------------------------------------------------*/
-
-/* --- Timer differences --- */
-
-static unsigned long noise_last; /* Last time recorded */
-static unsigned long noise_diff; /* Last first order difference */
-
-/* --- Setuid program handling --- */
-
-static uid_t noise_uid = NOISE_NOSETUID; /* Uid to set to spawn processes */
-static gid_t noise_gid = NOISE_NOSETGID; /* Gid to set to spawn processes */
-
-/*----- Main code ---------------------------------------------------------*/
-
-/* --- @bitcount@ --- *
- *
- * Arguments: @unsigned long x@ = a word containing bits
- *
- * Returns: The number of bits set in the word.
- */
-
-static int bitcount(unsigned long x)
-{
- char ctab[] = { 0, 1, 1, 2, 1, 2, 2, 3,
- 1, 2, 2, 3, 2, 3, 3, 4 };
- int count = 0;
- while (x) {
- count += ctab[x & 0xfu];
- x >>= 4;
- }
- return (count);
-}
-
-/* --- @timer@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to randomness pool
- * @struct timeval *tv@ = pointer to time block
- *
- * Returns: Nonzero if some randomness was contributed.
- *
- * Use: Low-level timer contributor.
- */
-
-static int timer(rand_pool *r, struct timeval *tv)
-{
- unsigned long x, d, dd;
- int de, dde;
- int ret;
-
- x = tv->tv_usec + MILLION * tv->tv_sec;
- d = x ^ noise_last;
- dd = d ^ noise_diff;
- noise_diff = d;
- de = bitcount(d);
- dde = bitcount(dd);
- rand_add(r, tv, sizeof(*tv), de <= dde ? de : dde);
- ret = (de || dde);
- BURN(tv); x = d = dd = de = dde = 0;
- return (ret);
-}
-
-/* --- @noise_timer@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to a randomness pool
- *
- * Returns: Nonzero if some randomness was contributed.
- *
- * Use: Contributes the current time to the randomness pool.
- * A guess at the number of useful bits contributed is made,
- * based on first and second order bit differences. This isn't
- * ever-so reliable, but it's better than nothing.
- */
-
-int noise_timer(rand_pool *r)
-{
- struct timeval tv;
- gettimeofday(&tv, 0);
- return (timer(r, &tv));
-}
-
-/* --- @noise_devrandom@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to a randomness pool
- *
- * Returns: Nonzero if some randomness was contributed.
- *
- * Use: Attempts to obtain some randomness from the system entropy
- * pool. All bits from the device are assumed to be good.
- */
-
-int noise_devrandom(rand_pool *r)
-{
- int fd;
- octet buf[RAND_POOLSZ];
- ssize_t len;
- int ret = 0;
-
- /* --- Be nice to other clients of the random device --- *
- *
- * Attempt to open the device nonblockingly. If that works, take up to
- * one bufferful and then close again. If there's no data to be read,
- * then that's tough and we go away again, on the grounds that the device
- * needs to get some more entropy from somewhere.
- */
-
- if ((fd = open("/dev/urandom", O_RDONLY | O_NONBLOCK)) >= 0 ||
- (fd = open("/dev/arandom", O_RDONLY | O_NONBLOCK)) >= 0 ||
- (fd = open("/dev/random", O_RDONLY | O_NONBLOCK)) >= 0) {
- if ((len = read(fd, buf, sizeof(buf))) > 0) {
- rand_add(r, buf, len, len * 8);
- BURN(buf);
- ret = 1;
- }
- close(fd);
- }
- noise_timer(r);
- return (ret);
-}
-
-/* --- @noise_setid@ --- *
- *
- * Arguments: @uid_t uid@ = uid to set
- * @gid_t gid@ = gid to set
- *
- * Returns: ---
- *
- * Use: Sets the user and group ids to be used by @noise_filter@
- * when running child processes. This is useful to avoid
- * giving shell commands (even carefully written ones) undue
- * privileges. This interface is Unix-specific
- */
-
-void noise_setid(uid_t uid, gid_t gid)
-{
- noise_uid = uid;
- noise_gid = gid;
-}
-
-/* --- @noise_filter@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to a randomness pool
- * @int good@ = number of good bits per 1024 bits
- * @const char *c@ = shell command to run
- *
- * Returns: Nonzero if some randomness was contributed.
- *
- * Use: Attempts to execute a shell command, and dump it into the
- * randomness pool. A very rough estimate of the number of
- * good bits is made, based on the size of the command's output.
- * This function calls @waitpid@, so be careful. Before execing
- * the command, the process uid and gid are set to the values
- * given to @noise_setid@, and an attempt is made to reset the
- * list of supplementary groups. The environment passed to
- * the command has been severly lobotimized. If the command
- * fails to complete within a short time period, it is killed.
- * Paranoid use of close-on-exec flags for file descriptors is
- * recommended.
- *
- * This interface is Unix-specific.
- */
-
-int noise_filter(rand_pool *r, int good, const char *c)
-{
- char buf[4096];
- pid_t kid;
- int fd[2];
- struct timeval dead;
- int ret = 0;
- const char *env[] = {
- "PATH=/bin:/usr/bin:/sbin:/usr/sbin:/etc",
- 0
- };
-
- /* --- Remember when this business started --- */
-
- gettimeofday(&dead, 0);
- timer(r, &dead);
-
- /* --- Create a pipe --- */
-
- if (pipe(fd))
- return (ret);
-
- /* --- Fork a child off --- */
-
- fflush(0);
- kid = fork();
- if (kid < 0) {
- close(fd[0]);
- close(fd[1]);
- return (ret);
- }
-
- /* --- Handle the child end of the deal --- */
-
- if (kid == 0) {
- int f;
-
- /* --- Set the pipe as standard output, close standard input --- */
-
- close(0); close(1); close(2);
-
- if (fd[1] != 1) {
- if (dup2(fd[1], 1) < 0) _exit(127);
- close(fd[1]);
- }
-
- if ((f = open("/dev/null", O_RDONLY)) != 0 ||
- (f = open("/dev/null", O_WRONLY)) != 2)
- _exit(127);
-
- /* --- Play games with uids --- */
-
- if (noise_gid != NOISE_NOSETGID) {
- setgid(noise_gid);
- setegid(noise_gid);
-#ifdef HAVE_SETGROUPS
- setgroups(1, &noise_gid);
-#endif
- }
-
- if (noise_uid != NOISE_NOSETUID) {
- setuid(noise_uid);
- seteuid(noise_uid);
- }
-
- /* --- Start the process up --- */
-
- execle("/bin/sh", "-c", c, (char *)0, env);
- _exit(127);
- }
-
- /* --- Sort out my end of the deal --- */
-
- close(fd[1]);
-
- /* --- Decide on the deadline --- */
-
- TV_ADDL(&dead, &dead, 0, NOISE_KIDLIFE);
-
- /* --- Now read, and think --- */
-
- for (;;) {
- struct timeval now, diff;
- fd_set rd;
-
- gettimeofday(&now, 0);
- timer(r, &now);
- if (TV_CMP(&now, >, &dead))
- break;
- TV_SUB(&diff, &dead, &now);
-
- FD_ZERO(&rd);
- FD_SET(fd[0], &rd);
-
- if (select(fd[0] + 1, &rd, 0, 0, &diff) < 0)
- break;
- if (FD_ISSET(fd[0], &rd)) {
- ssize_t sz;
- int goodbits;
-
- if ((sz = read(fd[0], buf, sizeof(buf))) <= 0)
- break;
- goodbits = (sz * good) / 128;
- rand_add(r, buf, sz, goodbits);
- ret = 1;
- }
- }
-
- /* --- We've finished with it: kill the child process --- *
- *
- * This is morally questionable. On the other hand, I don't want to be
- * held up in the @waitpid@ call if I can possibly help it. Maybe a
- * double-fork is worth doing here.
- */
-
- close(fd[0]);
- BURN(buf);
- noise_timer(r);
- kill(kid, SIGKILL);
- waitpid(kid, 0, 0);
- return (ret);
-}
-
-/* --- @noise_freewheel@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to a randomness pool
- *
- * Returns: Nonzero if some randomness was contributed.
- *
- * Use: Runs a free counter for a short while as a desparate attempt
- * to get randomness from somewhere. This is actually quite
- * effective.
- */
-
-#ifdef USE_FREEWHEEL
-
-static jmp_buf fwjmp;
-
-static void fwalarm(int sig)
-{
- siglongjmp(fwjmp, 1);
-}
-
-int noise_freewheel(rand_pool *r)
-{
- void (*sigal)(int) = 0;
- struct itimerval oitv, itv = { { 0, 0 }, { 0, 5000 } };
- int rc = 0;
- volatile uint32 fwcount = 0;
-
- if (!sigsetjmp(fwjmp, 1)) {
- if ((sigal = signal(SIGALRM, fwalarm)) == SIG_ERR)
- return (0);
- if (setitimer(ITIMER_REAL, &itv, &oitv))
- goto done;
- for (;;)
- fwcount++;
- } else {
- octet buf[4];
- STORE32(buf, fwcount);
- rand_add(r, buf, sizeof(buf), 16);
- rc = 1;
- }
-
-done:
- signal(SIGALRM, sigal);
- if (oitv.it_value.tv_sec || oitv.it_value.tv_usec)
- TV_SUB(&oitv.it_value, &oitv.it_value, &itv.it_value);
- setitimer(ITIMER_REAL, &oitv, 0);
- return (rc);
-}
-
-#else
-
-int noise_freewheel(rand_pool *r)
-{
- return (0);
-}
-
-#endif
-
-/* --- @noise_enquire@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to a randomness pool
- *
- * Returns: Nonzero if some randomness was contributed.
- *
- * Use: Runs some shell commands to enquire about the prevailing
- * environment. This can gather quite a lot of low-quality
- * entropy.
- */
-
-int noise_enquire(rand_pool *r)
-{
- struct tab {
- const char *cmd;
- unsigned rate;
- } tab[] = {
- { "ps alxww || ps -elf", 16 },
- { "netstat -n", 6 },
- { "ifconfig -a", 8 },
- { "df", 20 },
- { "w", 6 },
- { "ls -align /tmp/.", 10 },
- { 0, 0 }
- };
- int i;
-
- for (i = 0; tab[i].cmd; i++)
- noise_filter(r, tab[i].rate, tab[i].cmd);
- return (1);
-}
-
-/* --- @noise_acquire@ --- *
- *
- * Arguments: @rand_pool *r@ = pointer to a randomness pool
- *
- * Returns: ---
- *
- * Use: Acquires some randomness from somewhere.
- */
-
-void noise_acquire(rand_pool *r)
-{
- unsigned i;
- for (i = 0; i < 8; i++)
- noise_freewheel(r);
- if (!noise_devrandom(r)) {
- noise_enquire(r);
- for (i = 0; i < 8; i++)
- noise_freewheel(r);
- }
-}
-
-/*----- That's all, folks -------------------------------------------------*/