#include <sys/param.h>
#include <sys/systm.h>
#include <sys/proc.h>
#include <sys/errno.h>
#include <sys/ioctl.h>
#include <sys/conf.h>
#include <sys/fcntl.h>
#include <string.h>
#include <miscfs/devfs/devfs.h>
#include <kern/locks.h>
#include <kern/clock.h>
#include <sys/time.h>
#include <sys/malloc.h>
#include <sys/sysproto.h>
#include <sys/uio_internal.h>
#include <dev/random/randomdev.h>
#include <libkern/OSByteOrder.h>
#include <libkern/OSAtomic.h>
#include <mach/mach_time.h>
#define RANDOM_MAJOR -1
#define RANDOM_MINOR 0
#define URANDOM_MINOR 1
d_ioctl_t random_ioctl;
static const struct cdevsw random_cdevsw =
{
.d_open = random_open,
.d_close = random_close,
.d_read = random_read,
.d_write = random_write,
.d_ioctl = random_ioctl,
.d_stop = (stop_fcn_t *)nulldev,
.d_reset = (reset_fcn_t *)nulldev,
.d_select = eno_select,
.d_mmap = eno_mmap,
.d_strategy = eno_strat,
.d_reserved_1 = eno_getc,
.d_reserved_2 = eno_putc,
};
void
random_init(void)
{
int ret;
ret = cdevsw_add(RANDOM_MAJOR, &random_cdevsw);
if (ret < 0) {
panic("random_init: failed to allocate a major number!");
}
devfs_make_node(makedev(ret, RANDOM_MINOR), DEVFS_CHAR,
UID_ROOT, GID_WHEEL, 0666, "random", 0);
devfs_make_node(makedev(ret, URANDOM_MINOR), DEVFS_CHAR,
UID_ROOT, GID_WHEEL, 0666, "urandom", 0);
}
int
random_ioctl( __unused dev_t dev, u_long cmd, __unused caddr_t data,
__unused int flag, __unused struct proc *p )
{
switch (cmd) {
case FIONBIO:
case FIOASYNC:
break;
default:
return ENODEV;
}
return 0;
}
int
random_open(__unused dev_t dev, int flags, __unused int devtype, __unused struct proc *p)
{
if (flags & FWRITE) {
if (securelevel >= 2) {
return EPERM;
}
#ifndef __APPLE__
if ((securelevel >= 1) && proc_suser(p)) {
return EPERM;
}
#endif
}
return 0;
}
int
random_close(__unused dev_t dev, __unused int flags, __unused int mode, __unused struct proc *p)
{
return 0;
}
int
random_write(dev_t dev, struct uio *uio, __unused int ioflag)
{
int retCode = 0;
char rdBuffer[256];
if (minor(dev) != RANDOM_MINOR) {
return EPERM;
}
while ((size_t)uio_resid(uio) > 0 && retCode == 0) {
size_t bytesToInput = MIN((size_t)uio_resid(uio), sizeof(rdBuffer));
retCode = uiomove(rdBuffer, (int)bytesToInput, uio);
if (retCode != 0) {
break;
}
retCode = write_random(rdBuffer, (u_int)bytesToInput);
if (retCode != 0) {
break;
}
}
return retCode;
}
int
random_read(__unused dev_t dev, struct uio *uio, __unused int ioflag)
{
int retCode = 0;
char buffer[512];
size_t bytes_remaining = (size_t)uio_resid(uio);
while (bytes_remaining > 0 && retCode == 0) {
size_t bytesToRead = MIN(bytes_remaining, sizeof(buffer));
read_random(buffer, (u_int)bytesToRead);
retCode = uiomove(buffer, (int)bytesToRead, uio);
if (retCode != 0) {
break;
}
bytes_remaining = (size_t)uio_resid(uio);
}
return retCode;
}
u_int32_t
RandomULong(void)
{
u_int32_t buf;
read_random(&buf, sizeof(buf));
return buf;
}
int
getentropy(__unused struct proc * p, struct getentropy_args *gap, __unused int * ret)
{
user_addr_t user_addr;
user_size_t user_size;
char buffer[256];
user_addr = (user_addr_t)gap->buffer;
user_size = gap->size;
if (user_size > sizeof(buffer)) {
return EINVAL;
}
read_random(buffer, (u_int)user_size);
return copyout(buffer, user_addr, user_size);
}