CryptRandom is a module for generating cryptographically useful random bytes under RISC OS. It can use a number of sources to provide this information to clients needing secure, or high quality random data.
Computers are, by their nature, deterministic - so applying the same sequence of inputs to any program is likely to produce the same result. This is a bad thing when it comes to cryptography, as if you use a known sequence to encrypt a data stream, next time you turn on your machine you'll use the same known sequence, making the code possible to break. Thus we need a random sequence so that no pattern can be spotted in it. Basic provides a pseudo-random sequence, but this is the same every time the machine is turned on, so is not very good. It is also just a sequence, which will eventually repeat. True randomness is only possible on a computer by attaching it to other devices such as a radioactive source - not very practical.
CryptRandom applies another method, which will produce different values showing to no known pattern, which are different each time you switch the machine on. This is much less secure than using a true random source, but better than using a predictable random number generator like that Basic uses.
The CryptRandom module provides SWI calls which allow access to random data retrieved from a variety of sources.
CryptRandom is supplied in an archive containing a !System directory. It can be installed by decompressing this archive, then using a !System merge tool - such as that accessible by running !Boot, or !SysMerge for RISC OS 3.1 machines.
CryptRandom provides a service to clients that require it. Such applications should load it in the following way:
RMEnsure CryptRandom a.bc RMLoad System:Modules.CryptRand RMEnsure CryptRandom a.bc Error CryptRandom version a.bc is required
where a.bc is the oldest version supporting the features the application requires (see the history file). Note that this version should be at least that of the latest security advisory (if any).
CryptRandom is based on code from PuTTY, the Windows SSH client by Simon Tatham (see http://www.chiark.greenend.org.uk/~sgtatham/putty/). It consists of a 'pool' of random data, which is 'stirred' every time a byte is requested, using a complex hashing function to ensure there is no discernible pattern. The pool is supplied by 'entropy' from various sources, designed so that they are different every time they are called. The numerous sources include:
On initialisation of CryptRandom:
Every time a byte is requested:
Every mouse and key press:
Sources are ignored if they don't work (eg a Risc PC doesn't have a battery manager).
Interrupts are disabled on SWIs as mentioned above - this is to allow multiple users to access the pool from interrupt routines (events/callbacks etc) - this may be subject to change in future versions.
The seed is saved over sessions to preserve the entropy - it'll
first look for CryptRandom$SeedFile, and if this is set use this as the
seed location, otherwise try Choices:Crypto.CryptRand.Seed or if
Choices$Path is unset use <Wimp$ScrapDir>.Seed.
I don't claim to prove the security of the hashing process, so I can't guarantee the randomness of the output, but it appears to be white noise - if in doubt, do your own tests. The hash is based on SHA-1, which is believed by the computing community to be secure. Any comments in this respect would be welcomed.
Newer versions (if any) of this software may be found at http://www.markettos.org.uk/ or else by contacting the author at: email theo@markettos.org.uk
Theo Markettos
5 Willow Close
Liphook
Hants
GU30 7HX
UK
I'd also welcome any bug reports or fixes, or any other comments.
Sources can be obtained from http://www.markettos.org.uk/
To build them you'll need:
| R0 | = | Random byte value (0-255) |
This SWI reads a byte from the pool, and subsequently stirs it.
This SWI stirs the random pool - this should not be necessary in normal use
| R0 | = | Pointer to block of noise data to add |
| R1 | = | Size of data in the block |
Adds a block of noise to the random pool - shouldn't be necessary in normal use.
| R0 | = | Pointer to block to fill with random bytes |
| R1 | = | Number of bytes to fill into the buffer |
Generates a block of random data. Note this is called with interrupts off, so large blocks may cause your machine to hang while they are generated. Note also the entropy generated by this call is likely to be less than multiple CryptRandom_Byte calls (since times/battery status etc are likely to be the same during this call, but not if _Byte calls are spread at different points in your program), so randomness may suffer as a result.
| R0 | = | Random 32-bit word from the pool |
This reads a 4 bytes from the pool, and assembles them into a 32-bit word.
| Maintainer(s): | Gerph <gerph@gerph.org> Theo Markettos <theo@markettos.org.> | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| History: |
| ||||||||||||
| Disclaimer: |
Copyright 2000-1 Theo Markettos. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL SIMON TATHAM OR THEO MARKETTOS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |