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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
#include <openssl/rand.h>
#include <openssl/sha.h>
#include "rand_lcl.h"
#if defined(OPENSSL_SYS_AMIGAOS3) || defined(OPENSSL_SYS_AMIGAOS4)
#define __USE_INLINE__ 1
#include <proto/exec.h>
#include <proto/timer.h>
#include <devices/timer.h>
/* Maximum number of attempts to get a delay of 1 microsecond that is not equal to 0 */
#define MAX_ATTEMPTS 1000
#ifdef __amigaos4__
#ifdef CreateMsgPort
#undef CreateMsgPort
#endif
#define CreateMsgPort() AllocSysObject(ASOT_PORT,NULL)
#ifdef DeleteMsgPort
#undef DeleteMsgPort
#endif
#define DeleteMsgPort(msgPort) FreeSysObject(ASOT_PORT,msgPort)
#ifdef CreateIORequest
#undef CreateIORequest
#endif
#define CreateIORequest(ioReplyPort,size) AllocSysObjectTags(ASOT_IOREQUEST,ASOIOR_ReplyPort,ioReplyPort,ASOIOR_Size,size,TAG_DONE)
#ifdef DeleteIORequest
#undef DeleteIORequest
#endif
#define DeleteIORequest(ioReq) FreeSysObject(ASOT_IOREQUEST,ioReq)
#else
#define GetInterface(a, b, c, d) 1
#define DropInterface(x)
/* OS3 has a different but compatible TimeVal definition */
struct TimeVal
{
uint32 Seconds;
uint32 Microseconds;
};
#endif /* !__amigaos4__ */
int RAND_poll(void)
{
unsigned char temp_buffer[SHA_DIGEST_LENGTH], data_buffer[SHA_DIGEST_LENGTH];
struct MsgPort *port = NULL;
double entropy_added = 0;
struct TimeRequest *time_request = NULL;
#ifdef __amigaos4__
struct IOStdReq *entropy_request = NULL;
if ((port = CreateMsgPort())
&& (entropy_request = (struct IOStdReq *)CreateIORequest(port, sizeof(*entropy_request))))
{
if (OpenDevice(TIMERNAME, UNIT_ENTROPY, (struct IORequest *)entropy_request, 0) == 0)
{
while(entropy_added < ENTROPY_NEEDED)
{
entropy_request->io_Command = TR_READENTROPY;
entropy_request->io_Data = &temp_buffer[0];
entropy_request->io_Length = sizeof(temp_buffer);
if (DoIO((struct IORequest *)entropy_request) == 0)
{
SHA1(&temp_buffer[0], sizeof(temp_buffer), &data_buffer[0]);
RAND_add(&data_buffer[0], sizeof(data_buffer), sizeof(data_buffer));
entropy_added += sizeof(data_buffer);
}
else
break;
}
CloseDevice((struct IORequest *)entropy_request);
}
}
DeleteIORequest((struct IORequest *)entropy_request);
#endif /* __amigaos4__ */
/* The following block will be used on "classic" machines. It does not generate
* a high degree of randomness, but it does the job since RAND_poll is
* called only once by OpenSSL to generate a 32 byte seed.
*/
if (entropy_added < ENTROPY_NEEDED
&& (port || (port = CreateMsgPort()))
&& (time_request = (struct TimeRequest *)CreateIORequest(port, sizeof(*time_request))))
{
if (OpenDevice(TIMERNAME, UNIT_VBLANK, (struct IORequest *)time_request, 0) == 0)
{
#if defined(__amigaos4__)
struct TimerIFace *ITimer = NULL;
#endif
struct Device *TimerBase;
if ((TimerBase = time_request->Request.io_Device)
#if defined(__amigaos4__)
&& (ITimer = (struct TimerIFace *)GetInterface((struct Library *)TimerBase, "main", 1, NULL))
#endif
)
{
struct EClockVal curr_eclock;
ULONG prev_ev_lo = 0;
struct TimeVal tv;
int i, attempt;
BOOL aborted;
ReadEClock(&curr_eclock);
aborted = FALSE;
while(!aborted && entropy_added < ENTROPY_NEEDED)
{
for(i = 0;
!aborted && i < (int)sizeof(temp_buffer) - (int)sizeof(ULONG);
i++)
{
attempt = 0;
/* Ask for a one microsecond delay and measure the time
* the delay actually took.
*/
do
{
time_request->Request.io_Command = TR_ADDREQUEST;
time_request->Time.Seconds = 0;
time_request->Time.Microseconds = 1;
if (DoIO((struct IORequest *)time_request) == 0)
{
prev_ev_lo = curr_eclock.ev_lo;
ReadEClock(&curr_eclock);
attempt++;
}
else
aborted = TRUE;
} while(!aborted && prev_ev_lo == 0 && attempt < MAX_ATTEMPTS);
if (attempt >= MAX_ATTEMPTS)
aborted = TRUE;
/* Since we are going for randomness, ev_hi is irrelevant */
temp_buffer[i] = (unsigned char)(curr_eclock.ev_lo - prev_ev_lo);
}
GetSysTime(&tv);
if (sizeof(temp_buffer) > sizeof(ULONG))
*(ULONG *)&temp_buffer[sizeof(temp_buffer) - sizeof(ULONG)]
= tv.Microseconds;
/* Shuffle the bits around and specify that about
* one fourth of it adds to the entropy.
*/
if (!aborted)
{
SHA1(&temp_buffer[0], sizeof(temp_buffer), &data_buffer[0]);
RAND_add(&data_buffer[0], sizeof(data_buffer), (double)sizeof(data_buffer) / 4);
entropy_added += sizeof(data_buffer) / 4;
}
}
}
#if defined(__amigaos4__)
DropInterface((struct Interface *)ITimer);
#endif
CloseDevice((struct IORequest *)time_request);
}
}
DeleteIORequest((struct IORequest *)time_request);
DeleteMsgPort(port);
return(entropy_added >= ENTROPY_NEEDED);
}
#endif /* OPENSSL_SYS_AMIGA */
|
