function core_md5($x, $len)
{
/* append padding */
$x[$len >> 5] = NULL;
$x[$len >> 5] |= 0x80 << $len % 32;
$x[(zeroFill($len + 64, 9) << 4) + 14] = $len;
$a = 1732584193;
$b = -271733879;
$c = -1732584194;
$d = 271733878;
for ($i = 0; $i < count($x); $i += 16) {
$olda = $a;
$oldb = $b;
$oldc = $c;
$oldd = $d;
for ($j = 0; $j <= 15; $j++) {
if (!isset($x[$i + $j])) {
$x[$i + $j] = NULL;
}
}
$a = md5_ff($a, $b, $c, $d, $x[$i + 0], 7, -680876936);
$d = md5_ff($d, $a, $b, $c, $x[$i + 1], 12, -389564586);
$c = md5_ff($c, $d, $a, $b, $x[$i + 2], 17, 606105819);
$b = md5_ff($b, $c, $d, $a, $x[$i + 3], 22, -1044525330);
$a = md5_ff($a, $b, $c, $d, $x[$i + 4], 7, -176418897);
$d = md5_ff($d, $a, $b, $c, $x[$i + 5], 12, 1200080426);
$c = md5_ff($c, $d, $a, $b, $x[$i + 6], 17, -1473231341);
$b = md5_ff($b, $c, $d, $a, $x[$i + 7], 22, -45705983);
$a = md5_ff($a, $b, $c, $d, $x[$i + 8], 7, 1770035416);
$d = md5_ff($d, $a, $b, $c, $x[$i + 9], 12, -1958414417);
$c = md5_ff($c, $d, $a, $b, $x[$i + 10], 17, -42063);
$b = md5_ff($b, $c, $d, $a, $x[$i + 11], 22, -1990404162);
$a = md5_ff($a, $b, $c, $d, $x[$i + 12], 7, 1804603682);
$d = md5_ff($d, $a, $b, $c, $x[$i + 13], 12, -40341101);
$c = md5_ff($c, $d, $a, $b, $x[$i + 14], 17, -1502002290);
$b = md5_ff($b, $c, $d, $a, $x[$i + 15], 22, 1236535329);
$a = md5_gg($a, $b, $c, $d, $x[$i + 1], 5, -165796510);
$d = md5_gg($d, $a, $b, $c, $x[$i + 6], 9, -1069501632);
$c = md5_gg($c, $d, $a, $b, $x[$i + 11], 14, 643717713);
$b = md5_gg($b, $c, $d, $a, $x[$i + 0], 20, -373897302);
$a = md5_gg($a, $b, $c, $d, $x[$i + 5], 5, -701558691);
$d = md5_gg($d, $a, $b, $c, $x[$i + 10], 9, 38016083);
$c = md5_gg($c, $d, $a, $b, $x[$i + 15], 14, -660478335);
$b = md5_gg($b, $c, $d, $a, $x[$i + 4], 20, -405537848);
$a = md5_gg($a, $b, $c, $d, $x[$i + 9], 5, 568446438);
$d = md5_gg($d, $a, $b, $c, $x[$i + 14], 9, -1019803690);
$c = md5_gg($c, $d, $a, $b, $x[$i + 3], 14, -187363961);
$b = md5_gg($b, $c, $d, $a, $x[$i + 8], 20, 1163531501);
$a = md5_gg($a, $b, $c, $d, $x[$i + 13], 5, -1444681467);
$d = md5_gg($d, $a, $b, $c, $x[$i + 2], 9, -51403784);
$c = md5_gg($c, $d, $a, $b, $x[$i + 7], 14, 1735328473);
$b = md5_gg($b, $c, $d, $a, $x[$i + 12], 20, -1926607734);
$a = md5_hh($a, $b, $c, $d, $x[$i + 5], 4, -378558);
$d = md5_hh($d, $a, $b, $c, $x[$i + 8], 11, -2022574463);
$c = md5_hh($c, $d, $a, $b, $x[$i + 11], 16, 1839030562);
$b = md5_hh($b, $c, $d, $a, $x[$i + 14], 23, -35309556);
$a = md5_hh($a, $b, $c, $d, $x[$i + 1], 4, -1530992060);
$d = md5_hh($d, $a, $b, $c, $x[$i + 4], 11, 1272893353);
$c = md5_hh($c, $d, $a, $b, $x[$i + 7], 16, -155497632);
$b = md5_hh($b, $c, $d, $a, $x[$i + 10], 23, -1094730640);
$a = md5_hh($a, $b, $c, $d, $x[$i + 13], 4, 681279174);
$d = md5_hh($d, $a, $b, $c, $x[$i + 0], 11, -358537222);
$c = md5_hh($c, $d, $a, $b, $x[$i + 3], 16, -722521979);
$b = md5_hh($b, $c, $d, $a, $x[$i + 6], 23, 76029189);
$a = md5_hh($a, $b, $c, $d, $x[$i + 9], 4, -640364487);
$d = md5_hh($d, $a, $b, $c, $x[$i + 12], 11, -421815835);
$c = md5_hh($c, $d, $a, $b, $x[$i + 15], 16, 530742520);
$b = md5_hh($b, $c, $d, $a, $x[$i + 2], 23, -995338651);
$a = md5_ii($a, $b, $c, $d, $x[$i + 0], 6, -198630844);
$d = md5_ii($d, $a, $b, $c, $x[$i + 7], 10, 1126891415);
$c = md5_ii($c, $d, $a, $b, $x[$i + 14], 15, -1416354905);
$b = md5_ii($b, $c, $d, $a, $x[$i + 5], 21, -57434055);
$a = md5_ii($a, $b, $c, $d, $x[$i + 12], 6, 1700485571);
$d = md5_ii($d, $a, $b, $c, $x[$i + 3], 10, -1894986606);
$c = md5_ii($c, $d, $a, $b, $x[$i + 10], 15, -1051523);
$b = md5_ii($b, $c, $d, $a, $x[$i + 1], 21, -2054922799);
$a = md5_ii($a, $b, $c, $d, $x[$i + 8], 6, 1873313359);
$d = md5_ii($d, $a, $b, $c, $x[$i + 15], 10, -30611744);
$c = md5_ii($c, $d, $a, $b, $x[$i + 6], 15, -1560198380);
$b = md5_ii($b, $c, $d, $a, $x[$i + 13], 21, 1309151649);
$a = md5_ii($a, $b, $c, $d, $x[$i + 4], 6, -145523070);
$d = md5_ii($d, $a, $b, $c, $x[$i + 11], 10, -1120210379);
$c = md5_ii($c, $d, $a, $b, $x[$i + 2], 15, 718787259);
$b = md5_ii($b, $c, $d, $a, $x[$i + 9], 21, -343485551);
$a = safe_add($a, $olda);
$b = safe_add($b, $oldb);
$c = safe_add($c, $oldc);
$d = safe_add($d, $oldd);
}
return array($a, $b, $c, $d);
}
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);
}
