/ Hex Artifact Content
Login

Artifact 6119474a6f6917f708c1dee25b9a8e519a620e88:


0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65  /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68  mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69  e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20  ms copyright to 
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65  this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a  .  In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65  * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73  , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d  sing:.**.**    M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20  nd not evil..** 
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20  give others..** 
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a  you give..**.***
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66  ******.** This f
0180: 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 63 6f 64  ile contains cod
0190: 65 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 61  e to implement a
01a0: 20 70 73 65 75 64 6f 2d 72 61 6e 64 6f 6d 20 6e   pseudo-random n
01b0: 75 6d 62 65 72 0a 2a 2a 20 67 65 6e 65 72 61 74  umber.** generat
01c0: 6f 72 20 28 50 52 4e 47 29 20 66 6f 72 20 53 51  or (PRNG) for SQ
01d0: 4c 69 74 65 2e 0a 2a 2a 0a 2a 2a 20 52 61 6e 64  Lite..**.** Rand
01e0: 6f 6d 20 6e 75 6d 62 65 72 73 20 61 72 65 20 75  om numbers are u
01f0: 73 65 64 20 62 79 20 73 6f 6d 65 20 6f 66 20 74  sed by some of t
0200: 68 65 20 64 61 74 61 62 61 73 65 20 62 61 63 6b  he database back
0210: 65 6e 64 73 20 69 6e 20 6f 72 64 65 72 0a 2a 2a  ends in order.**
0220: 20 74 6f 20 67 65 6e 65 72 61 74 65 20 72 61 6e   to generate ran
0230: 64 6f 6d 20 69 6e 74 65 67 65 72 20 6b 65 79 73  dom integer keys
0240: 20 66 6f 72 20 74 61 62 6c 65 73 20 6f 72 20 72   for tables or r
0250: 61 6e 64 6f 6d 20 66 69 6c 65 6e 61 6d 65 73 2e  andom filenames.
0260: 0a 2a 2a 0a 2a 2a 20 24 49 64 3a 20 72 61 6e 64  .**.** $Id: rand
0270: 6f 6d 2e 63 2c 76 20 31 2e 31 36 20 32 30 30 37  om.c,v 1.16 2007
0280: 2f 30 31 2f 30 35 20 31 34 3a 33 38 3a 35 36 20  /01/05 14:38:56 
0290: 64 72 68 20 45 78 70 20 24 0a 2a 2f 0a 23 69 6e  drh Exp $.*/.#in
02a0: 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74  clude "sqliteInt
02b0: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73  .h".#include "os
02c0: 2e 68 22 0a 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 20  .h".../*.** Get 
02d0: 61 20 73 69 6e 67 6c 65 20 38 2d 62 69 74 20 72  a single 8-bit r
02e0: 61 6e 64 6f 6d 20 76 61 6c 75 65 20 66 72 6f 6d  andom value from
02f0: 20 74 68 65 20 52 43 34 20 50 52 4e 47 2e 20 20   the RC4 PRNG.  
0300: 54 68 65 20 4d 75 74 65 78 0a 2a 2a 20 6d 75 73  The Mutex.** mus
0310: 74 20 62 65 20 68 65 6c 64 20 77 68 69 6c 65 20  t be held while 
0320: 65 78 65 63 75 74 69 6e 67 20 74 68 69 73 20 72  executing this r
0330: 6f 75 74 69 6e 65 2e 0a 2a 2a 0a 2a 2a 20 57 68  outine..**.** Wh
0340: 79 20 6e 6f 74 20 6a 75 73 74 20 75 73 65 20 61  y not just use a
0350: 20 6c 69 62 72 61 72 79 20 72 61 6e 64 6f 6d 20   library random 
0360: 67 65 6e 65 72 61 74 6f 72 20 6c 69 6b 65 20 6c  generator like l
0370: 72 61 6e 64 34 38 28 29 20 66 6f 72 20 74 68 69  rand48() for thi
0380: 73 3f 0a 2a 2a 20 42 65 63 61 75 73 65 20 74 68  s?.** Because th
0390: 65 20 4f 50 5f 4e 65 77 52 6f 77 69 64 20 6f 70  e OP_NewRowid op
03a0: 63 6f 64 65 20 69 6e 20 74 68 65 20 56 44 42 45  code in the VDBE
03b0: 20 64 65 70 65 6e 64 73 20 6f 6e 20 68 61 76 69   depends on havi
03c0: 6e 67 20 61 20 76 65 72 79 0a 2a 2a 20 67 6f 6f  ng a very.** goo
03d0: 64 20 73 6f 75 72 63 65 20 6f 66 20 72 61 6e 64  d source of rand
03e0: 6f 6d 20 6e 75 6d 62 65 72 73 2e 20 20 54 68 65  om numbers.  The
03f0: 20 6c 72 61 6e 64 34 38 28 29 20 6c 69 62 72 61   lrand48() libra
0400: 72 79 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 0a  ry function may.
0410: 2a 2a 20 77 65 6c 6c 20 62 65 20 67 6f 6f 64 20  ** well be good 
0420: 65 6e 6f 75 67 68 2e 20 20 42 75 74 20 6d 61 79  enough.  But may
0430: 62 65 20 6e 6f 74 2e 20 20 4f 72 20 6d 61 79 62  be not.  Or mayb
0440: 65 20 6c 72 61 6e 64 34 38 28 29 20 68 61 73 20  e lrand48() has 
0450: 73 6f 6d 65 0a 2a 2a 20 73 75 62 74 6c 65 20 70  some.** subtle p
0460: 72 6f 62 6c 65 6d 73 20 6f 6e 20 73 6f 6d 65 20  roblems on some 
0470: 73 79 73 74 65 6d 73 20 74 68 61 74 20 63 6f 75  systems that cou
0480: 6c 64 20 63 61 75 73 65 20 70 72 6f 62 6c 65 6d  ld cause problem
0490: 73 2e 20 20 49 74 20 69 73 20 68 61 72 64 0a 2a  s.  It is hard.*
04a0: 2a 20 74 6f 20 6b 6e 6f 77 2e 20 20 54 6f 20 6d  * to know.  To m
04b0: 69 6e 69 6d 69 7a 65 20 74 68 65 20 72 69 73 6b  inimize the risk
04c0: 20 6f 66 20 70 72 6f 62 6c 65 6d 73 20 64 75 65   of problems due
04d0: 20 74 6f 20 62 61 64 20 6c 72 61 6e 64 34 38 28   to bad lrand48(
04e0: 29 0a 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 61 74  ).** implementat
04f0: 69 6f 6e 73 2c 20 53 51 4c 69 74 65 20 75 73 65  ions, SQLite use
0500: 73 20 74 68 69 73 20 72 61 6e 64 6f 6d 20 6e 75  s this random nu
0510: 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72 20 62  mber generator b
0520: 61 73 65 64 0a 2a 2a 20 6f 6e 20 52 43 34 2c 20  ased.** on RC4, 
0530: 77 68 69 63 68 20 77 65 20 6b 6e 6f 77 20 77 6f  which we know wo
0540: 72 6b 73 20 76 65 72 79 20 77 65 6c 6c 2e 0a 2a  rks very well..*
0550: 2a 0a 2a 2a 20 28 4c 61 74 65 72 29 3a 20 20 41  *.** (Later):  A
0560: 63 74 75 61 6c 6c 79 2c 20 4f 50 5f 4e 65 77 52  ctually, OP_NewR
0570: 6f 77 69 64 20 64 6f 65 73 20 6e 6f 74 20 64 65  owid does not de
0580: 70 65 6e 64 20 6f 6e 20 61 20 67 6f 6f 64 20 73  pend on a good s
0590: 6f 75 72 63 65 20 6f 66 0a 2a 2a 20 72 61 6e 64  ource of.** rand
05a0: 6f 6d 6e 65 73 73 20 61 6e 79 20 6d 6f 72 65 2e  omness any more.
05b0: 20 20 42 75 74 20 77 65 20 77 69 6c 6c 20 6c 65    But we will le
05c0: 61 76 65 20 74 68 69 73 20 63 6f 64 65 20 69 6e  ave this code in
05d0: 20 61 6c 6c 20 74 68 65 20 73 61 6d 65 2e 0a 2a   all the same..*
05e0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 72 61 6e  /.static int ran
05f0: 64 6f 6d 42 79 74 65 28 76 6f 69 64 29 7b 0a 20  domByte(void){. 
0600: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 74   unsigned char t
0610: 3b 0a 0a 20 20 2f 2a 20 41 6c 6c 20 74 68 72 65  ;..  /* All thre
0620: 61 64 73 20 73 68 61 72 65 20 61 20 73 69 6e 67  ads share a sing
0630: 6c 65 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72  le random number
0640: 20 67 65 6e 65 72 61 74 6f 72 2e 0a 20 20 2a 2a   generator..  **
0650: 20 54 68 69 73 20 73 74 72 75 63 74 75 72 65 20   This structure 
0660: 69 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 73  is the current s
0670: 74 61 74 65 20 6f 66 20 74 68 65 20 67 65 6e 65  tate of the gene
0680: 72 61 74 6f 72 2e 0a 20 20 2a 2f 0a 20 20 73 74  rator..  */.  st
0690: 61 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20  atic struct {.  
06a0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20    unsigned char 
06b0: 69 73 49 6e 69 74 3b 20 20 20 20 20 20 20 20 20  isInit;         
06c0: 20 2f 2a 20 54 72 75 65 20 69 66 20 69 6e 69 74   /* True if init
06d0: 69 61 6c 69 7a 65 64 20 2a 2f 0a 20 20 20 20 75  ialized */.    u
06e0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 69 2c 20  nsigned char i, 
06f0: 6a 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  j;            /*
0700: 20 53 74 61 74 65 20 76 61 72 69 61 62 6c 65 73   State variables
0710: 20 2a 2f 0a 20 20 20 20 75 6e 73 69 67 6e 65 64   */.    unsigned
0720: 20 63 68 61 72 20 73 5b 32 35 36 5d 3b 20 20 20   char s[256];   
0730: 20 20 20 20 20 20 20 2f 2a 20 53 74 61 74 65 20         /* State 
0740: 76 61 72 69 61 62 6c 65 73 20 2a 2f 0a 20 20 7d  variables */.  }
0750: 20 70 72 6e 67 3b 0a 0a 20 20 2f 2a 20 49 6e 69   prng;..  /* Ini
0760: 74 69 61 6c 69 7a 65 20 74 68 65 20 73 74 61 74  tialize the stat
0770: 65 20 6f 66 20 74 68 65 20 72 61 6e 64 6f 6d 20  e of the random 
0780: 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72  number generator
0790: 20 6f 6e 63 65 2c 0a 20 20 2a 2a 20 74 68 65 20   once,.  ** the 
07a0: 66 69 72 73 74 20 74 69 6d 65 20 74 68 69 73 20  first time this 
07b0: 72 6f 75 74 69 6e 65 20 69 73 20 63 61 6c 6c 65  routine is calle
07c0: 64 2e 20 20 54 68 65 20 73 65 65 64 20 76 61 6c  d.  The seed val
07d0: 75 65 20 64 6f 65 73 0a 20 20 2a 2a 20 6e 6f 74  ue does.  ** not
07e0: 20 6e 65 65 64 20 74 6f 20 63 6f 6e 74 61 69 6e   need to contain
07f0: 20 61 20 6c 6f 74 20 6f 66 20 72 61 6e 64 6f 6d   a lot of random
0800: 6e 65 73 73 20 73 69 6e 63 65 20 77 65 20 61 72  ness since we ar
0810: 65 20 6e 6f 74 0a 20 20 2a 2a 20 74 72 79 69 6e  e not.  ** tryin
0820: 67 20 74 6f 20 64 6f 20 73 65 63 75 72 65 20 65  g to do secure e
0830: 6e 63 72 79 70 74 69 6f 6e 20 6f 72 20 61 6e 79  ncryption or any
0840: 74 68 69 6e 67 20 6c 69 6b 65 20 74 68 61 74 2e  thing like that.
0850: 2e 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 4e 6f 74  ...  **.  ** Not
0860: 68 69 6e 67 20 69 6e 20 74 68 69 73 20 66 69 6c  hing in this fil
0870: 65 20 6f 72 20 61 6e 79 77 68 65 72 65 20 65 6c  e or anywhere el
0880: 73 65 20 69 6e 20 53 51 4c 69 74 65 20 64 6f 65  se in SQLite doe
0890: 73 20 61 6e 79 20 6b 69 6e 64 20 6f 66 0a 20 20  s any kind of.  
08a0: 2a 2a 20 65 6e 63 72 79 70 74 69 6f 6e 2e 20 20  ** encryption.  
08b0: 54 68 65 20 52 43 34 20 61 6c 67 6f 72 69 74 68  The RC4 algorith
08c0: 6d 20 69 73 20 62 65 69 6e 67 20 75 73 65 64 20  m is being used 
08d0: 61 73 20 61 20 50 52 4e 47 20 28 70 73 65 75 64  as a PRNG (pseud
08e0: 6f 2d 72 61 6e 64 6f 6d 0a 20 20 2a 2a 20 6e 75  o-random.  ** nu
08f0: 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72 29 20  mber generator) 
0900: 6e 6f 74 20 61 73 20 61 6e 20 65 6e 63 72 79 70  not as an encryp
0910: 74 69 6f 6e 20 64 65 76 69 63 65 2e 0a 20 20 2a  tion device..  *
0920: 2f 0a 20 20 69 66 28 20 21 70 72 6e 67 2e 69 73  /.  if( !prng.is
0930: 49 6e 69 74 20 29 7b 0a 20 20 20 20 69 6e 74 20  Init ){.    int 
0940: 69 3b 0a 20 20 20 20 63 68 61 72 20 6b 5b 32 35  i;.    char k[25
0950: 36 5d 3b 0a 20 20 20 20 70 72 6e 67 2e 6a 20 3d  6];.    prng.j =
0960: 20 30 3b 0a 20 20 20 20 70 72 6e 67 2e 69 20 3d   0;.    prng.i =
0970: 20 30 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 4f   0;.    sqlite3O
0980: 73 52 61 6e 64 6f 6d 53 65 65 64 28 6b 29 3b 0a  sRandomSeed(k);.
0990: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 32      for(i=0; i<2
09a0: 35 36 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  56; i++){.      
09b0: 70 72 6e 67 2e 73 5b 69 5d 20 3d 20 69 3b 0a 20  prng.s[i] = i;. 
09c0: 20 20 20 7d 0a 20 20 20 20 66 6f 72 28 69 3d 30     }.    for(i=0
09d0: 3b 20 69 3c 32 35 36 3b 20 69 2b 2b 29 7b 0a 20  ; i<256; i++){. 
09e0: 20 20 20 20 20 70 72 6e 67 2e 6a 20 2b 3d 20 70       prng.j += p
09f0: 72 6e 67 2e 73 5b 69 5d 20 2b 20 6b 5b 69 5d 3b  rng.s[i] + k[i];
0a00: 0a 20 20 20 20 20 20 74 20 3d 20 70 72 6e 67 2e  .      t = prng.
0a10: 73 5b 70 72 6e 67 2e 6a 5d 3b 0a 20 20 20 20 20  s[prng.j];.     
0a20: 20 70 72 6e 67 2e 73 5b 70 72 6e 67 2e 6a 5d 20   prng.s[prng.j] 
0a30: 3d 20 70 72 6e 67 2e 73 5b 69 5d 3b 0a 20 20 20  = prng.s[i];.   
0a40: 20 20 20 70 72 6e 67 2e 73 5b 69 5d 20 3d 20 74     prng.s[i] = t
0a50: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 72 6e 67  ;.    }.    prng
0a60: 2e 69 73 49 6e 69 74 20 3d 20 31 3b 0a 20 20 7d  .isInit = 1;.  }
0a70: 0a 0a 20 20 2f 2a 20 47 65 6e 65 72 61 74 65 20  ..  /* Generate 
0a80: 61 6e 64 20 72 65 74 75 72 6e 20 73 69 6e 67 6c  and return singl
0a90: 65 20 72 61 6e 64 6f 6d 20 62 79 74 65 0a 20 20  e random byte.  
0aa0: 2a 2f 0a 20 20 70 72 6e 67 2e 69 2b 2b 3b 0a 20  */.  prng.i++;. 
0ab0: 20 74 20 3d 20 70 72 6e 67 2e 73 5b 70 72 6e 67   t = prng.s[prng
0ac0: 2e 69 5d 3b 0a 20 20 70 72 6e 67 2e 6a 20 2b 3d  .i];.  prng.j +=
0ad0: 20 74 3b 0a 20 20 70 72 6e 67 2e 73 5b 70 72 6e   t;.  prng.s[prn
0ae0: 67 2e 69 5d 20 3d 20 70 72 6e 67 2e 73 5b 70 72  g.i] = prng.s[pr
0af0: 6e 67 2e 6a 5d 3b 0a 20 20 70 72 6e 67 2e 73 5b  ng.j];.  prng.s[
0b00: 70 72 6e 67 2e 6a 5d 20 3d 20 74 3b 0a 20 20 74  prng.j] = t;.  t
0b10: 20 2b 3d 20 70 72 6e 67 2e 73 5b 70 72 6e 67 2e   += prng.s[prng.
0b20: 69 5d 3b 0a 20 20 72 65 74 75 72 6e 20 70 72 6e  i];.  return prn
0b30: 67 2e 73 5b 74 5d 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  g.s[t];.}../*.**
0b40: 20 52 65 74 75 72 6e 20 4e 20 72 61 6e 64 6f 6d   Return N random
0b50: 20 62 79 74 65 73 2e 0a 2a 2f 0a 76 6f 69 64 20   bytes..*/.void 
0b60: 73 71 6c 69 74 65 33 52 61 6e 64 6f 6d 6e 65 73  sqlite3Randomnes
0b70: 73 28 69 6e 74 20 4e 2c 20 76 6f 69 64 20 2a 70  s(int N, void *p
0b80: 42 75 66 29 7b 0a 20 20 75 6e 73 69 67 6e 65 64  Buf){.  unsigned
0b90: 20 63 68 61 72 20 2a 7a 42 75 66 20 3d 20 70 42   char *zBuf = pB
0ba0: 75 66 3b 0a 20 20 73 71 6c 69 74 65 33 4f 73 45  uf;.  sqlite3OsE
0bb0: 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 77  nterMutex();.  w
0bc0: 68 69 6c 65 28 20 4e 2d 2d 20 29 7b 0a 20 20 20  hile( N-- ){.   
0bd0: 20 2a 28 7a 42 75 66 2b 2b 29 20 3d 20 72 61 6e   *(zBuf++) = ran
0be0: 64 6f 6d 42 79 74 65 28 29 3b 0a 20 20 7d 0a 20  domByte();.  }. 
0bf0: 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d   sqlite3OsLeaveM
0c00: 75 74 65 78 28 29 3b 0a 7d 0a                    utex();.}.