Home | Login | Contact | Readme 
 Home   Documents  |  Articles  |  Pictures  |  Downloads  |  Guestbook  |About MySelf  |  [繁體中文]
November 2017
SuMTuWThFSa
1234
567891011
12131415161718
19202122232425
2627282930
< MONTH >  < YEAR >
Category
Ab-Myself My Diraries My Articles 國學散記 寫作文摘 網絡資料 醫藥相關 歷史札記 教學參考 信息技術 地理學習 时事观察 公益视野 信仰宗教 En Digest
Latest Comments
- Удобная аренда авто в ОА... - Hello. And Bye. - 毛主席万岁 - 呵呵 - 儒学是个坑,中国多少年毁在里面。 偶然经过贵站... - 找覃吧 - 是的吖说是 - 凄い夏達ちゃん 頑張れ!中国人の光栄ですよね!
Search For
Latest GuestBooks
- 一直都很想去了解,郭雪到底是个什么样的人。
回复   未回复
- 孝基金是团中央候补委员、全国道德模范杨怀保先生发...
回复   未回复
- 你好
我在书上看了你的文章
我想...

回复   可以,欢迎
- 郭老师你好!我 是一位历史爱好者,很喜...
回复   未回复
- 你的博客真好哦!
回复   未回复
Infomation
Total:
Recommending
如何卸载还原精灵 (归档)
怎么样追女孩子?
汉中女孩
一首别人给的英文诗《TEAR》
中国近代史[重点、难点]40题
怀念儿时偶像翁美玲
托收GOOGLE支票各个地区银行时间汇总表
雷锋
对中国古代史一些重要问题的精析
Readming TOP 10
常用物谜
免费电影
五行属金的字,起名字库
网络(归档)
国防知识竞赛参考资料
灯谜
毛泽东和邓小平好比上帝和魔鬼------
如何卸载还原精灵 (归档)
怎么样追女孩子?
中国近现代史试题汇总
郭雪个人博客 > 信息技術 > 关于网上流传的PHP写MD5加密函数

关于网上流传的PHP写MD5加密函数 [2010-1-24]

文字 〖

观察一下就可以发现,这个代码是改写asp里的,只是仿写,所以调试时出错,不知道为什么会在网上广泛流传,网络这东西,垃圾成堆,让人不敢信任了。guoxue_mmkey_com

<?php
define("BITS_TO_A_BYTE",8);
define("BYTES_TO_A_WORD",4);
define("BITS_TO_A_WORD",32);
$m_lOnBits=array(30);  //ASP函数中的定义变量数组,这里没有用到
$m_l2Power=array(30);

郭_雪_博_客

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

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

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

郭_雪_博_客

function AddUnsigned($lX,$lY)
{
        $lX8=$lX&0x80000000;
        $lY8=$lY&0x80000000;
        $lX4=$lX&0x40000000;
        $lY4=$lY&0x40000000;
        $lResult=($lX&0x3FFFFFFF)+($lY&0x3FFFFFFF);
国学个人博客

        if ($lX4&$lY4) { $lResult=$lResult^0x80000000^$lX8^$lY8; }
        if ($lX4|$lY4)
        {
                if ($lResult&0x40000000)
                { $lResult=$lResult^0xC0000000^$lX8^$lY8; }
                else
                { $lResult=$lResult^0x40000000^$lX8^$lY8; }
        }
        else
        { $lResult=$lResult^$lX8^$lY8; }
        return $lResult;
}

郭雪个人博客

function md5_F($x,$y,$z)
{
        return ($x&$y)|((~$x)&$z);
}
国学个人博客

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

guoxue.mmkey.com

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

郭_雪_博_客

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

郭雪个人博客

function md5_FF(&$a,$b,$c,$d,$x,$s,$ac)
{
        $a=AddUnsigned($a,AddUnsigned(AddUnsigned(md5_F($b,$c,$d),$x),$ac));
        $a=RotateLeft($a,$s);
        $a=AddUnsigned($a,$b);
}
guoxue_mmkey_com

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

郭雪个人博客

function md5_HH(&$a,$b,$c,$d,$x,$s,$ac)
{
        $a=AddUnsigned($a,AddUnsigned(AddUnsigned(md5_H($b,$c,$d),$x),$ac));
        $a=RotateLeft($a,$s);
        $a=AddUnsigned($a,$b);
}
guoxue_mmkey_com

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

guoxue.mmkey.com

function ConvertToWordArray($sMessage)
{
        $lWordArray=array();
        $MODULUS_BITS=512;
        $CONGRUENT_BITS=448;
        $lMessageLength=strlen($sMessage);
        $lNumberOfWords=(floor(($lMessageLength+floor(($MODULUS_BITS-$CONGRUENT_BITS)/BITS_TO_A_BYTE))/floor($MODULUS_BITS/BITS_TO_A_BYTE))+1)*floor($MODULUS_BITS/BITS_TO_A_WORD);
        $lBytePosition=0;
        $lByteCount=0;
        while(!($lByteCount>=$lMessageLength))
        {
                $lWordCount=floor($lByteCount/BYTES_TO_A_WORD);
                $lBytePosition=($lByteCount%BYTES_TO_A_WORD)*BITS_TO_A_BYTE;
                $lWordArray[$lWordCount]=$lWordArray[$lWordCount]|LShift(ord(substr($sMessage,$lByteCount+1-1,1)),$lBytePosition);
                $lByteCount=$lByteCount+1;
        }
        $lWordCount=floor($lByteCount/BYTES_TO_A_WORD);
        $lBytePosition=($lByteCount%BYTES_TO_A_WORD)*BITS_TO_A_BYTE;
        $lWordArray[$lWordCount]=$lWordArray[$lWordCount]|LShift(0x80,$lBytePosition);
        $lWordArray[$lNumberOfWords-2]=LShift($lMessageLength,3);
        $lWordArray[$lNumberOfWords-1]=RShift($lMessageLength,29);
        return $lWordArray;
}
guoxue_mmkey_com

function WordToHex($lValue)
{
        $tmpstr="";
        for ($lCount=0; $lCount<=3; $lCount++)
        {
                $lByte=RShift($lValue,$lCount*BITS_TO_A_BYTE)&$GLOBALS[BITS_TO_A_BYTE-1];
                 //$tmpstr=$tmpstr.(substr("0".dechex($lByte),strlen("0".dechex($lByte))-2));   //这行可能有问题
                   $tmpstr=$tmpstr.(substr("0".dechex($lByte),-2,2));
        }
        return $tmpstr;
}
/*作者上面注释会在上面几行出错,但是仔细对照asp的MD5函数,发现并没错,翻译过去是正确的,下面是asp函数原型

Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount
 
    For lCount = 0 To 3
        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)   '取右侧两位
    Next
End Function
*/
guoxue_mmkey_com


function php_MD5($sMessage)
{
        $GLOBALS[0]=intval(1);
        $GLOBALS[1]=intval(3);
        $GLOBALS[2]=intval(7);
        $GLOBALS[3]=intval(15);
        $GLOBALS[4]=intval(31);
        $GLOBALS[5]=intval(63);
        $GLOBALS[6]=intval(127);
        $GLOBALS[7]=intval(255);
        $GLOBALS[8]=intval(511);
        $GLOBALS[9]=intval(1023);
        $GLOBALS[10]=intval(2047);
        $GLOBALS[11]=intval(4095);
        $GLOBALS[12]=intval(8191);
        $GLOBALS[13]=intval(16383);
        $GLOBALS[14]=intval(32767);
        $GLOBALS[15]=intval(65535);
        $GLOBALS[16]=intval(131071);
        $GLOBALS[17]=intval(262143);
        $GLOBALS[18]=intval(524287);
        $GLOBALS[19]=intval(1048575);
        $GLOBALS[20]=intval(2097151);
        $GLOBALS[21]=intval(4194303);
        $GLOBALS[22]=intval(8388607);
        $GLOBALS[23]=intval(16777215);
        $GLOBALS[24]=intval(33554431);
        $GLOBALS[25]=intval(67108863);
        $GLOBALS[26]=intval(134217727);
        $GLOBALS[27]=intval(268435455);
        $GLOBALS[28]=intval(536870911);
        $GLOBALS[29]=intval(1073741823);
        $GLOBALS[30]=intval(2147483647);

郭雪个人博客

        $GLOBALS[0]=intval(1);  //明显出错,重复定义,以下均错误
        $GLOBALS[1]=intval(2);
        $GLOBALS[2]=intval(4);
        $GLOBALS[3]=intval(8);
        $GLOBALS[4]=intval(16);
        $GLOBALS[5]=intval(32);
        $GLOBALS[6]=intval(64);
        $GLOBALS[7]=intval(128);
        $GLOBALS[8]=intval(256);
        $GLOBALS[9]=intval(512);
        $GLOBALS[10]=intval(1024);
        $GLOBALS[11]=intval(2048);
        $GLOBALS[12]=intval(4096);
        $GLOBALS[13]=intval(8192);
        $GLOBALS[14]=intval(16384);
        $GLOBALS[15]=intval(32768);
        $GLOBALS[16]=intval(65536);
        $GLOBALS[17]=intval(131072);
        $GLOBALS[18]=intval(262144);
        $GLOBALS[19]=intval(524288);
        $GLOBALS[20]=intval(1048576);
        $GLOBALS[21]=intval(2097152);
        $GLOBALS[22]=intval(4194304);
        $GLOBALS[23]=intval(8388608);
        $GLOBALS[24]=intval(16777216);
        $GLOBALS[25]=intval(33554432);
        $GLOBALS[26]=intval(67108864);
        $GLOBALS[27]=intval(134217728);
        $GLOBALS[28]=intval(268435456);
        $GLOBALS[29]=intval(536870912);
        $GLOBALS[30]=intval(1073741824);

guoxue.mmkey.com

        $S11=7;
        $S12=12;
        $S13=17;
        $S14=22;
        $S21=5;
        $S22=9;
        $S23=14;
        $S24=20;
        $S31=4;
        $S32=11;
        $S33=16;
        $S34=23;
        $S41=6;
        $S42=10;
        $S43=15;
        $S44=21;
guoxue_mmkey_com

        $x=ConvertToWordArray($sMessage);

郭雪个人博客

        $a=0x67452301;
        $b=0xEFCDAB89;
        $c=0x98BADCFE;
        $d=0x10325476;

郭雪个人博客

        for ($k=0; $k<=count($x); $k=$k+16)
        {
                $AA=$a;
                $BB=$b;
                $CC=$c;
                $DD=$d;
                md5_FF($a,$b,$c,$d,$x[$k+0],$S11,0xD76AA478);
        md5_FF($d,$a,$b,$c,$x[$k+1],$S12,0xE8C7B756);
        md5_FF($c,$d,$a,$b,$x[$k+2],$S13,0x242070DB);
        md5_FF($b,$c,$d,$a,$x[$k+3],$S14,0xC1BDCEEE);
        md5_FF($a,$b,$c,$d,$x[$k+4],$S11,0xF57C0FAF);
        md5_FF($d,$a,$b,$c,$x[$k+5],$S12,0x4787C62A);
        md5_FF($c,$d,$a,$b,$x[$k+6],$S13,0xA8304613);
        md5_FF($b,$c,$d,$a,$x[$k+7],$S14,0xFD469501);
        md5_FF($a,$b,$c,$d,$x[$k+8],$S11,0x698098D8);
        md5_FF($d,$a,$b,$c,$x[$k+9],$S12,0x8B44F7AF);
        md5_FF($c,$d,$a,$b,$x[$k+10],$S13,0xFFFF5BB1);
        md5_FF($b,$c,$d,$a,$x[$k+11],$S14,0x895CD7BE);
        md5_FF($a,$b,$c,$d,$x[$k+12],$S11,0x6B901122);
        md5_FF($d,$a,$b,$c,$x[$k+13],$S12,0xFD987193);
        md5_FF($c,$d,$a,$b,$x[$k+14],$S13,0xA679438E);
        md5_FF($b,$c,$d,$a,$x[$k+15],$S14,0x49B40821);
guoxue_mmkey_com

        md5_GG($a,$b,$c,$d,$x[$k+1],$S21,0xF61E2562);
        md5_GG($d,$a,$b,$c,$x[$k+6],$S22,0xC040B340);
        md5_GG($c,$d,$a,$b,$x[$k+11],$S23,0x265E5A51);
        md5_GG($b,$c,$d,$a,$x[$k+0],$S24,0xE9B6C7AA);
        md5_GG($a,$b,$c,$d,$x[$k+5],$S21,0xD62F105D);
        md5_GG($d,$a,$b,$c,$x[$k+10],$S22,0x2441453);
        md5_GG($c,$d,$a,$b,$x[$k+15],$S23,0xD8A1E681);
        md5_GG($b,$c,$d,$a,$x[$k+4],$S24,0xE7D3FBC8);
        md5_GG($a,$b,$c,$d,$x[$k+9],$S21,0x21E1CDE6);
        md5_GG($d,$a,$b,$c,$x[$k+14],$S22,0xC33707D6);
        md5_GG($c,$d,$a,$b,$x[$k+3],$S23,0xF4D50D87);
        md5_GG($b,$c,$d,$a,$x[$k+8],$S24,0x455A14ED);
        md5_GG($a,$b,$c,$d,$x[$k+13],$S21,0xA9E3E905);
        md5_GG($d,$a,$b,$c,$x[$k+2],$S22,0xFCEFA3F8);
        md5_GG($c,$d,$a,$b,$x[$k+7],$S23,0x676F02D9);
        md5_GG($b,$c,$d,$a,$x[$k+12],$S24,0x8D2A4C8A);

郭_雪_博_客

        md5_HH($a,$b,$c,$d,$x[$k+5],$S31,0xFFFA3942);
        md5_HH($d,$a,$b,$c,$x[$k+8],$S32,0x8771F681);
        md5_HH($c,$d,$a,$b,$x[$k+11],$S33,0x6D9D6122);
        md5_HH($b,$c,$d,$a,$x[$k+14],$S34,0xFDE5380C);
        md5_HH($a,$b,$c,$d,$x[$k+1],$S31,0xA4BEEA44);
        md5_HH($d,$a,$b,$c,$x[$k+4],$S32,0x4BDECFA9);
        md5_HH($c,$d,$a,$b,$x[$k+7],$S33,0xF6BB4B60);
        md5_HH($b,$c,$d,$a,$x[$k+10],$S34,0xBEBFBC70);
        md5_HH($a,$b,$c,$d,$x[$k+13],$S31,0x289B7EC6);
        md5_HH($d,$a,$b,$c,$x[$k+0],$S32,0xEAA127FA);
        md5_HH($c,$d,$a,$b,$x[$k+3],$S33,0xD4EF3085);
        md5_HH($b,$c,$d,$a,$x[$k+6],$S34,0x4881D05);
        md5_HH($a,$b,$c,$d,$x[$k+9],$S31,0xD9D4D039);
        md5_HH($d,$a,$b,$c,$x[$k+12],$S32,0xE6DB99E5);
        md5_HH($c,$d,$a,$b,$x[$k+15],$S33,0x1FA27CF8);
        md5_HH($b,$c,$d,$a,$x[$k+2],$S34,0xC4AC5665);

郭雪个人博客

        md5_II($a,$b,$c,$d,$x[$k+0],$S41,0xF4292244);
        md5_II($d,$a,$b,$c,$x[$k+7],$S42,0x432AFF97);
        md5_II($c,$d,$a,$b,$x[$k+14],$S43,0xAB9423A7);
        md5_II($b,$c,$d,$a,$x[$k+5],$S44,0xFC93A039);
        md5_II($a,$b,$c,$d,$x[$k+12],$S41,0x655B59C3);
        md5_II($d,$a,$b,$c,$x[$k+3],$S42,0x8F0CCC92);
        md5_II($c,$d,$a,$b,$x[$k+10],$S43,0xFFEFF47D);
        md5_II($b,$c,$d,$a,$x[$k+1],$S44,0x85845DD1);
        md5_II($a,$b,$c,$d,$x[$k+8],$S41,0x6FA87E4F);
        md5_II($d,$a,$b,$c,$x[$k+15],$S42,0xFE2CE6E0);
        md5_II($c,$d,$a,$b,$x[$k+6],$S43,0xA3014314);
        md5_II($b,$c,$d,$a,$x[$k+13],$S44,0x4E0811A1);
        md5_II($a,$b,$c,$d,$x[$k+4],$S41,0xF7537E82);
        md5_II($d,$a,$b,$c,$x[$k+11],$S42,0xBD3AF235);
        md5_II($c,$d,$a,$b,$x[$k+2],$S43,0x2AD7D2BB);
        md5_II($b,$c,$d,$a,$x[$k+9],$S44,0xEB86D391);
                $a=AddUnsigned($a,$AA);
                $b=AddUnsigned($b,$BB);
                $c=AddUnsigned($c,$CC);
                $d=AddUnsigned($d,$DD);
        }
        return strtolower(WordToHex($a).WordToHex($b).WordToHex($c).WordToHex($d));
}

郭_雪_博_客


       $aaa="abcd";   //这个函数是错误的,和php自带的md5结果不一致
     echo PHP_MD5($aaa);   //输出自定义函数结果
     echo "<br>".md5($aaa); //使用内置的函数返回结果
?>
guoxue_mmkey_com

输出结果:

guoxue.mmkey.com

80808000008080008080008000808000
e2fc714c4727ee9395f324cd2e7f331f

郭雪个人博客

因此,我对该函数做了修改如下:guoxue_mmkey_com

~相关日志

 4 关于我的名字 4 关于我自己!4 关于《中华人民共和国残疾人保障法(草案)》的说明
 4 关于新文化运动的思考与几点认识 4 厘金中共中央关于清算减租及土地问题的指示4 关于联合国为周恩来逝世下半旗的调查报告--
 4 [转帖]关于抗日战争湘豫桂战役的欺骗与谎言 4 网上收集的几个花指令4 关于我的这个博客
 4 关于“编户齐民” 4 关于毛泽东思想提出的历史过程4 关于中国数据停封本人空间的事情

At 12:39:36 | Comments [0] | 3027 views | From [Internet] UP

如何跨VLAN访问的实验 3 4 IE6 7 8 无法显示GIF PNG图片的解决方法
Comments
此篇日志暂时没有相关的说明和评论 -__________-|||
NickName:   头像 验证码:   
  
Links: BaiDu | GooGle | Yahoo | SkyCN | GouGou | TuDou | PcOnLine | Wikipedia | GuoXue | PKU | MySpace | Ifeng | MSN | ZGwww | 1ting | ...
Powered by Headwind | iCON Reserved by Mmkey.COM | Processed in 0.156250 Second.