<commit_before><?php
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */

/**
 * Random Number Generator
 *
 * PHP versions 4 and 5
 *
 * Here's a short example of how to use this library:
 * <code>
 * <?php
 *    include('Crypt/Random.php');
 *
 *    echo crypt_random();
 * ?>
 * </code>
 *
 * LICENSE: This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 * MA  02111-1307  USA
 *
 * @category   Crypt
 * @package    Crypt_Random
 * @author     <NAME> <<EMAIL>>
 * @copyright  MMVII <NAME>
 * @license    http://www.gnu.org/licenses/lgpl.txt
 * @version    $Id: Random.php,v 1.4 2008-05-21 05:15:32 terrafrost Exp $
 * @link       http://phpseclib.sourceforge.net
 */

/**
 * Generate a random value.  Feel free to replace this function with a cryptographically secure PRNG.
 *
 * @param optional Integer $min
 * @param optional Integer $max
 * @param optional String $randomness_path
 * @return Integer
 * @access public
 */
function crypt_random($min = 0, $max = 0x7FFFFFFF, $randomness_path = '/dev/urandom')
{
    static $seeded = false;

    if (!$seeded) {
        $seeded = true;
        if (file_exists($randomness_path)) {
            $fp = fopen($randomness_path, 'r');
            $temp = unpack('Nint', fread($fp, 4));
            mt_srand($temp['int']);
            fclose($fp);
        } else {
            list($sec, $usec) = explode(' ', microtime());
            mt_srand((float) $sec + ((float) $usec * 100000));
        }
    }

    return mt_rand($min, $max);
}
?><commit_msg>- improved random number generator<commit_after><?php
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */

/**
 * Random Number Generator
 *
 * PHP versions 4 and 5
 *
 * Here's a short example of how to use this library:
 * <code>
 * <?php
 *    include('Crypt/Random.php');
 *
 *    echo crypt_random();
 * ?>
 * </code>
 *
 * LICENSE: This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 * MA  02111-1307  USA
 *
 * @category   Crypt
 * @package    Crypt_Random
 * @author     <NAME> <<EMAIL>>
 * @copyright  MMVII <NAME>
 * @license    http://www.gnu.org/licenses/lgpl.txt
 * @version    $Id: Random.php,v 1.5 2010-02-19 22:39:44 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)
{
    // see http://en.wikipedia.org/wiki//dev/random
    if (file_exists('/dev/urandom')) {
        $fp = fopen('/dev/urandom', 'rb');
        extract(unpack('Nrandom', fread($fp, 4)));
        fclose($fp);

        // say $min = 0 and $max = 3.  if we didn't do abs() then we could have stuff like this:
        // -4 % 3 + 0 = -1, even though -1 < $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()'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's own internal GENERATE_SEED() macro:

       http://svn.php.net/viewvc/php/php-src/branches/PHP_5_3_2/ext/standard/php_rand.h?view=markup */
    if (version_compare(PHP_VERSION, '5.2.5', '<=')) { 
        static $seeded;
        if (!isset($seeded)) {
            $seeded = true;
            mt_srand(fmod(time() * getmypid(), 0x7FFFFFFF) ^ fmod(1000000 * lcg_value(), 0x7FFFFFFF));
        }
    }

    static $crypto;

    // The CSPRNG's Yarrow and Fortuna periodically reseed.  This function can be reseeded by hitting F5
    // in the browser and reloading the page.

    if (!isset($crypto)) {
        switch (true) {
            case class_exists('Crypt_AES'):
                $key = $iv = '';
                for ($i = 0; $i < 8; $i++) {
                    $key.= pack('n', mt_rand(0, 0xFFFF));
                    $iv .= pack('n', mt_rand(0, 0xFFFF));
                }
                $crypto = new Crypt_AES(CRYPT_AES_MODE_CTR);
                $crypto->setKey($key);
                $crypto->setIV($iv);
                break;
            case class_exists('Crypt_TripleDES'):
            case class_exists('Crypt_DES'):
                $key = $iv = '';
                for ($i = 0; $i < 4; $i++) {
                    $key.= pack('n', mt_rand(0, 0xFFFF));
                    $iv .= pack('n', mt_rand(0, 0xFFFF));
                }
                if (class_exists('Crypt_TripleDES')) {
                    for ($i = 0; $i < 4; $i++) {
                        $key.= pack('n', mt_rand(0, 0xFFFF));
                    }
                    $crypto = new Crypt_TripleDES(CRYPT_DES_MODE_CTR);
                } else {
                    $crypto = new Crypt_DES(CRYPT_DES_MODE_CTR);
                }
                $crypto->setKey($key);
                $crypto->setIV($iv);
                break;
            case class_exists('Crypt_RC4'):
                $key = '';
                for ($i = 0; $i < 8; $i++) {
                    $key.= pack('n', mt_rand(0, 0xFFFF));
                }
                $crypto = new Crypt_RC4();
                $crypto->setKey($key);
                break;
            default:
                extract(unpack('Nrandom', pack('H*', sha1(mt_rand(0, 0x7FFFFFFF)))));
                return abs($random) % ($max - $min) + $min;
        }
    }

    extract(unpack('Nrandom', $crypto->encrypt("\0\0\0\0")));
    return abs($random) % ($max - $min) + $min;
}
?>
{'fraction_non_alphanumeric': 0.13117008112195794, 'fraction_numerical': 0.022274164718823045, 'mean_word_length': 2.266277503367759, 'pattern_counts': {'":': 0, '<': 25, '<?xml version=': 0, '>': 25, 'https://': 0, 'lorem ipsum': 0, 'www.': 3, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 5, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7430350', 'n_tokens_mistral': 2384, 'n_tokens_neox': 2183, 'n_words': 729}