用PHP写的MD加密函数

//php_md("字符串")
define("BITS_TO_A_BYTE",8);
define("BYTES_TO_A_WORD",);
define("BITS_TO_A_WORD",);
$m_lOnBits=array(0);
$m_lPower=array(0);

function LShift($lValue,$iShiftBits)
{
        if ($iShiftBits==0) return $lValue;
        if ($iShiftBits==)
        {
                if ($lValue&) { return 0x80000000; }
                else { return 0; }
        }
        if ($iShiftBits < 0 || $iShiftBits > ) { }
        if (($lValue&$GLOBALS[-$iShiftBits]))
        {        $tmpstr=(($lValue&$GLOBALS[-($iShiftBits+)])*$GLOBALS[$iShiftBits])|0x80000000; }
        else
        { $tmpstr=(($lValue&$GLOBALS[-$iShiftBits])*$GLOBALS[$iShiftBits]); }
        return $tmpstr;
}

function RShift($lValue,$iShiftBits)
{
        if ($iShiftBits==0)return $lValue;
        if ($iShiftBits==)
        {
                if ($lValue&0x80000000) { return ; }
                else { return 0; }
        }
        if ($iShiftBits<0 || $iShiftBits>) { }
        $tmpstr=floor(($lValue&0x7FFFFFFE)/$GLOBALS[$iShiftBits]);
        if ($lValue&0x80000000) { $tmpstr=$tmpstr|floor(0x0000000/$GLOBALS[$iShiftBits-]); }
        return $tmpstr;
}

function RotateLeft($lValue,$iShiftBits)
{
        return LShift($lValue,$iShiftBits)|RShift($lValue,(-$iShiftBits));
}

function AddUnsigned($lX,$lY)
{
        $lX8=$lX&0x80000000;
        $lY8=$lY&0x80000000;
        $lX=$lX&0x0000000;
        $lY=$lY&0x0000000;
        $lResult=($lX&0xFFFFFFF)+($lY&0xFFFFFFF);

        if ($lX&$lY) { $lResult=$lResult^0x80000000^$lX8^$lY8; }
        if ($lX|$lY)
        {
                if ($lResult&0x0000000)
                { $lResult=$lResult^0xC0000000^$lX8^$lY8; }
                else
                { $lResult=$lResult^0x0000000^$lX8^$lY8; }
        }
        else
        { $lResult=$lResult^$lX8^$lY8; }
        return $lResult;
}

function md_F($x,$y,$z)
{
        return ($x&$y)|((~$x)&$z);
}

function md_G($x,$y,$z)
{
        return ($x&$z)|($y&(~$z));
}

function md_H($x,$y,$z)
{
        return ($x^$y^$z);
}

function md_I($x,$y,$z)
{
        return ($y^($x|(~$z)));
}

function md_FF(&$a,$b,$c,$d,$x,$s,$ac)
{
        $a=AddUnsigned($a,AddUnsigned(AddUnsigned(md_F($b,$c,$d),$x),$ac));
        $a=RotateLeft($a,$s);
        $a=AddUnsigned($a,$b);
}

function md_GG(&$a,$b,$c,$d,$x,$s,$ac)
{
        $a=AddUnsigned($a,AddUnsigned(AddUnsigned(md_G($b,$c,$d),$x),$ac));
        $a=RotateLeft($a,$s);
        $a=AddUnsigned($a,$b);
}

function md_HH(&$a,$b,$c,$d,$x,$s,$ac)
{
        $a=AddUnsigned($a,AddUnsigned(AddUnsigned(md_H($b,$c,$d),$x),$ac));
        $a=RotateLeft($a,$s);
        $a=AddUnsigned($a,$b);
}

function md_II(&$a,$b,$c,$d,$x,$s,$ac)
{
        $a=AddUnsigned($a,AddUnsigned(AddUnsigned(md_I($b,$c,$d),$x),$ac));
        $a=RotateLeft($a,$s);
        $a=AddUnsigned($a,$b);
}