function CC($str)
{
$ret = '';
for ($i = 0; $i < strlen($str); $i++) {
$p = ord(substr($str, $i, 1));
if ($p > 160) {
$q = ord(substr($str, ++$i, 1));
$p = $p * 256 + $q - 65536;
}
$ret .= GG($p);
}
return $ret;
}
public function del($sql)
{
$this->fld($sql);
while ($fldF = $this->obj()) {
if ($fldF->Key == "PRI") {
if (GG($fldF->Field) != "") {
$sql .= " WHERE " . $fldF->Field . "=" . GG($fldF->Field);
$flg = 1;
} else {
$PK = $fldF->Field;
}
break;
}
}
if (!$flg) {
print "ERROR... Not found \$_GET[{$PK}]";
} else {
return $this->que("DELETE FROM " . $sql);
}
}
/**
* md5 implemention in php.
* Refer to:
* http://stackoverflow.com/questions/1697882/md5-implementation-in-php-where-am-i-going-wrong
* http://zh.wikipedia.org/wiki/MD5
*/
function MD($string)
{
$a = "67452301";
$b = "EFCDAB89";
$c = "98BADCFE";
$d = "10325476";
$string = (string) $string;
$words = init($string);
for ($i = 0; $i <= count($words) / 16 - 1; $i++) {
$A = $a;
$B = $b;
$C = $c;
$D = $d;
/* ROUND 1 */
FF($A, $B, $C, $D, $words[0 + $i * 16], 7, "d76aa478");
FF($D, $A, $B, $C, $words[1 + $i * 16], 12, "e8c7b756");
FF($C, $D, $A, $B, $words[2 + $i * 16], 17, "242070db");
FF($B, $C, $D, $A, $words[3 + $i * 16], 22, "c1bdceee");
FF($A, $B, $C, $D, $words[4 + $i * 16], 7, "f57c0faf");
FF($D, $A, $B, $C, $words[5 + $i * 16], 12, "4787c62a");
FF($C, $D, $A, $B, $words[6 + $i * 16], 17, "a8304613");
FF($B, $C, $D, $A, $words[7 + $i * 16], 22, "fd469501");
FF($A, $B, $C, $D, $words[8 + $i * 16], 7, "698098d8");
FF($D, $A, $B, $C, $words[9 + $i * 16], 12, "8b44f7af");
FF($C, $D, $A, $B, $words[10 + $i * 16], 17, "ffff5bb1");
FF($B, $C, $D, $A, $words[11 + $i * 16], 22, "895cd7be");
FF($A, $B, $C, $D, $words[12 + $i * 16], 7, "6b901122");
FF($D, $A, $B, $C, $words[13 + $i * 16], 12, "fd987193");
FF($C, $D, $A, $B, $words[14 + $i * 16], 17, "a679438e");
FF($B, $C, $D, $A, $words[15 + $i * 16], 22, "49b40821");
/* ROUND 2 */
GG($A, $B, $C, $D, $words[1 + $i * 16], 5, "f61e2562");
GG($D, $A, $B, $C, $words[6 + $i * 16], 9, "c040b340");
GG($C, $D, $A, $B, $words[11 + $i * 16], 14, "265e5a51");
GG($B, $C, $D, $A, $words[0 + $i * 16], 20, "e9b6c7aa");
GG($A, $B, $C, $D, $words[5 + $i * 16], 5, "d62f105d");
GG($D, $A, $B, $C, $words[10 + $i * 16], 9, "02441453");
GG($C, $D, $A, $B, $words[15 + $i * 16], 14, "d8a1e681");
GG($B, $C, $D, $A, $words[4 + $i * 16], 20, "e7d3fbc8");
GG($A, $B, $C, $D, $words[9 + $i * 16], 5, "21e1cde6");
GG($D, $A, $B, $C, $words[14 + $i * 16], 9, "c33707d6");
GG($C, $D, $A, $B, $words[3 + $i * 16], 14, "f4d50d87");
GG($B, $C, $D, $A, $words[8 + $i * 16], 20, "455a14ed");
GG($A, $B, $C, $D, $words[13 + $i * 16], 5, "a9e3e905");
GG($D, $A, $B, $C, $words[2 + $i * 16], 9, "fcefa3f8");
GG($C, $D, $A, $B, $words[7 + $i * 16], 14, "676f02d9");
GG($B, $C, $D, $A, $words[12 + $i * 16], 20, "8d2a4c8a");
/* ROUND 3 */
HH($A, $B, $C, $D, $words[5 + $i * 16], 4, "fffa3942");
HH($D, $A, $B, $C, $words[8 + $i * 16], 11, "8771f681");
HH($C, $D, $A, $B, $words[11 + $i * 16], 16, "6d9d6122");
HH($B, $C, $D, $A, $words[14 + $i * 16], 23, "fde5380c");
HH($A, $B, $C, $D, $words[1 + $i * 16], 4, "a4beea44");
HH($D, $A, $B, $C, $words[4 + $i * 16], 11, "4bdecfa9");
HH($C, $D, $A, $B, $words[7 + $i * 16], 16, "f6bb4b60");
HH($B, $C, $D, $A, $words[10 + $i * 16], 23, "bebfbc70");
HH($A, $B, $C, $D, $words[13 + $i * 16], 4, "289b7ec6");
HH($D, $A, $B, $C, $words[0 + $i * 16], 11, "eaa127fa");
HH($C, $D, $A, $B, $words[3 + $i * 16], 16, "d4ef3085");
HH($B, $C, $D, $A, $words[6 + $i * 16], 23, "04881d05");
HH($A, $B, $C, $D, $words[9 + $i * 16], 4, "d9d4d039");
HH($D, $A, $B, $C, $words[12 + $i * 16], 11, "e6db99e5");
HH($C, $D, $A, $B, $words[15 + $i * 16], 16, "1fa27cf8");
HH($B, $C, $D, $A, $words[2 + $i * 16], 23, "c4ac5665");
/* ROUND 4 */
II($A, $B, $C, $D, $words[0 + $i * 16], 6, "f4292244");
II($D, $A, $B, $C, $words[7 + $i * 16], 10, "432aff97");
II($C, $D, $A, $B, $words[14 + $i * 16], 15, "ab9423a7");
II($B, $C, $D, $A, $words[5 + $i * 16], 21, "fc93a039");
II($A, $B, $C, $D, $words[12 + $i * 16], 6, "655b59c3");
II($D, $A, $B, $C, $words[3 + $i * 16], 10, "8f0ccc92");
II($C, $D, $A, $B, $words[10 + $i * 16], 15, "ffeff47d");
II($B, $C, $D, $A, $words[1 + $i * 16], 21, "85845dd1");
II($A, $B, $C, $D, $words[8 + $i * 16], 6, "6fa87e4f");
II($D, $A, $B, $C, $words[15 + $i * 16], 10, "fe2ce6e0");
II($C, $D, $A, $B, $words[6 + $i * 16], 15, "a3014314");
II($B, $C, $D, $A, $words[13 + $i * 16], 21, "4e0811a1");
II($A, $B, $C, $D, $words[4 + $i * 16], 6, "f7537e82");
II($D, $A, $B, $C, $words[11 + $i * 16], 10, "bd3af235");
II($C, $D, $A, $B, $words[2 + $i * 16], 15, "2ad7d2bb");
II($B, $C, $D, $A, $words[9 + $i * 16], 21, "eb86d391");
addVars($a, $b, $c, $d, $A, $B, $C, $D);
}
$MD5 = '';
foreach (array($a, $b, $c, $d) as $x) {
$MD5 .= implode('', array_reverse(str_split(leftpad($x, 8), 2)));
}
return $MD5;
}
