#!/usr/local/bin/perl
# This script is in the public domain

$MD5="./md5";

	$command = $command."ps axl&ps -el&netstat -na&netstat -s&date&w";
	open(SEED, "($command) 2>/dev/null | $MD5 |")
		|| die "cannot run rand command: $!";
	($sk = <SEED>) || die "Computation of random.h failed: $!";
	close( SEED);
	chop( $sk);

	if ( -r "/dev/urandom" ) {
		$command = "echo $sk; dd if=/dev/urandom count=1 bs=512";
		open(SEED, "($command) 2>/dev/null | $MD5 |")
				|| die "cannot run rand command: $!";
		($sk = <SEED>) || die "Computation of random.h failed: $!";
		close( SEED);
		chop( $sk);
	}
	printf(  "#define RANDOMKEY \"%s\"\n", $sk);