- // 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 = '';
-
- // "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));
-
- // 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));
-}