Dev random

From Free Pascal wiki
Revision as of 10:36, 23 April 2013 by BigChimp (talk | contribs) (Categories: applies to FPC (rather than Lazarus); has example code, so adding it to tutorial makes sense)
Jump to navigationJump to search

Summary

/dev/random and /dev/urandom are two Unix and *nix based devices that process memory, disc, network dumps from the kernel. This allows us to use a "random" like seed for performing "random" tasks with the "random" function.

The difference between /dev/random and /dev/urandom is whether the device is "blocking" or "non blocking":

  • While /dev/random gives random seeds, it will wait until it has something to give us, before returning the seed.
  • /dev/urandom does not stop us from when we do not have a new seed from dump, and will return also data that are less random. This way we will not need to wait until any type of activity will occur, but randomness is reduced.

Coding

In order to make Free Pascal work with /dev/random and /dev/random we can write the following code:

procedure RandomSeed;
var
  f : file of integer;
  i : integer;

begin
  i        := 0;
  filemode := 0;
  AssignFile(f, '/dev/urandom'); 
  reset (f,1);
  read (f,i);
  CloseFile (f);
  RandSeed := i;
end;

Explanation

Like everything else in *nix like OSes, everything is a file! So, we access urandom as a file and we read only one integer at a time.

Then, we place the data we made as RandSeed (the seed number that the function random uses). And that's it, we have a random seeder for "random" usage.