| /* |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % % |
| % % |
| % 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 % |
| % Cristy % |
| % December 2001 % |
| % % |
| % % |
| % Copyright 1999-2015 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__) || defined(__MINGW64__) |
| #include <sys/time.h> |
| #endif |
| #include "MagickCore/studio.h" |
| #include "MagickCore/exception.h" |
| #include "MagickCore/exception-private.h" |
| #include "MagickCore/image-private.h" |
| #include "MagickCore/memory_.h" |
| #include "MagickCore/semaphore.h" |
| #include "MagickCore/random_.h" |
| #include "MagickCore/random-private.h" |
| #include "MagickCore/resource_.h" |
| #include "MagickCore/signature-private.h" |
| #include "MagickCore/string_.h" |
| #include "MagickCore/thread_.h" |
| #include "MagickCore/thread-private.h" |
| #include "MagickCore/utility.h" |
| #include "MagickCore/utility-private.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; |
| |
| unsigned long |
| seed[4]; |
| |
| double |
| normalize; |
| |
| unsigned long |
| secret_key; |
| |
| 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 |
| |
| #if !defined(MAGICKCORE_WINDOWS_SUPPORT) |
| extern char |
| **environ; |
| #endif |
| |
| /* |
| Global declarations. |
| */ |
| static SemaphoreInfo |
| *random_semaphore = (SemaphoreInfo *) NULL; |
| |
| static unsigned long |
| secret_key = ~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) |
| % |
| */ |
| |
| 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->secret_key=secret_key; |
| random_info->protocol_major=RandomProtocolMajorVersion; |
| random_info->protocol_minor=RandomProtocolMinorVersion; |
| random_info->semaphore=AcquireSemaphoreInfo(); |
| 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_info->secret_key == ~0UL) |
| { |
| key=GetRandomKey(random_info,sizeof(random_info->secret_key)); |
| (void) CopyMagickMemory(random_info->seed,GetStringInfoDatum(key), |
| GetStringInfoLength(key)); |
| key=DestroyStringInfo(key); |
| } |
| else |
| { |
| SignatureInfo |
| *signature_info; |
| |
| signature_info=AcquireSignatureInfo(); |
| key=AcquireStringInfo(sizeof(random_info->secret_key)); |
| SetStringInfoDatum(key,(unsigned char *) &random_info->secret_key); |
| 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); |
| RelinquishSemaphoreInfo(&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 |
| |
| MagickThreadType |
| tid; |
| |
| StringInfo |
| *chaos, |
| *entropy; |
| |
| size_t |
| nanoseconds, |
| seconds; |
| |
| ssize_t |
| pid; |
| |
| /* |
| 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_SYSCONF) && defined(_SC_PHYS_PAGES) |
| { |
| ssize_t |
| pages; |
| |
| pages=(ssize_t) sysconf(_SC_PHYS_PAGES); |
| SetStringInfoLength(chaos,sizeof(pages)); |
| SetStringInfoDatum(chaos,(unsigned char *) &pages); |
| ConcatenateStringInfo(entropy,chaos); |
| } |
| #endif |
| #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 |
| path[MagickPathExtent]; |
| |
| int |
| file; |
| |
| (void) GetPathTemplate(path); |
| file=mkstemp(path); |
| if (file != -1) |
| { |
| (void) fchmod(file,0600); |
| #if defined(__OS2__) |
| setmode(file,O_BINARY); |
| #endif |
| (void) close(file); |
| } |
| (void) remove_utf8(path); |
| SetStringInfoLength(chaos,strlen(path)); |
| SetStringInfoDatum(chaos,(unsigned char *) path); |
| ConcatenateStringInfo(entropy,chaos); |
| } |
| #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)); |
| (void) status; |
| 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_utf8(filename,O_RDONLY | O_BINARY,0); |
| 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_utf8(filename,O_RDONLY | O_BINARY,0); |
| filename=DestroyString(filename); |
| if (file == -1) |
| { |
| filename=AcquireString("/dev/srandom"); |
| device=StringToStringInfo(filename); |
| device=DestroyStringInfo(device); |
| file=open_utf8(filename,O_RDONLY | O_BINARY,0); |
| } |
| 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 unsigned long |
| *seed; |
| |
| unsigned long |
| alpha; |
| |
| seed=random_info->seed; |
| do |
| { |
| alpha=(unsigned long) (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 I n f o N o r m a l i z e % |
| % % |
| % % |
| % % |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % |
| % GetRandomInfoNormalize() returns the random normalize value. |
| % |
| % The format of the GetRandomInfoNormalize method is: |
| % |
| % double GetRandomInfoNormalize(const RandomInfo *random_info) |
| % |
| % A description of each parameter follows: |
| % |
| % o random_info: the random info. |
| % |
| */ |
| MagickPrivate double GetRandomInfoNormalize(const RandomInfo *random_info) |
| { |
| assert(random_info != (const RandomInfo *) NULL); |
| return(random_info->normalize); |
| } |
| |
| /* |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % % |
| % % |
| % % |
| + G e t R a n d o m I n f o S e e d % |
| % % |
| % % |
| % % |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % |
| % GetRandomInfoSeed() returns the random seed. |
| % |
| % The format of the GetRandomInfoSeed method is: |
| % |
| % unsigned long *GetRandomInfoSeed(RandomInfo *random_info) |
| % |
| % A description of each parameter follows: |
| % |
| % o random_info: the random info. |
| % |
| */ |
| MagickPrivate unsigned long *GetRandomInfoSeed(RandomInfo *random_info) |
| { |
| assert(random_info != (RandomInfo *) NULL); |
| return(random_info->seed); |
| } |
| |
| /* |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % % |
| % % |
| % % |
| % 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 S e c r e t K e y % |
| % % |
| % % |
| % % |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % |
| % GetRandomSecretKey() returns the random secet key. |
| % |
| % The format of the GetRandomSecretKey method is: |
| % |
| % unsigned long GetRandomSecretKey(const RandomInfo *random_info) |
| % |
| % A description of each parameter follows: |
| % |
| % o random_info: the random info. |
| */ |
| MagickExport unsigned long GetRandomSecretKey(const RandomInfo *random_info) |
| { |
| return(random_info->secret_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) |
| { |
| unsigned long |
| 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) |
| % |
| */ |
| MagickPrivate MagickBooleanType RandomComponentGenesis(void) |
| { |
| if (random_semaphore == (SemaphoreInfo *) NULL) |
| random_semaphore=AcquireSemaphoreInfo(); |
| 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) |
| % |
| */ |
| MagickPrivate void RandomComponentTerminus(void) |
| { |
| if (random_semaphore == (SemaphoreInfo *) NULL) |
| ActivateSemaphoreInfo(&random_semaphore); |
| RelinquishSemaphoreInfo(&random_semaphore); |
| } |
| |
| /* |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % % |
| % % |
| % % |
| % 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 S e c r e t K e y % |
| % % |
| % % |
| % % |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % |
| % SetRandomSecretKey() sets the pseudo-random number generator secret key. |
| % |
| % The format of the SetRandomSecretKey method is: |
| % |
| % void SetRandomSecretKey(const unsigned long key) |
| % |
| % A description of each parameter follows: |
| % |
| % o key: the secret seed. |
| % |
| */ |
| MagickExport void SetRandomSecretKey(const unsigned long key) |
| { |
| secret_key=key; |
| } |
| |
| /* |
| %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| % % |
| % % |
| % % |
| % 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; |
| } |