sci.crypt archive
Re: 63/64 bit version of Delphi's function random( aRange : integer ) : integer; ?
From: Mike Warren <miwa-not-this-bit@or-this-csas.net.au>
Date: Fri Apr 28 2006 - 05:51:17 CEST
Date: Fri Apr 28 2006 - 05:51:17 CEST
Skybuck Flying wrote:
> Delphi has a random function which looks like follows:
>
> function Random( aRange : integer ) : integer;
>
> The problem for me is that it only returns 32 bits... actually just
> 31 bits.
> Delphi has no unsigned 64 bit integer... so a signed 63 bit integer
> for now will have to do...
Can't you just use this?
var
I: Int64;
I := Random($FFFFFFFF) * $100000000 + Random($FFFFFFFF);
-Mike
Received on Mon May 1 02:05:23 2006