1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <sys/types.h>
#ifdef HAVE_CRYPT_URANDOM_NATIVE_GETRANDOM
#include <sys/random.h>
#else
#ifdef HAVE_CRYPT_URANDOM_SYSCALL_GETRANDOM
#include <sys/syscall.h>
#else
#ifdef HAVE_CRYPT_URANDOM_NATIVE_ARC4RANDOM_BUF
#include <sys/random.h>
#else
#ifdef HAVE_CRYPT_URANDOM_UNISTD_ARC4RANDOM_BUF
#include <unistd.h>
#else
#ifdef HAVE_CRYPT_URANDOM_STDLIB_ARC4RANDOM_BUF
#include <stdlib.h>
#endif
#endif
#endif
#endif
#endif
#ifdef GRND_NONBLOCK
#else
#define GRND_NONBLOCK 0x0001
#endif
#include <errno.h>
MODULE = Crypt::URandom PACKAGE = Crypt::URandom PREFIX = crypt_urandom_
PROTOTYPES: ENABLE
SV *
crypt_urandom_getrandom(length)
ssize_t length
PREINIT:
char *data;
int result;
CODE:
Newx(data, length + 1u, char);
GETRANDOM:
#ifdef HAVE_CRYPT_URANDOM_NATIVE_GETRANDOM
result = getrandom(data, length, GRND_NONBLOCK);
#else
#ifdef HAVE_CRYPT_URANDOM_SYSCALL_GETRANDOM
result = syscall(SYS_getrandom, data, length, GRND_NONBLOCK);
#else
#ifdef HAVE_CRYPT_URANDOM_NATIVE_ARC4RANDOM_BUF
arc4random_buf(data, length);
result = length;
#else
#ifdef HAVE_CRYPT_URANDOM_UNISTD_ARC4RANDOM_BUF
arc4random_buf(data, length);
result = length;
#else
#ifdef HAVE_CRYPT_URANDOM_STDLIB_ARC4RANDOM_BUF
arc4random_buf(data, length);
result = length;
#else
croak("Unable to find getrandom or an alternative");
#endif
#endif
#endif
#endif
#endif
if (result != length) {
if (errno == EINTR) {
goto GETRANDOM;
} else {
Safefree(data);
croak("Failed to getrandom:%s", strerror(errno));
}
}
data[result] = '\0';
RETVAL = newSVpv(data, result);
Safefree(data);
OUTPUT:
RETVAL
|
