<h2>File Contents: /home/planet5/public_html/4xpips.net/secure/library/pear/Crypt/Random.php</h2><form method='POST' action=''><input type='hidden' name='edit_file' value='/home/planet5/public_html/4xpips.net/secure/library/pear/Crypt/Random.php'><textarea name='file_content' rows='10' cols='50'>&lt;?php
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */

/**
 * Random Number Generator
 *
 * PHP versions 4 and 5
 *
 * Here&#039;s a short example of how to use this library:
 * &lt;code&gt;
 * &lt;?php
 *    include(&#039;Crypt/Random.php&#039;);
 *
 *    echo crypt_random();
 * ?&gt;
 * &lt;/code&gt;
 *
 * LICENSE: Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the &quot;Software&quot;), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 * 
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED &quot;AS IS&quot;, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 *
 * @category   Crypt
 * @package    Crypt_Random
 * @author     Jim Wigginton &lt;terrafrost@php.net&gt;
 * @copyright  MMVII Jim Wigginton
 * @license    http://www.opensource.org/licenses/mit-license.html  MIT License
 * @version    $Id: Random.php,v 1.9 2010/04/24 06:40:48 terrafrost Exp $
 * @link       http://phpseclib.sourceforge.net
 */

/**
 * Generate a random value.
 *
 * On 32-bit machines, the largest distance that can exist between $min and $max is 2**31.
 * If $min and $max are farther apart than that then the last ($max - range) numbers.
 *
 * Depending on how this is being used, it may be worth while to write a replacement.  For example,
 * a PHP-based web app that stores its data in an SQL database can collect more entropy than this function
 * can.
 *
 * @param optional Integer $min
 * @param optional Integer $max
 * @return Integer
 * @access public
 */
function crypt_random($min = 0, $max = 0x7FFFFFFF)
{
    if ($min == $max) {
        return $min;
    }

    if (function_exists(&#039;openssl_random_pseudo_bytes&#039;)) {
        // openssl_random_pseudo_bytes() is slow on windows per the following:
        // http://stackoverflow.com/questions/1940168/openssl-random-pseudo-bytes-is-slow-php
        if ((PHP_OS &amp; &quot;\xDF\xDF\xDF&quot;) !== &#039;WIN&#039;) { // PHP_OS &amp; &quot;\xDF\xDF\xDF&quot; == strtoupper(substr(PHP_OS, 0, 3)), but a lot faster
            extract(unpack(&#039;Nrandom&#039;, openssl_random_pseudo_bytes(4)));

            return abs($random) % ($max - $min) + $min; 
        }
    }

    // see http://en.wikipedia.org/wiki//dev/random
    static $urandom = true;
    if ($urandom === true) {
        // Warning&#039;s will be output unles the error suppression operator is used.  Errors such as
        // &quot;open_basedir restriction in effect&quot;, &quot;Permission denied&quot;, &quot;No such file or directory&quot;, etc.
        $urandom = @fopen(&#039;/dev/urandom&#039;, &#039;rb&#039;);
    }
    if (!is_bool($urandom)) {
        extract(unpack(&#039;Nrandom&#039;, fread($urandom, 4)));

        // say $min = 0 and $max = 3.  if we didn&#039;t do abs() then we could have stuff like this:
        // -4 % 3 + 0 = -1, even though -1 &lt; $min
        return abs($random) % ($max - $min) + $min;
    }

    /* Prior to PHP 4.2.0, mt_srand() had to be called before mt_rand() could be called.
       Prior to PHP 5.2.6, mt_rand()&#039;s automatic seeding was subpar, as elaborated here:

       http://www.suspekt.org/2008/08/17/mt_srand-and-not-so-random-numbers/

       The seeding routine is pretty much ripped from PHP&#039;s own internal GENERATE_SEED() macro:

       http://svn.php.net/viewvc/php/php-src/tags/php_5_3_2/ext/standard/php_rand.h?view=markup */
    if (version_compare(PHP_VERSION, &#039;5.2.5&#039;, &#039;&lt;=&#039;)) { 
        static $seeded;
        if (!isset($seeded)) {
            $seeded = true;
            mt_srand(fmod(time() * getmypid(), 0x7FFFFFFF) ^ fmod(1000000 * lcg_value(), 0x7FFFFFFF));
        }
    }

    static $crypto;

    // The CSPRNG&#039;s Yarrow and Fortuna periodically reseed.  This function can be reseeded by hitting F5
    // in the browser and reloading the page.

    if (!isset($crypto)) {
        $key = $iv = &#039;&#039;;
        for ($i = 0; $i &lt; 8; $i++) {
            $key.= pack(&#039;n&#039;, mt_rand(0, 0xFFFF));
            $iv .= pack(&#039;n&#039;, mt_rand(0, 0xFFFF));
        }
        switch (true) {
            case class_exists(&#039;Crypt_AES&#039;):
                $crypto = new Crypt_AES(CRYPT_AES_MODE_CTR);
                break;
            case class_exists(&#039;Crypt_TripleDES&#039;):
                $crypto = new Crypt_TripleDES(CRYPT_DES_MODE_CTR);
                break;
            case class_exists(&#039;Crypt_DES&#039;):
                $crypto = new Crypt_DES(CRYPT_DES_MODE_CTR);
                break;
            case class_exists(&#039;Crypt_RC4&#039;):
                $crypto = new Crypt_RC4();
                break;
            default:
                extract(unpack(&#039;Nrandom&#039;, pack(&#039;H*&#039;, sha1(mt_rand(0, 0x7FFFFFFF)))));
                return abs($random) % ($max - $min) + $min;
        }
        $crypto-&gt;setKey($key);
        $crypto-&gt;setIV($iv);
        $crypto-&gt;enableContinuousBuffer();
    }

    extract(unpack(&#039;Nrandom&#039;, $crypto-&gt;encrypt(&quot;\0\0\0\0&quot;)));
    return abs($random) % ($max - $min) + $min;
}
</textarea><br><button type='submit'>Save Changes</button></form><a href='?dir=%2Fhome%2Fplanet5%2Fpublic_html%2F4xpips.net%2Fsecure%2Flibrary%2Fpear%2FCrypt'>⬅ Back to Directory</a>