magick/random.c - platform/external/ImageMagick - Gitiles

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                 RRRR    AAA   N   N  DDDD    OOO   M   M                    %
 %                 R   R  A   A  NN  N  D   D  O   O  MM MM                    %
 %                 RRRR   AAAAA  N N N  D   D  O   O  M M M                    %
 %                 R R    A   A  N  NN  D   D  O   O  M   M                    %
 %                 R  R   A   A  N   N  DDDD    OOO   M   M                    %
 %                                                                             %
 %                                                                             %
 %               MagickCore Methods to Generate Random Numbers                 %
 %                                                                             %
 %                             Software Design                                 %
 %                               John Cristy                                   %
 %                              December 2001                                  %
 %                                                                             %
 %                                                                             %
 %  Copyright 1999-2011 ImageMagick Studio LLC, a non-profit organization      %
 %  dedicated to making software imaging solutions freely available.           %
 %                                                                             %
 %  You may not use this file except in compliance with the License.  You may  %
 %  obtain a copy of the License at                                            %
 %                                                                             %
 %    http://www.imagemagick.org/script/license.php                            %
 %                                                                             %
 %  Unless required by applicable law or agreed to in writing, software        %
 %  distributed under the License is distributed on an "AS IS" BASIS,          %
 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
 %  See the License for the specific language governing permissions and        %
 %  limitations under the License.                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  The generation of random numbers is too important to be left to chance.
 %                               -- Tom Christiansen <tchrist@mox.perl.com>
 %
 %
 */

 /*
   Include declarations.
 */
 #if defined(__VMS)
 #include <time.h>
 #endif
 #if defined(__MINGW32__)
 #include <sys/time.h>
 #endif
 #include "magick/studio.h"
 #include "magick/exception.h"
 #include "magick/exception-private.h"
 #include "magick/memory_.h"
 #include "magick/semaphore.h"
 #include "magick/random_.h"
 #include "magick/resource_.h"
 #include "magick/signature-private.h"
 #include "magick/string_.h"
 #include "magick/thread_.h"
 #include "magick/thread-private.h"
 #include "magick/utility.h"
 /*
   Define declarations.
 */
 #define PseudoRandomHash  SHA256Hash
 #define RandomEntropyLevel  9
 #define RandomFilename  "reservoir.xdm"
 #define RandomFiletype  "random"
 #define RandomProtocolMajorVersion  1
 #define RandomProtocolMinorVersion  0

 /*
   Typedef declarations.
 */
 struct _RandomInfo
 {
   SignatureInfo
     *signature_info;

   StringInfo
     *nonce,
     *reservoir;

   size_t
     i;

   size_t
     seed[4];

   double
     normalize;

   unsigned short
     protocol_major,
     protocol_minor;

   SemaphoreInfo
     *semaphore;

   ssize_t
     timestamp;

   size_t
     signature;
 };

 /*
   External declarations.
 */
 #if defined(__APPLE__) && !defined(TARGET_OS_IPHONE)
 #include <crt_externs.h>
 #define environ (*_NSGetEnviron())
 #endif

 extern char
   **environ;

 /*
   Global declarations.
 */
 static SemaphoreInfo
   *random_semaphore = (SemaphoreInfo *) NULL;

 static size_t
   random_seed = ~0UL;

 static MagickBooleanType
   gather_true_random = MagickFalse;

 /*
   Forward declarations.
 */
 static StringInfo
   *GenerateEntropicChaos(RandomInfo *);

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   A c q u i r e R a n d o m I n f o                                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  AcquireRandomInfo() allocates the RandomInfo structure.
 %
 %  The format of the AcquireRandomInfo method is:
 %
 %      RandomInfo *AcquireRandomInfo(void)
 %
 */

 static inline size_t MagickMin(const size_t x,const size_t y)
 {
   if (x < y)
     return(x);
   return(y);
 }

 MagickExport RandomInfo *AcquireRandomInfo(void)
 {
   const StringInfo
     *digest;

   RandomInfo
     *random_info;

   StringInfo
     *entropy,
     *key,
     *nonce;

   random_info=(RandomInfo *) AcquireMagickMemory(sizeof(*random_info));
   if (random_info == (RandomInfo *) NULL)
     ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
   (void) ResetMagickMemory(random_info,0,sizeof(*random_info));
   random_info->signature_info=AcquireSignatureInfo();
   random_info->nonce=AcquireStringInfo(2*GetSignatureDigestsize(
     random_info->signature_info));
   ResetStringInfo(random_info->nonce);
   random_info->reservoir=AcquireStringInfo(GetSignatureDigestsize(
     random_info->signature_info));
   ResetStringInfo(random_info->reservoir);
   random_info->normalize=1.0/(~0UL);
   random_info->semaphore=AllocateSemaphoreInfo();
   random_info->protocol_major=RandomProtocolMajorVersion;
   random_info->protocol_minor=RandomProtocolMinorVersion;
   random_info->timestamp=(ssize_t) time(0);
   random_info->signature=MagickSignature;
   /*
     Seed random nonce.
   */
   nonce=GenerateEntropicChaos(random_info);
   if (nonce == (StringInfo *) NULL)
     ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
   InitializeSignature(random_info->signature_info);
   UpdateSignature(random_info->signature_info,nonce);
   FinalizeSignature(random_info->signature_info);
   SetStringInfoLength(nonce,(GetSignatureDigestsize(
     random_info->signature_info)+1)/2);
   SetStringInfo(nonce,GetSignatureDigest(random_info->signature_info));
   SetStringInfo(random_info->nonce,nonce);
   nonce=DestroyStringInfo(nonce);
   /*
     Seed random reservoir with entropic data.
   */
   entropy=GenerateEntropicChaos(random_info);
   if (entropy == (StringInfo *) NULL)
     ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
   UpdateSignature(random_info->signature_info,entropy);
   FinalizeSignature(random_info->signature_info);
   SetStringInfo(random_info->reservoir,GetSignatureDigest(
     random_info->signature_info));
   entropy=DestroyStringInfo(entropy);
   /*
     Seed pseudo random number generator.
   */
   if (random_seed == ~0UL)
     {
       key=GetRandomKey(random_info,sizeof(random_seed));
       (void) CopyMagickMemory(random_info->seed,GetStringInfoDatum(key),
         GetStringInfoLength(key));
       key=DestroyStringInfo(key);
     }
   else
     {
       SignatureInfo
         *signature_info;

       signature_info=AcquireSignatureInfo();
       key=AcquireStringInfo(sizeof(random_seed));
       SetStringInfoDatum(key,(unsigned char *) &random_seed);
       UpdateSignature(signature_info,key);
       key=DestroyStringInfo(key);
       FinalizeSignature(signature_info);
       digest=GetSignatureDigest(signature_info);
       (void) CopyMagickMemory(random_info->seed,GetStringInfoDatum(digest),
         MagickMin(GetSignatureDigestsize(signature_info),
         sizeof(*random_info->seed)));
       signature_info=DestroySignatureInfo(signature_info);
     }
   random_info->seed[1]=0x50a7f451UL;
   random_info->seed[2]=0x5365417eUL;
   random_info->seed[3]=0xc3a4171aUL;
   return(random_info);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   D e s t r o y R a n d o m I n f o                                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  DestroyRandomInfo() deallocates memory associated with the random
 %  reservoir.
 %
 %  The format of the DestroyRandomInfo method is:
 %
 %      RandomInfo *DestroyRandomInfo(RandomInfo *random_info)
 %
 %  A description of each parameter follows:
 %
 %    o random_info: the random info.
 %
 */
 MagickExport RandomInfo *DestroyRandomInfo(RandomInfo *random_info)
 {
   (void) LogMagickEvent(TraceEvent,GetMagickModule(),"...");
   assert(random_info != (RandomInfo *) NULL);
   assert(random_info->signature == MagickSignature);
   LockSemaphoreInfo(random_info->semaphore);
   if (random_info->reservoir != (StringInfo *) NULL)
     random_info->reservoir=DestroyStringInfo(random_info->reservoir);
   if (random_info->nonce != (StringInfo *) NULL)
     random_info->nonce=DestroyStringInfo(random_info->nonce);
   if (random_info->signature_info != (SignatureInfo *) NULL)
     random_info->signature_info=DestroySignatureInfo(
       random_info->signature_info);
   (void) ResetMagickMemory(random_info->seed,0,sizeof(*random_info->seed));
   random_info->signature=(~MagickSignature);
   UnlockSemaphoreInfo(random_info->semaphore);
   DestroySemaphoreInfo(&random_info->semaphore);
   random_info=(RandomInfo *) RelinquishMagickMemory(random_info);
   return(random_info);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   G e n e r a t e E n t r o p i c C h a o s                                 %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  GenerateEntropicChaos() generate entropic chaos used to initialize the
 %  random reservoir.
 %
 %  The format of the GenerateEntropicChaos method is:
 %
 %      StringInfo *GenerateEntropicChaos(RandomInfo *random_info)
 %
 %  A description of each parameter follows:
 %
 %    o random_info: the random info.
 %
 */

 #if !defined(MAGICKCORE_WINDOWS_SUPPORT)
 static ssize_t ReadRandom(int file,unsigned char *source,size_t length)
 {
   register unsigned char
     *q;

   ssize_t
     offset,
     count;

   offset=0;
   for (q=source; length != 0; length-=count)
   {
     count=(ssize_t) read(file,q,length);
     if (count <= 0)
       {
         count=0;
         if (errno == EINTR)
           continue;
         return(-1);
       }
     q+=count;
     offset+=count;
   }
   return(offset);
 }
 #endif

 static StringInfo *GenerateEntropicChaos(RandomInfo *random_info)
 {
 #define MaxEntropyExtent  64

   ssize_t
     pid;

   MagickThreadType
     tid;

   StringInfo
     *chaos,
     *entropy;

   size_t
     nanoseconds,
     seconds;

   /*
     Initialize random reservoir.
   */
   entropy=AcquireStringInfo(0);
   LockSemaphoreInfo(random_info->semaphore);
   chaos=AcquireStringInfo(sizeof(unsigned char *));
   SetStringInfoDatum(chaos,(unsigned char *) &entropy);
   ConcatenateStringInfo(entropy,chaos);
   SetStringInfoDatum(chaos,(unsigned char *) entropy);
   ConcatenateStringInfo(entropy,chaos);
   pid=(ssize_t) getpid();
   SetStringInfoLength(chaos,sizeof(pid));
   SetStringInfoDatum(chaos,(unsigned char *) &pid);
   ConcatenateStringInfo(entropy,chaos);
   tid=GetMagickThreadId();
   SetStringInfoLength(chaos,sizeof(tid));
   SetStringInfoDatum(chaos,(unsigned char *) &tid);
   ConcatenateStringInfo(entropy,chaos);
 #if defined(MAGICKCORE_HAVE_GETRUSAGE) && defined(RUSAGE_SELF)
   {
     struct rusage
       usage;

     if (getrusage(RUSAGE_SELF,&usage) == 0)
       {
         SetStringInfoLength(chaos,sizeof(usage));
         SetStringInfoDatum(chaos,(unsigned char *) &usage);
       }
   }
 #endif
   seconds=time((time_t *) 0);
   nanoseconds=0;
 #if defined(MAGICKCORE_HAVE_GETTIMEOFDAY)
   {
     struct timeval
       timer;

     if (gettimeofday(&timer,(struct timezone *) NULL) == 0)
       {
         seconds=timer.tv_sec;
         nanoseconds=1000UL*timer.tv_usec;
       }
   }
 #endif
 #if defined(MAGICKCORE_HAVE_CLOCK_GETTIME) && defined(CLOCK_REALTIME_HR)
   {
     struct timespec
       timer;

     if (clock_gettime(CLOCK_REALTIME_HR,&timer) == 0)
       {
         seconds=timer.tv_sec;
         nanoseconds=timer.tv_nsec;
       }
   }
 #endif
   SetStringInfoLength(chaos,sizeof(seconds));
   SetStringInfoDatum(chaos,(unsigned char *) &seconds);
   ConcatenateStringInfo(entropy,chaos);
   SetStringInfoLength(chaos,sizeof(nanoseconds));
   SetStringInfoDatum(chaos,(unsigned char *) &nanoseconds);
   ConcatenateStringInfo(entropy,chaos);
   nanoseconds=0;
 #if defined(MAGICKCORE_HAVE_CLOCK)
   nanoseconds=clock();
 #endif
 #if defined(MAGICKCORE_HAVE_TIMES)
   {
     struct tms
       timer;

     (void) times(&timer);
     nanoseconds=timer.tms_utime+timer.tms_stime;
   }
 #endif
   SetStringInfoLength(chaos,sizeof(nanoseconds));
   SetStringInfoDatum(chaos,(unsigned char *) &nanoseconds);
   ConcatenateStringInfo(entropy,chaos);
 #if defined(MAGICKCORE_HAVE_MKSTEMP)
   {
     char
       *filename;

     int
       file;

     filename=ConstantString("magickXXXXXX");
     file=mkstemp(filename);
 #if defined(__OS2__)
     setmode(file,O_BINARY);
 #endif
     if (file != -1)
       (void) close(file);
     (void) remove(filename);
     SetStringInfoLength(chaos,strlen(filename));
     SetStringInfoDatum(chaos,(unsigned char *) filename);
     ConcatenateStringInfo(entropy,chaos);
     filename=DestroyString(filename);
   }
 #endif
 #if defined(MAGICKCORE_WINDOWS_SUPPORT)
   {
     double
       seconds;

     LARGE_INTEGER
       nanoseconds;

     MagickBooleanType
       status;

     /*
       Not crytographically strong but better than nothing.
     */
     seconds=NTElapsedTime()+NTUserTime();
     SetStringInfoLength(chaos,sizeof(seconds));
     SetStringInfoDatum(chaos,(unsigned char *) &seconds);
     ConcatenateStringInfo(entropy,chaos);
     if (QueryPerformanceCounter(&nanoseconds) != 0)
       {
         SetStringInfoLength(chaos,sizeof(nanoseconds));
         SetStringInfoDatum(chaos,(unsigned char *) &nanoseconds);
         ConcatenateStringInfo(entropy,chaos);
       }
     /*
       Our best hope for true entropy.
     */
     SetStringInfoLength(chaos,MaxEntropyExtent);
     status=NTGatherRandomData(MaxEntropyExtent,GetStringInfoDatum(chaos));
     ConcatenateStringInfo(entropy,chaos);
   }
 #else
   {
     char
       *filename;

     int
       file;

     ssize_t
       count;

     StringInfo
       *device;

     /*
       Not crytographically strong but better than nothing.
     */
     if (environ != (char **) NULL)
       {
         register ssize_t
           i;

         /*
           Squeeze some entropy from the sometimes unpredicatble environment.
         */
         for (i=0; environ[i] != (char *) NULL; i++)
         {
           SetStringInfoLength(chaos,strlen(environ[i]));
           SetStringInfoDatum(chaos,(unsigned char *) environ[i]);
           ConcatenateStringInfo(entropy,chaos);
         }
       }
     filename=AcquireString("/dev/urandom");
     device=StringToStringInfo(filename);
     device=DestroyStringInfo(device);
     file=open(filename,O_RDONLY | O_BINARY);
     filename=DestroyString(filename);
     if (file != -1)
       {
         SetStringInfoLength(chaos,MaxEntropyExtent);
         count=ReadRandom(file,GetStringInfoDatum(chaos),MaxEntropyExtent);
         (void) close(file);
         SetStringInfoLength(chaos,(size_t) count);
         ConcatenateStringInfo(entropy,chaos);
       }
     if (gather_true_random != MagickFalse)
       {
         /*
           Our best hope for true entropy.
         */
         filename=AcquireString("/dev/random");
         device=StringToStringInfo(filename);
         device=DestroyStringInfo(device);
         file=open(filename,O_RDONLY | O_BINARY);
         filename=DestroyString(filename);
         if (file == -1)
           {
             filename=AcquireString("/dev/srandom");
             device=StringToStringInfo(filename);
             device=DestroyStringInfo(device);
             file=open(filename,O_RDONLY | O_BINARY);
           }
         if (file != -1)
           {
             SetStringInfoLength(chaos,MaxEntropyExtent);
             count=ReadRandom(file,GetStringInfoDatum(chaos),MaxEntropyExtent);
             (void) close(file);
             SetStringInfoLength(chaos,(size_t) count);
             ConcatenateStringInfo(entropy,chaos);
           }
       }
   }
 #endif
   chaos=DestroyStringInfo(chaos);
   UnlockSemaphoreInfo(random_info->semaphore);
   return(entropy);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   G e t P s e u d o R a n d o m V a l u e                                   %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  GetPseudoRandomValue() return a non-negative double-precision floating-point
 %  value uniformly distributed over the interval [0.0, 1.0) with a 2 to the
 %  128th-1 period.
 %
 %  The format of the GetPseudoRandomValue method is:
 %
 %      double GetPseudoRandomValue(RandomInfo *randon_info)
 %
 %  A description of each parameter follows:
 %
 %    o random_info: the random info.
 %
 */
 MagickExport double GetPseudoRandomValue(RandomInfo *random_info)
 {
   register size_t
     *seed;

   size_t
     alpha;

   seed=random_info->seed;
   do
   {
     alpha=(size_t) (seed[1] ^ (seed[1] << 11));
     seed[1]=seed[2];
     seed[2]=seed[3];
     seed[3]=seed[0];
     seed[0]=(seed[0] ^ (seed[0] >> 19)) ^ (alpha ^ (alpha >> 8));
   } while (seed[0] == ~0UL);
   return(random_info->normalize*seed[0]);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   G e t R a n d o m K e y                                                   %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  GetRandomKey() gets a random key from the reservoir.
 %
 %  The format of the GetRandomKey method is:
 %
 %      StringInfo *GetRandomKey(RandomInfo *random_info,const size_t length)
 %
 %  A description of each parameter follows:
 %
 %    o random_info: the random info.
 %
 %    o length: the key length.
 %
 */
 MagickExport StringInfo *GetRandomKey(RandomInfo *random_info,
   const size_t length)
 {
   StringInfo
     *key;

   assert(random_info != (RandomInfo *) NULL);
   key=AcquireStringInfo(length);
   SetRandomKey(random_info,length,GetStringInfoDatum(key));
   return(key);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   G e t R a n d o m V a l u e                                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  GetRandomValue() return a non-negative double-precision floating-point
 %  value uniformly distributed over the interval [0.0, 1.0) with a 2 to the
 %  128th-1 period (not cryptographically strong).
 %
 %  The format of the GetRandomValue method is:
 %
 %      double GetRandomValue(void)
 %
 */
 MagickExport double GetRandomValue(RandomInfo *random_info)
 {
   size_t
     key,
     range;

   range=(~0UL);
   do
   {
     SetRandomKey(random_info,sizeof(key),(unsigned char *) &key);
   } while (key == range);
   return((double) key/range);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   R a n d o m C o m p o n e n t G e n e s i s                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  RandomComponentGenesis() instantiates the random component.
 %
 %  The format of the RandomComponentGenesis method is:
 %
 %      MagickBooleanType RandomComponentGenesis(void)
 %
 */
 MagickExport MagickBooleanType RandomComponentGenesis(void)
 {
   AcquireSemaphoreInfo(&random_semaphore);
   return(MagickTrue);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 +   R a n d o m C o m p o n e n t T e r m i n u s                             %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  RandomComponentTerminus() destroys the random component.
 %
 %  The format of the RandomComponentTerminus method is:
 %
 %      RandomComponentTerminus(void)
 %
 */
 MagickExport void RandomComponentTerminus(void)
 {
   if (random_semaphore == (SemaphoreInfo *) NULL)
     AcquireSemaphoreInfo(&random_semaphore);
   DestroySemaphoreInfo(&random_semaphore);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   S e e d P s e u d o R a n d o m G e n e r a t o r                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  SeedPseudoRandomGenerator() initializes the pseudo-random number generator
 %  with a random seed.
 %
 %  The format of the SeedPseudoRandomGenerator method is:
 %
 %      void SeedPseudoRandomGenerator(const size_t seed)
 %
 %  A description of each parameter follows:
 %
 %    o seed: the seed.
 %
 */
 MagickExport void SeedPseudoRandomGenerator(const size_t seed)
 {
   random_seed=seed;
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   S e t R a n d o m K e y                                                   %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  SetRandomKey() sets a random key from the reservoir.
 %
 %  The format of the SetRandomKey method is:
 %
 %      void SetRandomKey(RandomInfo *random_info,const size_t length,
 %        unsigned char *key)
 %
 %  A description of each parameter follows:
 %
 %    o random_info: the random info.
 %
 %    o length: the key length.
 %
 %    o key: the key.
 %
 */

 static inline void IncrementRandomNonce(StringInfo *nonce)
 {
   register ssize_t
     i;

   unsigned char
     *datum;

   datum=GetStringInfoDatum(nonce);
   for (i=(ssize_t) (GetStringInfoLength(nonce)-1); i != 0; i--)
   {
     datum[i]++;
     if (datum[i] != 0)
       return;
   }
   ThrowFatalException(RandomFatalError,"SequenceWrapError");
 }

 MagickExport void SetRandomKey(RandomInfo *random_info,const size_t length,
   unsigned char *key)
 {
   register size_t
     i;

   register unsigned char
     *p;

   SignatureInfo
     *signature_info;

   unsigned char
     *datum;

   assert(random_info != (RandomInfo *) NULL);
   if (length == 0)
     return;
   LockSemaphoreInfo(random_info->semaphore);
   signature_info=random_info->signature_info;
   datum=GetStringInfoDatum(random_info->reservoir);
   i=length;
   for (p=key; (i != 0) && (random_info->i != 0); i--)
   {
     *p++=datum[random_info->i];
     random_info->i++;
     if (random_info->i == GetSignatureDigestsize(signature_info))
       random_info->i=0;
   }
   while (i >= GetSignatureDigestsize(signature_info))
   {
     InitializeSignature(signature_info);
     UpdateSignature(signature_info,random_info->nonce);
     FinalizeSignature(signature_info);
     IncrementRandomNonce(random_info->nonce);
     (void) CopyMagickMemory(p,GetStringInfoDatum(GetSignatureDigest(
       signature_info)),GetSignatureDigestsize(signature_info));
     p+=GetSignatureDigestsize(signature_info);
     i-=GetSignatureDigestsize(signature_info);
   }
   if (i != 0)
     {
       InitializeSignature(signature_info);
       UpdateSignature(signature_info,random_info->nonce);
       FinalizeSignature(signature_info);
       IncrementRandomNonce(random_info->nonce);
       SetStringInfo(random_info->reservoir,GetSignatureDigest(signature_info));
       random_info->i=i;
       datum=GetStringInfoDatum(random_info->reservoir);
       while (i-- != 0)
         p[i]=datum[i];
     }
   UnlockSemaphoreInfo(random_info->semaphore);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   S e t R a n d o m T r u e R a n d o m                                     %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  SetRandomTrueRandom() declares your intentions to use true random numbers.
 %  True random numbers are encouraged but may not always be practical because
 %  your application may block while entropy is gathered from your environment.
 %
 %  The format of the SetRandomTrueRandom method is:
 %
 %      void SetRandomTrueRandom(const MagickBooleanType true_random)
 %
 %  A description of each parameter follows:
 %
 %    o true_random: declare your intentions to use true-random number.
 %
 */
 MagickExport void SetRandomTrueRandom(const MagickBooleanType true_random)
 {
   gather_true_random=true_random;
 }
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% RRRR AAA N N DDDD OOO M M %
	% R R A A NN N D D O O MM MM %
	% RRRR AAAAA N N N D D O O M M M %
	% R R A A N NN D D O O M M %
	% R R A A N N DDDD OOO M M %
	% %
	% %
	% MagickCore Methods to Generate Random Numbers %
	% %
	% Software Design %
	% John Cristy %
	% December 2001 %
	% %
	% %
	% Copyright 1999-2011 ImageMagick Studio LLC, a non-profit organization %
	% dedicated to making software imaging solutions freely available. %
	% %
	% You may not use this file except in compliance with the License. You may %
	% obtain a copy of the License at %
	% %
	% http://www.imagemagick.org/script/license.php %
	% %
	% Unless required by applicable law or agreed to in writing, software %
	% distributed under the License is distributed on an "AS IS" BASIS, %
	% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
	% See the License for the specific language governing permissions and %
	% limitations under the License. %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% The generation of random numbers is too important to be left to chance.
	% -- Tom Christiansen <tchrist@mox.perl.com>
	%
	%
	*/

	/*
	Include declarations.
	*/
	#if defined(__VMS)
	#include <time.h>
	#endif
	#if defined(__MINGW32__)
	#include <sys/time.h>
	#endif
	#include "magick/studio.h"
	#include "magick/exception.h"
	#include "magick/exception-private.h"
	#include "magick/memory_.h"
	#include "magick/semaphore.h"
	#include "magick/random_.h"
	#include "magick/resource_.h"
	#include "magick/signature-private.h"
	#include "magick/string_.h"
	#include "magick/thread_.h"
	#include "magick/thread-private.h"
	#include "magick/utility.h"
	/*
	Define declarations.
	*/
	#define PseudoRandomHash SHA256Hash
	#define RandomEntropyLevel 9
	#define RandomFilename "reservoir.xdm"
	#define RandomFiletype "random"
	#define RandomProtocolMajorVersion 1
	#define RandomProtocolMinorVersion 0

	/*
	Typedef declarations.
	*/
	struct _RandomInfo
	{
	SignatureInfo
	*signature_info;

	StringInfo
	*nonce,
	*reservoir;

	size_t
	i;

	size_t
	seed[4];

	double
	normalize;

	unsigned short
	protocol_major,
	protocol_minor;

	SemaphoreInfo
	*semaphore;

	ssize_t
	timestamp;

	size_t
	signature;
	};

	/*
	External declarations.
	*/
	#if defined(__APPLE__) && !defined(TARGET_OS_IPHONE)
	#include <crt_externs.h>
	#define environ (*_NSGetEnviron())
	#endif

	extern char
	**environ;

	/*
	Global declarations.
	*/
	static SemaphoreInfo
	random_semaphore = (SemaphoreInfo ) NULL;

	static size_t
	random_seed = ~0UL;

	static MagickBooleanType
	gather_true_random = MagickFalse;

	/*
	Forward declarations.
	*/
	static StringInfo
	GenerateEntropicChaos(RandomInfo );

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% A c q u i r e R a n d o m I n f o %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% AcquireRandomInfo() allocates the RandomInfo structure.
	%
	% The format of the AcquireRandomInfo method is:
	%
	% RandomInfo *AcquireRandomInfo(void)
	%
	*/

	static inline size_t MagickMin(const size_t x,const size_t y)
	{
	if (x < y)
	return(x);
	return(y);
	}

	MagickExport RandomInfo *AcquireRandomInfo(void)
	{
	const StringInfo
	*digest;

	RandomInfo
	*random_info;

	StringInfo
	*entropy,
	*key,
	*nonce;

	random_info=(RandomInfo ) AcquireMagickMemory(sizeof(random_info));
	if (random_info == (RandomInfo *) NULL)
	ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
	(void) ResetMagickMemory(random_info,0,sizeof(*random_info));
	random_info->signature_info=AcquireSignatureInfo();
	random_info->nonce=AcquireStringInfo(2*GetSignatureDigestsize(
	random_info->signature_info));
	ResetStringInfo(random_info->nonce);
	random_info->reservoir=AcquireStringInfo(GetSignatureDigestsize(
	random_info->signature_info));
	ResetStringInfo(random_info->reservoir);
	random_info->normalize=1.0/(~0UL);
	random_info->semaphore=AllocateSemaphoreInfo();
	random_info->protocol_major=RandomProtocolMajorVersion;
	random_info->protocol_minor=RandomProtocolMinorVersion;
	random_info->timestamp=(ssize_t) time(0);
	random_info->signature=MagickSignature;
	/*
	Seed random nonce.
	*/
	nonce=GenerateEntropicChaos(random_info);
	if (nonce == (StringInfo *) NULL)
	ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
	InitializeSignature(random_info->signature_info);
	UpdateSignature(random_info->signature_info,nonce);
	FinalizeSignature(random_info->signature_info);
	SetStringInfoLength(nonce,(GetSignatureDigestsize(
	random_info->signature_info)+1)/2);
	SetStringInfo(nonce,GetSignatureDigest(random_info->signature_info));
	SetStringInfo(random_info->nonce,nonce);
	nonce=DestroyStringInfo(nonce);
	/*
	Seed random reservoir with entropic data.
	*/
	entropy=GenerateEntropicChaos(random_info);
	if (entropy == (StringInfo *) NULL)
	ThrowFatalException(ResourceLimitFatalError,"MemoryAllocationFailed");
	UpdateSignature(random_info->signature_info,entropy);
	FinalizeSignature(random_info->signature_info);
	SetStringInfo(random_info->reservoir,GetSignatureDigest(
	random_info->signature_info));
	entropy=DestroyStringInfo(entropy);
	/*
	Seed pseudo random number generator.
	*/
	if (random_seed == ~0UL)
	{
	key=GetRandomKey(random_info,sizeof(random_seed));
	(void) CopyMagickMemory(random_info->seed,GetStringInfoDatum(key),
	GetStringInfoLength(key));
	key=DestroyStringInfo(key);
	}
	else
	{
	SignatureInfo
	*signature_info;

	signature_info=AcquireSignatureInfo();
	key=AcquireStringInfo(sizeof(random_seed));
	SetStringInfoDatum(key,(unsigned char *) &random_seed);
	UpdateSignature(signature_info,key);
	key=DestroyStringInfo(key);
	FinalizeSignature(signature_info);
	digest=GetSignatureDigest(signature_info);
	(void) CopyMagickMemory(random_info->seed,GetStringInfoDatum(digest),
	MagickMin(GetSignatureDigestsize(signature_info),
	sizeof(*random_info->seed)));
	signature_info=DestroySignatureInfo(signature_info);
	}
	random_info->seed[1]=0x50a7f451UL;
	random_info->seed[2]=0x5365417eUL;
	random_info->seed[3]=0xc3a4171aUL;
	return(random_info);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ D e s t r o y R a n d o m I n f o %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% DestroyRandomInfo() deallocates memory associated with the random
	% reservoir.
	%
	% The format of the DestroyRandomInfo method is:
	%
	% RandomInfo DestroyRandomInfo(RandomInfo random_info)
	%
	% A description of each parameter follows:
	%
	% o random_info: the random info.
	%
	*/
	MagickExport RandomInfo DestroyRandomInfo(RandomInfo random_info)
	{
	(void) LogMagickEvent(TraceEvent,GetMagickModule(),"...");
	assert(random_info != (RandomInfo *) NULL);
	assert(random_info->signature == MagickSignature);
	LockSemaphoreInfo(random_info->semaphore);
	if (random_info->reservoir != (StringInfo *) NULL)
	random_info->reservoir=DestroyStringInfo(random_info->reservoir);
	if (random_info->nonce != (StringInfo *) NULL)
	random_info->nonce=DestroyStringInfo(random_info->nonce);
	if (random_info->signature_info != (SignatureInfo *) NULL)
	random_info->signature_info=DestroySignatureInfo(
	random_info->signature_info);
	(void) ResetMagickMemory(random_info->seed,0,sizeof(*random_info->seed));
	random_info->signature=(~MagickSignature);
	UnlockSemaphoreInfo(random_info->semaphore);
	DestroySemaphoreInfo(&random_info->semaphore);
	random_info=(RandomInfo *) RelinquishMagickMemory(random_info);
	return(random_info);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ G e n e r a t e E n t r o p i c C h a o s %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% GenerateEntropicChaos() generate entropic chaos used to initialize the
	% random reservoir.
	%
	% The format of the GenerateEntropicChaos method is:
	%
	% StringInfo GenerateEntropicChaos(RandomInfo random_info)
	%
	% A description of each parameter follows:
	%
	% o random_info: the random info.
	%
	*/

	#if !defined(MAGICKCORE_WINDOWS_SUPPORT)
	static ssize_t ReadRandom(int file,unsigned char *source,size_t length)
	{
	register unsigned char
	*q;

	ssize_t
	offset,
	count;

	offset=0;
	for (q=source; length != 0; length-=count)
	{
	count=(ssize_t) read(file,q,length);
	if (count <= 0)
	{
	count=0;
	if (errno == EINTR)
	continue;
	return(-1);
	}
	q+=count;
	offset+=count;
	}
	return(offset);
	}
	#endif

	static StringInfo GenerateEntropicChaos(RandomInfo random_info)
	{
	#define MaxEntropyExtent 64

	ssize_t
	pid;

	MagickThreadType
	tid;

	StringInfo
	*chaos,
	*entropy;

	size_t
	nanoseconds,
	seconds;

	/*
	Initialize random reservoir.
	*/
	entropy=AcquireStringInfo(0);
	LockSemaphoreInfo(random_info->semaphore);
	chaos=AcquireStringInfo(sizeof(unsigned char *));
	SetStringInfoDatum(chaos,(unsigned char *) &entropy);
	ConcatenateStringInfo(entropy,chaos);
	SetStringInfoDatum(chaos,(unsigned char *) entropy);
	ConcatenateStringInfo(entropy,chaos);
	pid=(ssize_t) getpid();
	SetStringInfoLength(chaos,sizeof(pid));
	SetStringInfoDatum(chaos,(unsigned char *) &pid);
	ConcatenateStringInfo(entropy,chaos);
	tid=GetMagickThreadId();
	SetStringInfoLength(chaos,sizeof(tid));
	SetStringInfoDatum(chaos,(unsigned char *) &tid);
	ConcatenateStringInfo(entropy,chaos);
	#if defined(MAGICKCORE_HAVE_GETRUSAGE) && defined(RUSAGE_SELF)
	{
	struct rusage
	usage;

	if (getrusage(RUSAGE_SELF,&usage) == 0)
	{
	SetStringInfoLength(chaos,sizeof(usage));
	SetStringInfoDatum(chaos,(unsigned char *) &usage);
	}
	}
	#endif
	seconds=time((time_t *) 0);
	nanoseconds=0;
	#if defined(MAGICKCORE_HAVE_GETTIMEOFDAY)
	{
	struct timeval
	timer;

	if (gettimeofday(&timer,(struct timezone *) NULL) == 0)
	{
	seconds=timer.tv_sec;
	nanoseconds=1000UL*timer.tv_usec;
	}
	}
	#endif
	#if defined(MAGICKCORE_HAVE_CLOCK_GETTIME) && defined(CLOCK_REALTIME_HR)
	{
	struct timespec
	timer;

	if (clock_gettime(CLOCK_REALTIME_HR,&timer) == 0)
	{
	seconds=timer.tv_sec;
	nanoseconds=timer.tv_nsec;
	}
	}
	#endif
	SetStringInfoLength(chaos,sizeof(seconds));
	SetStringInfoDatum(chaos,(unsigned char *) &seconds);
	ConcatenateStringInfo(entropy,chaos);
	SetStringInfoLength(chaos,sizeof(nanoseconds));
	SetStringInfoDatum(chaos,(unsigned char *) &nanoseconds);
	ConcatenateStringInfo(entropy,chaos);
	nanoseconds=0;
	#if defined(MAGICKCORE_HAVE_CLOCK)
	nanoseconds=clock();
	#endif
	#if defined(MAGICKCORE_HAVE_TIMES)
	{
	struct tms
	timer;

	(void) times(&timer);
	nanoseconds=timer.tms_utime+timer.tms_stime;
	}
	#endif
	SetStringInfoLength(chaos,sizeof(nanoseconds));
	SetStringInfoDatum(chaos,(unsigned char *) &nanoseconds);
	ConcatenateStringInfo(entropy,chaos);
	#if defined(MAGICKCORE_HAVE_MKSTEMP)
	{
	char
	*filename;

	int
	file;

	filename=ConstantString("magickXXXXXX");
	file=mkstemp(filename);
	#if defined(__OS2__)
	setmode(file,O_BINARY);
	#endif
	if (file != -1)
	(void) close(file);
	(void) remove(filename);
	SetStringInfoLength(chaos,strlen(filename));
	SetStringInfoDatum(chaos,(unsigned char *) filename);
	ConcatenateStringInfo(entropy,chaos);
	filename=DestroyString(filename);
	}
	#endif
	#if defined(MAGICKCORE_WINDOWS_SUPPORT)
	{
	double
	seconds;

	LARGE_INTEGER
	nanoseconds;

	MagickBooleanType
	status;

	/*
	Not crytographically strong but better than nothing.
	*/
	seconds=NTElapsedTime()+NTUserTime();
	SetStringInfoLength(chaos,sizeof(seconds));
	SetStringInfoDatum(chaos,(unsigned char *) &seconds);
	ConcatenateStringInfo(entropy,chaos);
	if (QueryPerformanceCounter(&nanoseconds) != 0)
	{
	SetStringInfoLength(chaos,sizeof(nanoseconds));
	SetStringInfoDatum(chaos,(unsigned char *) &nanoseconds);
	ConcatenateStringInfo(entropy,chaos);
	}
	/*
	Our best hope for true entropy.
	*/
	SetStringInfoLength(chaos,MaxEntropyExtent);
	status=NTGatherRandomData(MaxEntropyExtent,GetStringInfoDatum(chaos));
	ConcatenateStringInfo(entropy,chaos);
	}
	#else
	{
	char
	*filename;

	int
	file;

	ssize_t
	count;

	StringInfo
	*device;

	/*
	Not crytographically strong but better than nothing.
	*/
	if (environ != (char **) NULL)
	{
	register ssize_t
	i;

	/*
	Squeeze some entropy from the sometimes unpredicatble environment.
	*/
	for (i=0; environ[i] != (char *) NULL; i++)
	{
	SetStringInfoLength(chaos,strlen(environ[i]));
	SetStringInfoDatum(chaos,(unsigned char *) environ[i]);
	ConcatenateStringInfo(entropy,chaos);
	}
	}
	filename=AcquireString("/dev/urandom");
	device=StringToStringInfo(filename);
	device=DestroyStringInfo(device);
	file=open(filename,O_RDONLY \| O_BINARY);
	filename=DestroyString(filename);
	if (file != -1)
	{
	SetStringInfoLength(chaos,MaxEntropyExtent);
	count=ReadRandom(file,GetStringInfoDatum(chaos),MaxEntropyExtent);
	(void) close(file);
	SetStringInfoLength(chaos,(size_t) count);
	ConcatenateStringInfo(entropy,chaos);
	}
	if (gather_true_random != MagickFalse)
	{
	/*
	Our best hope for true entropy.
	*/
	filename=AcquireString("/dev/random");
	device=StringToStringInfo(filename);
	device=DestroyStringInfo(device);
	file=open(filename,O_RDONLY \| O_BINARY);
	filename=DestroyString(filename);
	if (file == -1)
	{
	filename=AcquireString("/dev/srandom");
	device=StringToStringInfo(filename);
	device=DestroyStringInfo(device);
	file=open(filename,O_RDONLY \| O_BINARY);
	}
	if (file != -1)
	{
	SetStringInfoLength(chaos,MaxEntropyExtent);
	count=ReadRandom(file,GetStringInfoDatum(chaos),MaxEntropyExtent);
	(void) close(file);
	SetStringInfoLength(chaos,(size_t) count);
	ConcatenateStringInfo(entropy,chaos);
	}
	}
	}
	#endif
	chaos=DestroyStringInfo(chaos);
	UnlockSemaphoreInfo(random_info->semaphore);
	return(entropy);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% G e t P s e u d o R a n d o m V a l u e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% GetPseudoRandomValue() return a non-negative double-precision floating-point
	% value uniformly distributed over the interval [0.0, 1.0) with a 2 to the
	% 128th-1 period.
	%
	% The format of the GetPseudoRandomValue method is:
	%
	% double GetPseudoRandomValue(RandomInfo *randon_info)
	%
	% A description of each parameter follows:
	%
	% o random_info: the random info.
	%
	*/
	MagickExport double GetPseudoRandomValue(RandomInfo *random_info)
	{
	register size_t
	*seed;

	size_t
	alpha;

	seed=random_info->seed;
	do
	{
	alpha=(size_t) (seed[1] ^ (seed[1] << 11));
	seed[1]=seed[2];
	seed[2]=seed[3];
	seed[3]=seed[0];
	seed[0]=(seed[0] ^ (seed[0] >> 19)) ^ (alpha ^ (alpha >> 8));
	} while (seed[0] == ~0UL);
	return(random_info->normalize*seed[0]);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% G e t R a n d o m K e y %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% GetRandomKey() gets a random key from the reservoir.
	%
	% The format of the GetRandomKey method is:
	%
	% StringInfo GetRandomKey(RandomInfo random_info,const size_t length)
	%
	% A description of each parameter follows:
	%
	% o random_info: the random info.
	%
	% o length: the key length.
	%
	*/
	MagickExport StringInfo GetRandomKey(RandomInfo random_info,
	const size_t length)
	{
	StringInfo
	*key;

	assert(random_info != (RandomInfo *) NULL);
	key=AcquireStringInfo(length);
	SetRandomKey(random_info,length,GetStringInfoDatum(key));
	return(key);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% G e t R a n d o m V a l u e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% GetRandomValue() return a non-negative double-precision floating-point
	% value uniformly distributed over the interval [0.0, 1.0) with a 2 to the
	% 128th-1 period (not cryptographically strong).
	%
	% The format of the GetRandomValue method is:
	%
	% double GetRandomValue(void)
	%
	*/
	MagickExport double GetRandomValue(RandomInfo *random_info)
	{
	size_t
	key,
	range;

	range=(~0UL);
	do
	{
	SetRandomKey(random_info,sizeof(key),(unsigned char *) &key);
	} while (key == range);
	return((double) key/range);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ R a n d o m C o m p o n e n t G e n e s i s %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% RandomComponentGenesis() instantiates the random component.
	%
	% The format of the RandomComponentGenesis method is:
	%
	% MagickBooleanType RandomComponentGenesis(void)
	%
	*/
	MagickExport MagickBooleanType RandomComponentGenesis(void)
	{
	AcquireSemaphoreInfo(&random_semaphore);
	return(MagickTrue);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	+ R a n d o m C o m p o n e n t T e r m i n u s %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% RandomComponentTerminus() destroys the random component.
	%
	% The format of the RandomComponentTerminus method is:
	%
	% RandomComponentTerminus(void)
	%
	*/
	MagickExport void RandomComponentTerminus(void)
	{
	if (random_semaphore == (SemaphoreInfo *) NULL)
	AcquireSemaphoreInfo(&random_semaphore);
	DestroySemaphoreInfo(&random_semaphore);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% S e e d P s e u d o R a n d o m G e n e r a t o r %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% SeedPseudoRandomGenerator() initializes the pseudo-random number generator
	% with a random seed.
	%
	% The format of the SeedPseudoRandomGenerator method is:
	%
	% void SeedPseudoRandomGenerator(const size_t seed)
	%
	% A description of each parameter follows:
	%
	% o seed: the seed.
	%
	*/
	MagickExport void SeedPseudoRandomGenerator(const size_t seed)
	{
	random_seed=seed;
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% S e t R a n d o m K e y %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% SetRandomKey() sets a random key from the reservoir.
	%
	% The format of the SetRandomKey method is:
	%
	% void SetRandomKey(RandomInfo *random_info,const size_t length,
	% unsigned char *key)
	%
	% A description of each parameter follows:
	%
	% o random_info: the random info.
	%
	% o length: the key length.
	%
	% o key: the key.
	%
	*/

	static inline void IncrementRandomNonce(StringInfo *nonce)
	{
	register ssize_t
	i;

	unsigned char
	*datum;

	datum=GetStringInfoDatum(nonce);
	for (i=(ssize_t) (GetStringInfoLength(nonce)-1); i != 0; i--)
	{
	datum[i]++;
	if (datum[i] != 0)
	return;
	}
	ThrowFatalException(RandomFatalError,"SequenceWrapError");
	}

	MagickExport void SetRandomKey(RandomInfo *random_info,const size_t length,
	unsigned char *key)
	{
	register size_t
	i;

	register unsigned char
	*p;

	SignatureInfo
	*signature_info;

	unsigned char
	*datum;

	assert(random_info != (RandomInfo *) NULL);
	if (length == 0)
	return;
	LockSemaphoreInfo(random_info->semaphore);
	signature_info=random_info->signature_info;
	datum=GetStringInfoDatum(random_info->reservoir);
	i=length;
	for (p=key; (i != 0) && (random_info->i != 0); i--)
	{
	*p++=datum[random_info->i];
	random_info->i++;
	if (random_info->i == GetSignatureDigestsize(signature_info))
	random_info->i=0;
	}
	while (i >= GetSignatureDigestsize(signature_info))
	{
	InitializeSignature(signature_info);
	UpdateSignature(signature_info,random_info->nonce);
	FinalizeSignature(signature_info);
	IncrementRandomNonce(random_info->nonce);
	(void) CopyMagickMemory(p,GetStringInfoDatum(GetSignatureDigest(
	signature_info)),GetSignatureDigestsize(signature_info));
	p+=GetSignatureDigestsize(signature_info);
	i-=GetSignatureDigestsize(signature_info);
	}
	if (i != 0)
	{
	InitializeSignature(signature_info);
	UpdateSignature(signature_info,random_info->nonce);
	FinalizeSignature(signature_info);
	IncrementRandomNonce(random_info->nonce);
	SetStringInfo(random_info->reservoir,GetSignatureDigest(signature_info));
	random_info->i=i;
	datum=GetStringInfoDatum(random_info->reservoir);
	while (i-- != 0)
	p[i]=datum[i];
	}
	UnlockSemaphoreInfo(random_info->semaphore);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% S e t R a n d o m T r u e R a n d o m %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% SetRandomTrueRandom() declares your intentions to use true random numbers.
	% True random numbers are encouraged but may not always be practical because
	% your application may block while entropy is gathered from your environment.
	%
	% The format of the SetRandomTrueRandom method is:
	%
	% void SetRandomTrueRandom(const MagickBooleanType true_random)
	%
	% A description of each parameter follows:
	%
	% o true_random: declare your intentions to use true-random number.
	%
	*/
	MagickExport void SetRandomTrueRandom(const MagickBooleanType true_random)
	{
	gather_true_random=true_random;
	}