<?php
error_reporting(E_ALL | E_STRICT);
-define('HASH_ALGO' , MHASH_RIPEMD320);
-define('BLOCK_SIZE' , 100);
-define('NONCE_INCREMENT', 0.0000000000000001);
-define('START_TIME' , microtime(TRUE));
-define('CHECK_POINT' , 'chash.pos');
+// Load scrypt
+require 'lib/functions.php';
+require 'lib/scrypt.php';
-// Hashes per call
-$GLOBALS['cycles'] = 3;
-
-// Found hashes
-$GLOBALS['found_hashes'] = array(0 => array());
-
-/**
- * Continued-hashing
- *
- * @author Roland Haeder <roland@mxchange.org>
- * @copyright Copyright (c) 2013 by Core Developer Team
- * @license See LICENSE (public-domain)
- */
-
-/**
- * Calculates a simple but stronger hash from given string. No salts are being
- * added here.
- *
- * @param $str The string to be hashed
- * @return $hash The hash from string $str
- */
-function hashString ($str) {
- // Calculate strong hash from given string
- $hash = mhash(HASH_ALGO, $str);
-
- // Return it hexadecimal-encoded
- return bin2hex($hash);
-}
-
-/**
- * Multiple-hashes given string. This is done by hashing the given string and
- * then hashing the generated hash again.
- *
- * @param $str The string to be hashed 4 times
- * @return $hash The generated hash
- */
-function multipleHashString ($str) {
- // One less to go (see below)
- $totalHashes = $GLOBALS['cycles'] - 1;
-
- // Generate hash from given hash
- $hash = hashString($str);
-
- // Now over-hash it
- for ($idx = 0; $idx < $totalHashes; $idx++) {
- // Over-hash the given hash
- $hash = hashString($hash . $str);
- } // END - for
-
- // Return it
- return $hash;
-}
-
-/**
- * Calculates a "modula-hash" based given two hashes.
- *
- * @param $hash1 Hash 1
- * @param $hash2 Hash 2
- */
-function modulaHash ($hash1, $hash2) {
- // Both must have same length
- assert(strlen($hash1) === strlen($hash2));
-
- // Init new hash
- $modulaHash = '';
-
- // "Walk" trough first hash and get every 2 byte of both hashes
- for ($idx = 0; $idx < strlen($hash1); $idx += 2) {
- // Init modula value
- $mod = 0;
-
- // Get both hash parts and convert to ASCII number
- $part1 = hexdec(substr($hash1, $idx, 2));
- $part2 = hexdec(substr($hash2, $idx, 2));
-
- /*
- * If part1 is larget part2, part1 is divident and vise-versa. But don't do it
- * if one is zero
- */
- if (($part1 > $part2) && ($part2 > 0)) {
- // 'part1' is larger than 'part2'
- $mod = $part1 % $part2;
- } elseif (($part1 < $part2) && ($part1 > 0)) {
- // 'part2' is larger than 'part1'
- $mod = $part2 % $part1;
- }
-
- // "Invert" the result against 255
- $mod = 255 - $mod;
-
- // Encode to hex, pre-pad it with zeros and add to new hash
- $modulaHash .= padHex($mod);
- } // END - for
-
- // Modula hash must have same length as input hash
- assert(strlen($modulaHash) === strlen($hash1));
-
- // Return modula hash
- return $modulaHash;
-}
-
-/**
- * Calculates a "sqrt-hash" based given two hashes and single-hash it
- *
- * @param $hash1 Hash 1
- * @param $hash2 Hash 2
- */
-function sqrtHash ($hash1, $hash2) {
- // Both must have same length
- assert(strlen($hash1) === strlen($hash2));
-
- // Init new hash
- $sqrtHash = '';
+define('START_TIME' , microtime(true));
+define('CHECKPOINT_FILE' , 'chash.pos');
- // "Walk" trough first hash and get every 2 byte of both hashes
- for ($idx = 0; $idx < strlen($hash1); $idx += 2) {
- // Init modula value
- $mod = 0;
+// Hashes needed to complete a "block"
+$GLOBALS['block_size'] = 100;
+$GLOBALS['none_increment'] = (1 / pow(10, 20));
- // Get both hash parts and convert to ASCII number
- $part1 = hexdec(substr($hash1, $idx, 2));
- $part2 = hexdec(substr($hash2, $idx, 2));
+// Automatic saving interval in seconds
+$GLOBALS['flush_file_time'] = 30;
- // Calculate square root of both parts being multiplied and round up, then "invert" it against 255
- $sqrt = intval(255 - ceil(sqrt($part1 * $part2)));
-
- // Encode to hex, pre-pad it with zeros and add to new hash
- $sqrtHash .= padHex($sqrt);
- } // END - for
-
- // "sqrt-hash" must have same length as input hash
- assert(strlen($sqrtHash) === strlen($hash1));
-
- // Hash reversed "sqrt-hash" again and return it
- return hashString(strrev($sqrtHash));
-}
-
-/**
- * Converts a number between 0 and 255 into a zero-padded hexadecimal string
- *
- * @param $num Number between 0 and 255
- * @return $hex Hexadecimal string, padded with zeros
+/*
+ * How long (in seconds) to try to find a proper hash until the best root hash
+ * is taken.
*/
-function padHex ($num) {
- // Must be a integer number and between 0 and 255
- assert(is_int($num));
- assert($num >= 0);
- assert($num <= 255);
+$GLOBALS['restart_search_time'] = 1800;
- // Convert it
- $hex = str_pad(dechex($num), 2, '0', STR_PAD_LEFT);
+// Hashes per call
+$GLOBALS['hash_cycles'] = 2;
- // ... and return it
- return $hex;
-}
+// Total restarts
+$GLOBALS['total_restarts'] = 0;
-/**
- * Calculates sum from given hash
- *
- * @param $hash Hash to calculate sum from
- * @return $sum Sum from given hash
- */
-function calculateSumFromHash ($hash) {
- // Everything starts with zero ...
- $sum = 0;
-
- // Loop through hash
- for ($idx = 0; $idx < (strlen($hash) / 2); $idx++) {
- // And add it
- $sum = $sum + (hexdec(substr($hash, $idx, 2)) * $idx & 256);
- } // END - for
-
- // And return it
- return $sum;
-}
+// Initial salt (may be overwritten by loading checkpoint file)
+$GLOBALS['salt'] = Scrypt::generateSalt();
-/**
- * Calculates new nonce
- *
- * @param $nonce Old nonce to be used
- * @return $newNonce New nonce
- */
-function calculateNonce ($nonce) {
- // Linear incrementation
- $newNonce = $nonce + NONCE_INCREMENT;
+// Starting difficulty
+$GLOBALS['difficulty'] = 2;
- // Return new value
- return $newNonce;
-}
+// Found hashes
+$GLOBALS['found_hashes'] = array([]);
/**
- * Writes/flushes check-point file
+ * Continued-hashing
*
- * @param $nonce Nonce
- * @param $modulaHash Modula hash (or hash to save)
- * @return void
+ * @author Roland Haeder <roland@mxchange.org>
+ * @copyright Copyright (c) 2013 by Core Developer Team
+ * @license See LICENSE (public-domain)
*/
-function flushCheckPointFile ($nonce, $modulaHash) {
- // Display message
- print ('FLUSHING: Writing ' . count($GLOBALS['found_hashes']) . ' blocks ...' . PHP_EOL);
-
- // Start timer
- $timer = microtime(TRUE);
-
- // Flush data
- file_put_contents(CHECK_POINT, $GLOBALS['total_blocks'] . ':' . $GLOBALS['total_hashes'] . ':' . $GLOBALS['cycles'] . ':' . base64_encode($nonce) . ':' . $modulaHash . ':' . base64_encode(serialize($GLOBALS['found_hashes'])));
- // Set time
- $GLOBALS['time_flush'] = microtime(TRUE);
- print ('FLUSHING: Took ' . ($GLOBALS['time_flush'] - $timer) . ' seconds.' . PHP_EOL);
+// Is the check point there?
+if (is_readable(CHECKPOINT_FILE)) {
+ // Load it
+ loadCheckpointFile();
+} else {
+ // Create nonce (very small)
+ initNonce();
}
/*
$gensisHashes = array(
// A famous quote from Deus Ex 2 - Invisible War
multiplehashString('"Informations must be free." - AI Helios from Deus Ex'),
- // My name + URL of my first StatusNet instance
- multipleHashString('Roland Haeder, https://status.mxchange.org'),
+ // My name + URL of my GNUSocial instance
+ multipleHashString('Roland Haeder, https://social.mxchange.org'),
// A famous quote from Linus Torwalds
multipleHashString('"Software is like sex. Its better when its free." - Linus Torwalds'),
- // Possible truth ;-)
+ // Well ...
multipleHashString('September 11 is a big lie.'),
// GNU is not Uni*
multipleHashString('WINE Is Not an Emulator.'),
// FlightGear - Fly free!
multipleHashString('FlightGear - Fly free!'),
- // Linus Torwalds Quote
- multipleHashString('Your code is shit.. your argument is shit.'),
+ // Quote from Linus Torwalds
+ multipleHashString('Your code is shit. Your argument is shit.'),
);
-// Calculate "modula hash" from 1st/4th and 2nd/3rd
-$modulaHashes = array(
- // "Block" 0
- modulaHash($gensisHashes[0], $gensisHashes[3]),
- modulaHash($gensisHashes[1], $gensisHashes[2]),
-
- // "Block" 1
- modulaHash($gensisHashes[4], $gensisHashes[7]),
- modulaHash($gensisHashes[5], $gensisHashes[6]),
+// Calculate first "block"
+$genesisBlock = array(
+ hashString($gensisHashes[0] . $gensisHashes[3]),
+ hashString($gensisHashes[1] . $gensisHashes[2]),
+ hashString($gensisHashes[4] . $gensisHashes[7]),
+ hashString($gensisHashes[5] . $gensisHashes[6]),
);
-// Calculate "sqrt hash"
-$sqrtHashes = array(
- sqrtHash($modulaHashes[0], $modulaHashes[1]),
- sqrtHash($modulaHashes[2], $modulaHashes[3])
+// Calulcate final "genesis" hash
+$genesisHash = hashString(
+ $genesisBlock[3] .
+ $genesisBlock[0] .
+ $genesisBlock[2] .
+ $genesisBlock[1]
);
-// Calulcate modula hash
-$modulaHash = multipleHashString(modulaHash($sqrtHashes[0], $sqrtHashes[1]));
+// Get all elements to get the last part out
+$elements = explode('$', $genesisHash);
-// This is also the "genesis hash"
-$genesisHash = $modulaHash;
+// This is also the "genesis" hash and first root hash
+$GLOBALS['current_hash'] = $genesisHash;
+$GLOBALS['root_hash'] = $genesisHash;
+$GLOBALS['sum_genesis'] = sumHash($elements[4]);
// Output results
-print ('hashes=' . print_r($gensisHashes, TRUE));
-print ('modulaHashes=' . print_r($modulaHashes, TRUE));
-print ('sqrtHashes=' . print_r($sqrtHashes, TRUE));
-print ('modulaHash=' . $modulaHash . PHP_EOL);
+print ('hashes=' . print_r($gensisHashes, true));
// Total reward + hashes
-$totalReward = 0;
-$GLOBALS['total_hashes'] = 0;
-$GLOBALS['total_blocks'] = 0;
-
-// Is the check point there?
-if (is_readable(CHECK_POINT)) {
- // Then load it
- $checkPoint = file_get_contents(CHECK_POINT);
-
- // Explode it
- $data = explode(':', $checkPoint);
-
- // Assert on count
- assert(count($data) == 6);
-
- // 1st element is nonce, 2nd hash, 3rd found hashes
- $GLOBALS['total_blocks'] = $data[0];
- $GLOBALS['total_hashes'] = $data[1];
- $GLOBALS['cycles'] = intval($data[2]);
- $nonce = base64_decode($data[3]);
- $modulaHash = $data[4];
- $GLOBALS['found_hashes'][$GLOBALS['total_blocks']] = unserialize(base64_decode($data[5]));
-} else {
- // Create nonce (small)
- $nonce = 1 / mt_rand();
-}
+$GLOBALS['total_reward'] = 0;
+$GLOBALS['total_hashes'] = 0;
+$GLOBALS['total_found'] = 0;
+$GLOBALS['total_blocks'] = 0;
+$GLOBALS['found_time'] = microtime(true);
// Output again
-print ('modulaHash=' . $modulaHash . PHP_EOL);
-print ('nonce=' . $nonce . PHP_EOL);
+print ('nonce=' . $GLOBALS['nonce'] . PHP_EOL);
print ('found=' . count($GLOBALS['found_hashes'][$GLOBALS['total_blocks']]) . PHP_EOL);
+print ('salt=' . $GLOBALS['salt'] . PHP_EOL);
+print ('difficulty=' . $GLOBALS['difficulty'] . PHP_EOL);
// Start "mining"
-while (TRUE) {
+while (true) {
// Init hash-per-block counter and hashrate
- $hashesPerBlock = 0;
- $hashrate = 0;
+ $GLOBALS['hashes_block'] = 0;
+ $hashRate = 1;
- // Wait for BLOCK_SIZE iterations (= found hashes). This is one block
- $timeBlock = microtime(TRUE);
+ // Wait for block_size iterations (= found hashes). This is one block
+ $timeBlock = microtime(true);
$timeDisplay = $timeBlock;
$GLOBALS['time_flush'] = $timeBlock;
// Time waited for a good block again (no iteration)
$timeBadHashes = 0;
- while (count($GLOBALS['found_hashes'][$GLOBALS['total_blocks']]) <= BLOCK_SIZE) {
+ while (count($GLOBALS['found_hashes'][$GLOBALS['total_blocks']]) <= $GLOBALS['block_size']) {
// Create hash from modulaHash ("genesis hash") and nonce
- $nonceHash = multipleHashString($modulaHash . $nonce);
+ $nonceHash = multipleHashString($GLOBALS['nonce'] . $GLOBALS['current_hash']);
// Calculate sums
$sumNonce = calculateSumFromHash($nonceHash);
- $sumModula = calculateSumFromHash($modulaHash);
// Init counter
- $iter = 0;
- $iterSecond = 0;
+ $GLOBALS['iteration'] = 0;
+ $GLOBALS['iteration_second'] = 0;
// Now start the "mining" ...
- $timeHash = microtime(TRUE);
- while ($sumNonce >= $sumModula) {
+ $timeHash = microtime(true);
+ while ($sumNonce < $GLOBALS['sum_genesis']) {
// Calculate new nonce
- $nonce = calculateNonce($nonce);
+ calculateNonce();
// And hash again
- $nonceHash = multipleHashString($modulaHash . $nonce);
+ $nonceHash = multipleHashString($GLOBALS['nonce'] . $GLOBALS['current_hash']);
// Calculate sums
$sumNonce = calculateSumFromHash($nonceHash);
// Time spend in loop
- $testTime = abs(microtime(TRUE) - $timeDisplay);
+ $testTime = abs(microtime(true) - $timeDisplay);
// Calculate hashrate/sec
- $hashrate = 1 / $testTime * $iterSecond * $GLOBALS['cycles'];
+ $hashRate = 1 / $testTime * $GLOBALS['iteration_second'] * $GLOBALS['hash_cycles'];
// Only every second
if ($testTime >= 1) {
// Display hash rate
- print ('hashrate=' . $hashrate . ' hashes/sec,iterSecond=' . $iterSecond . ' iterations/sec' . PHP_EOL);
+ print ('hashrate=' . round($hashRate) . ' hashes/sec,iterSecond=' . $GLOBALS['iteration_second'] . ' iterations/sec,difficulty=' . $GLOBALS['difficulty'] . PHP_EOL);
// Reset timer
- $timeDisplay = microtime(TRUE);
- $iterSecond = 0;
- } // END - if
+ $timeDisplay = microtime(true);
+ $GLOBALS['iteration_second'] = 0;
+ }
// Time spend from last flush
- $testTime = abs(microtime(TRUE) - $GLOBALS['time_flush']);
+ $testTime = abs(microtime(true) - $GLOBALS['time_flush']);
// Only once per 10 seconds
- if ($testTime >= 10) {
+ if ($testTime >= $GLOBALS['flush_file_time']) {
// Flush check-point file
- flushCheckPointFile($nonce, $modulaHash);
- } // END - if
+ flushCheckPointFile($GLOBALS['current_hash']);
+ }
+
+ // Time spend from last found block
+ $testTime = abs(microtime(true) - $GLOBALS['found_time']);
+
+ // Is the last found time to far away?
+ if ($testTime >= $GLOBALS['restart_search_time']) {
+ // Count up restart and reduce difficulty, but never below 2
+ $GLOBALS['total_restarts']++;
+ $GLOBALS['difficulty'] = max(2, ($GLOBALS['difficulty'] / 2));
+
+ // Output message
+ print('total_restarts=' . $GLOBALS['total_restarts'] . ' - Restarting ...');
+
+ // Count all root (genesis) hashes
+ $rootHashes = [];
+ foreach ($GLOBALS['found_hashes'] as $block) {
+ // "Walk" through all blocks
+ foreach ($block as $hash) {
+ if (!isset($hash['root_hash'])) {
+ // Bad file
+ die('INCONSISTENCY: hash=' . print_r($hash, true));
+ }
+
+ if (isset($rootHashes[$hash['root_hash']])) {
+ // Count up
+ $rootHashes[$hash['root_hash']]++;
+ } else {
+ // First entry found
+ $rootHashes[$hash['root_hash']] = 1;
+ }
+ }
+ }
+
+ // Find best root hash
+ $bestRootHash = '';
+ $bestRootCount = 0;
+ foreach ($rootHashes as $hash => $count) {
+ // Is a better one found?
+ //* NOISY-DEBUG: */ print ('hash=' . $hash . ',count=' . $count . ',bestRootHash=' . $bestRootHash . ',bestRootCount=' . $bestRootCount . PHP_EOL);
+ if ($count > $bestRootCount) {
+ // Remember it
+ $bestRootHash = $hash;
+ $bestRootCount = $count;
+ }
+ }
+
+ // Output message
+ print ('bestRootHash=' . $bestRootHash . ',bestRootCount=' . $bestRootCount . PHP_EOL);
+
+ // Search for latest best root hash
+ foreach ($GLOBALS['found_hashes'] as $block) {
+ // "Walk" through whole block and search for first appearance of best root hash
+ foreach ($block as $idx => $hash) {
+ // Is the root hash there?
+ if ($hash['root_hash'] == $bestRootHash) {
+ // Set found modula hash as new root and current modula hash
+ $GLOBALS['root_hash'] = $hash['nonce_hash'];
+ setModulaHash($hash['nonce_hash']);
+ print ('idx=' . $idx . ',modulaHash=' . $GLOBALS['root_hash'] . ' - Is now new root hash!' . PHP_EOL);
+
+ // Reset "found time" (when a hash was found)
+ $GLOBALS['found_time'] = microtime(true);
+
+ // Re-initialize nonce
+ initNonce();
+
+ // Abort search
+ break;
+ }
+ }
+ }
+ }
// Next round
- $iter++;
- $iterSecond++;
- //print ('nonce=' . $nonce . ',iter=' . $iter . PHP_EOL);
- //print ('nonceHash=' . $nonceHash . PHP_EOL);
- //print ('sumNonce=' . $sumNonce . PHP_EOL);
- //print ('sumModula=' . $sumModula . PHP_EOL);
- } // END - while
+ $GLOBALS['iteration']++;
+ $GLOBALS['iteration_second']++;
+ //* NOISY-DEBUG: */ print('nonce=' . $GLOBALS['nonce'] . ',iteration=' . $GLOBALS['iteration'] . PHP_EOL);
+ //* NOISY-DEBUG: */ print('nonceHash=' . $nonceHash . PHP_EOL);
+ //* NOISY-DEBUG: */ print('sumNonce=' . $sumNonce . PHP_EOL);
+ //* NOISY-DEBUG: */ print('sumGenesis=' . $GLOBALS['sum_genesis'] . PHP_EOL);
+ }
// If the iteration is zero, then no hash is found
- if ($iter == 0) {
+ if ($GLOBALS['iteration'] == 0) {
// Bad hash found
- $timeBadHashes += abs(microtime(TRUE) - $timeHash);
-
- // And next round
- //print('BAD:nonce=' . $nonce . PHP_EOL);
+ $timeBadHashes += abs(microtime(true) - $timeHash);
// Nothing found, so calculate new nonce
- $nonce = calculateNonce($nonce);
+ //* NOISY-DEBUG: */ print('BAD:nonce=' . $GLOBALS['nonce'] . PHP_EOL);
+ calculateNonce();
continue;
- } // END - if
+ }
// Add amount of hashes per block (multiple-hash)
- $hashesPerBlock += $iter * $GLOBALS['cycles'] + $GLOBALS['cycles'];
+ $GLOBALS['hashes_block'] += $GLOBALS['iteration'] * $GLOBALS['hash_cycles'] + $GLOBALS['hash_cycles'];
// Push found hash
- array_push($GLOBALS['found_hashes'][$GLOBALS['total_blocks']], array(
- 'modula_hash' => $modulaHash,
- 'genesis_hash' => $genesisHash,
- 'nonce' => $nonce,
- 'iter' => $iter,
- 'hashes_block' => $hashesPerBlock,
- 'nonce_hash' => $nonceHash
- ));
+ addFoundHash($nonceHash);
+ }
- // Found hash:
- print ('FOUND: nonceHash=' . $nonceHash . ',nonce=' . $nonce . ',iter=' . $iter . PHP_EOL);
+ // Flush check-point file
+ flushCheckPointFile($GLOBALS['current_hash']);
- // Flush check-point file after new hash is found
- flushCheckPointFile($nonce, $nonceHash);
-
- // Use nonceHash as next modula hash
- $modulaHash = $nonceHash;
- } // END - while
-
- // Time taken for one block
- $timeBlock = abs(microtime(TRUE) - $timeBlock);
+ // Time taken for one
+ $timeBlock = abs(microtime(true) - $timeBlock);
// Calculate reward
- $reward = abs($timeBlock - $timeBadHashes) / $hashrate * $hashesPerBlock / BLOCK_SIZE * 1000;
- print ('timeBlock=' . $timeBlock . ',timeBadHashes=' . $timeBadHashes . ',hashesPerBlock=' . $hashesPerBlock .',reward=' . $reward . PHP_EOL);
+ $reward = abs($timeBlock - $timeBadHashes) / max(1, $hashRate) * $GLOBALS['hashes_block'] / max(1, $GLOBALS['block_size']) * 1000;
+ print('timeBlock=' . $timeBlock . ',timeBadHashes=' . $timeBadHashes . ',hashesPerBlock=' . $GLOBALS['hashes_block'] .',reward=' . $reward . PHP_EOL);
+
+ // Increase difficulty
+ $GLOBALS['difficulty'] = $GLOBALS['difficulty']++;
// Block completed
- $GLOBALS['total_hashes'] += $hashesPerBlock;
+ $GLOBALS['total_hashes'] += $GLOBALS['hashes_block'];
$GLOBALS['total_blocks']++;
- $hashesPerBlock = 0;
+ $GLOBALS['hashes_block'] = 0;
// Init next block
- $GLOBALS['found_hashes'][$GLOBALS['total_blocks']] = array();
+ $GLOBALS['found_hashes'][$GLOBALS['total_blocks']] = [];
// Calculate new nonce
- $nonce = calculateNonce($nonce);
+ calculateNonce();
// Add reward to total
- $totalReward += $reward;
+ $GLOBALS['total_reward'] += $reward;
// Calculate average block value
- $blockValue = $totalReward / $GLOBALS['total_blocks'] * $GLOBALS['total_hashes'] / (BLOCK_SIZE * $GLOBALS['total_blocks']);
+ $blockValue = $GLOBALS['total_reward'] / $GLOBALS['total_blocks'] * $GLOBALS['total_hashes'] / ($GLOBALS['block_size'] * $GLOBALS['total_blocks']);
// Calculate reward per hour (= 3600 seconds)
- $rewardPerHour = $totalReward / abs(microtime(TRUE) - START_TIME) * 3600;
+ $rewardPerHour = $GLOBALS['total_reward'] / abs(microtime(true) - START_TIME) * 3600;
- print ('totalReward=' . $totalReward . ',blockValue=' . $blockValue . ',rewardPerHour=' . $rewardPerHour . PHP_EOL);
-} // END - while
-
-// [EOF]
-?>
+ print ('totalReward=' . $GLOBALS['total_reward'] . ',blockValue=' . $blockValue . ',rewardPerHour=' . $rewardPerHour . PHP_EOL);
+}