function calc_sha1($str)
{
$x = str2blks_SHA1($str);
$a = 1732584193;
$b = -271733879;
$c = -1732584194;
$d = 271733878;
$e = -1009589776;
for ($i = 0; $i < sizeof($x); $i += 16) {
$olda = $a;
$oldb = $b;
$oldc = $c;
$oldd = $d;
$olde = $e;
for ($j = 0; $j < 80; $j++) {
if ($j < 16) {
$w[$j] = $x[$i + $j];
} else {
$w[$j] = rol($w[$j - 3] ^ $w[$j - 8] ^ $w[$j - 14] ^ $w[$j - 16], 1);
}
$t = safe_add(safe_add(rol($a, 5), ft($j, $b, $c, $d)), safe_add(safe_add($e, $w[$j]), kt($j)));
$e = $d;
$d = $c;
$c = rol($b, 30);
$b = $a;
$a = $t;
}
$a = safe_add($a, $olda);
$b = safe_add($b, $oldb);
$c = safe_add($c, $oldc);
$d = safe_add($d, $oldd);
$e = safe_add($e, $olde);
}
return sprintf("%08s%08s%08s%08s%08s", dechex($a), dechex($b), dechex($c), dechex($d), dechex($e));
}
function md5_cmn($q, $a, $b, $x, $s, $t)
{
return safe_add(bit_rol(safe_add(safe_add($a, $q), safe_add($x, $t)), $s), $b);
}
function get_hash($str)
{
// Fix for Unicode support by Naki-BoT
for ($i = 0; $i < strlen($str); $i++) {
// PvPGN hash is case insensitive but only for ASCII characters
if (ord($str[$i]) < 128) {
$str[$i] = strtolower($str[$i]);
}
}
$x = str2blks_pvpgn($str);
$a = 0x6745 << 16 | 0x2301;
$b = 0xefcd << 16 | 0xab89;
$c = 0x98ba << 16 | 0xdcfe;
$d = 0x1032 << 16 | 0x5476;
$e = 0xc3d2 << 16 | 0xe1f0;
for ($i = 0; $i < count($x); $i += 16) {
$olda = $a;
$oldb = $b;
$oldc = $c;
$oldd = $d;
$olde = $e;
for ($j = 0; $j < 16; $j++) {
$w[$j] = $x[$i + $j];
}
for ($j = 0; $j < 64; $j++) {
$ww = $w[$j] ^ $w[$j + 8] ^ $w[$j + 2] ^ $w[$j + 13];
$w[$j + 16] = 1 << $ww % 32;
}
for ($j = 0; $j < 80; $j++) {
if ($j < 20) {
$t = safe_add(safe_add(safe_rol($a, 5), ft($j, $b, $c, $d)), safe_add(safe_add($e, $w[$j]), kt($j)));
} else {
$t = safe_add(safe_add(safe_rol($t, 5), ft($j, $b, $c, $d)), safe_add(safe_add($e, $w[$j]), kt($j)));
}
$e = $d;
$d = $c;
$c = safe_rol($b, 30);
$b = $a;
$a = $t;
}
// Fix for 64-bit OS by Pada
$a = safe_add($t, $olda) & 4294967295.0;
$b = safe_add($b, $oldb) & 4294967295.0;
$c = safe_add($c, $oldc) & 4294967295.0;
$d = safe_add($d, $oldd) & 4294967295.0;
$e = safe_add($e, $olde) & 4294967295.0;
}
return sprintf("%08x%08x%08x%08x%08x", $a, $b, $c, $d, $e);
}
function md5_oneround($s, $io)
{
$s = str_pad($s, 64, chr(0x0));
$x = array_fill(0, 16, 0);
for ($i = 0; $i < 64; $i++) {
$x[$i >> 2] |= (($io ? 0x36 : 0x5c) ^ ord($s[$i])) << $i % 4 * 8;
}
$a = $olda = 1732584193;
$b = $oldb = -271733879;
$c = $oldc = -1732584194;
$d = $oldd = 271733878;
$a = md5_ff($a, $b, $c, $d, $x[0], 7, -680876936);
$d = md5_ff($d, $a, $b, $c, $x[1], 12, -389564586);
$c = md5_ff($c, $d, $a, $b, $x[2], 17, 606105819);
$b = md5_ff($b, $c, $d, $a, $x[3], 22, -1044525330);
$a = md5_ff($a, $b, $c, $d, $x[4], 7, -176418897);
$d = md5_ff($d, $a, $b, $c, $x[5], 12, 1200080426);
$c = md5_ff($c, $d, $a, $b, $x[6], 17, -1473231341);
$b = md5_ff($b, $c, $d, $a, $x[7], 22, -45705983);
$a = md5_ff($a, $b, $c, $d, $x[8], 7, 1770035416);
$d = md5_ff($d, $a, $b, $c, $x[9], 12, -1958414417);
$c = md5_ff($c, $d, $a, $b, $x[10], 17, -42063);
$b = md5_ff($b, $c, $d, $a, $x[11], 22, -1990404162);
$a = md5_ff($a, $b, $c, $d, $x[12], 7, 1804603682);
$d = md5_ff($d, $a, $b, $c, $x[13], 12, -40341101);
$c = md5_ff($c, $d, $a, $b, $x[14], 17, -1502002290);
$b = md5_ff($b, $c, $d, $a, $x[15], 22, 1236535329);
$a = md5_gg($a, $b, $c, $d, $x[1], 5, -165796510);
$d = md5_gg($d, $a, $b, $c, $x[6], 9, -1069501632);
$c = md5_gg($c, $d, $a, $b, $x[11], 14, 643717713);
$b = md5_gg($b, $c, $d, $a, $x[0], 20, -373897302);
$a = md5_gg($a, $b, $c, $d, $x[5], 5, -701558691);
$d = md5_gg($d, $a, $b, $c, $x[10], 9, 38016083);
$c = md5_gg($c, $d, $a, $b, $x[15], 14, -660478335);
$b = md5_gg($b, $c, $d, $a, $x[4], 20, -405537848);
$a = md5_gg($a, $b, $c, $d, $x[9], 5, 568446438);
$d = md5_gg($d, $a, $b, $c, $x[14], 9, -1019803690);
$c = md5_gg($c, $d, $a, $b, $x[3], 14, -187363961);
$b = md5_gg($b, $c, $d, $a, $x[8], 20, 1163531501);
$a = md5_gg($a, $b, $c, $d, $x[13], 5, -1444681467);
$d = md5_gg($d, $a, $b, $c, $x[2], 9, -51403784);
$c = md5_gg($c, $d, $a, $b, $x[7], 14, 1735328473);
$b = md5_gg($b, $c, $d, $a, $x[12], 20, -1926607734);
$a = md5_hh($a, $b, $c, $d, $x[5], 4, -378558);
$d = md5_hh($d, $a, $b, $c, $x[8], 11, -2022574463);
$c = md5_hh($c, $d, $a, $b, $x[11], 16, 1839030562);
$b = md5_hh($b, $c, $d, $a, $x[14], 23, -35309556);
$a = md5_hh($a, $b, $c, $d, $x[1], 4, -1530992060);
$d = md5_hh($d, $a, $b, $c, $x[4], 11, 1272893353);
$c = md5_hh($c, $d, $a, $b, $x[7], 16, -155497632);
$b = md5_hh($b, $c, $d, $a, $x[10], 23, -1094730640);
$a = md5_hh($a, $b, $c, $d, $x[13], 4, 681279174);
$d = md5_hh($d, $a, $b, $c, $x[0], 11, -358537222);
$c = md5_hh($c, $d, $a, $b, $x[3], 16, -722521979);
$b = md5_hh($b, $c, $d, $a, $x[6], 23, 76029189);
$a = md5_hh($a, $b, $c, $d, $x[9], 4, -640364487);
$d = md5_hh($d, $a, $b, $c, $x[12], 11, -421815835);
$c = md5_hh($c, $d, $a, $b, $x[15], 16, 530742520);
$b = md5_hh($b, $c, $d, $a, $x[2], 23, -995338651);
$a = md5_ii($a, $b, $c, $d, $x[0], 6, -198630844);
$d = md5_ii($d, $a, $b, $c, $x[7], 10, 1126891415);
$c = md5_ii($c, $d, $a, $b, $x[14], 15, -1416354905);
$b = md5_ii($b, $c, $d, $a, $x[5], 21, -57434055);
$a = md5_ii($a, $b, $c, $d, $x[12], 6, 1700485571);
$d = md5_ii($d, $a, $b, $c, $x[3], 10, -1894986606);
$c = md5_ii($c, $d, $a, $b, $x[10], 15, -1051523);
$b = md5_ii($b, $c, $d, $a, $x[1], 21, -2054922799);
$a = md5_ii($a, $b, $c, $d, $x[8], 6, 1873313359);
$d = md5_ii($d, $a, $b, $c, $x[15], 10, -30611744);
$c = md5_ii($c, $d, $a, $b, $x[6], 15, -1560198380);
$b = md5_ii($b, $c, $d, $a, $x[13], 21, 1309151649);
$a = md5_ii($a, $b, $c, $d, $x[4], 6, -145523070);
$d = md5_ii($d, $a, $b, $c, $x[11], 10, -1120210379);
$c = md5_ii($c, $d, $a, $b, $x[2], 15, 718787259);
$b = md5_ii($b, $c, $d, $a, $x[9], 21, -343485551);
$a = safe_add($a, $olda);
$b = safe_add($b, $oldb);
$c = safe_add($c, $oldc);
$d = safe_add($d, $oldd);
return rhex($a) . rhex($b) . rhex($c) . rhex($d);
}
function pvpgn_hash($str)
{
$x = str2blks_pvpgn($str);
$a = 0x6745 << 16 | 0x2301;
$b = 0xefcd << 16 | 0xab89;
$c = 0x98ba << 16 | 0xdcfe;
$d = 0x1032 << 16 | 0x5476;
$e = 0xc3d2 << 16 | 0xe1f0;
for ($i = 0; $i < sizeof($x); $i += 16) {
$olda = $a;
$oldb = $b;
$oldc = $c;
$oldd = $d;
$olde = $e;
for ($j = 0; $j < 16; $j++) {
$w[$j] = $x[$i + $j];
}
for ($j = 0; $j < 64; $j++) {
$ww = $w[$j] ^ $w[$j + 8] ^ $w[$j + 2] ^ $w[$j + 13];
$w[$j + 16] = 1 << $ww % 32;
}
for ($j = 0; $j < 80; $j++) {
if ($j < 20) {
$t = safe_add(safe_add(safe_rol($a, 5), ft($j, $b, $c, $d)), safe_add(safe_add($e, $w[$j]), kt($j)));
} else {
$t = safe_add(safe_add(safe_rol($t, 5), ft($j, $b, $c, $d)), safe_add(safe_add($e, $w[$j]), kt($j)));
}
$e = $d;
$d = $c;
$c = safe_rol($b, 30);
$b = $a;
$a = $t;
}
$a = safe_add($t, $olda);
$b = safe_add($b, $oldb);
$c = safe_add($c, $oldc);
$d = safe_add($d, $oldd);
$e = safe_add($e, $olde);
}
return sprintf("%08x%08x%08x%08x%08x", $a, $b, $c, $d, $e);
}
