MD5加密算法探究和應(yīng)用

1、. . . . MD5加密算法探究與其應(yīng)用引言MD5加密算法作為一種免費(fèi)的加密算法，廣泛地應(yīng)用于計算機(jī)，數(shù)據(jù)安全傳輸，數(shù)字簽名認(rèn)證等安全領(lǐng)域MD5的全稱是Message-Digest Algorithm 5（信息-摘要算法），是由Ron Rivest （RSA 算法的發(fā)明人之一，于2002年獲得圖靈獎）于90年代初提出，經(jīng)MD2，MD3和MD4發(fā)展而來的Rivest 最早于1989年提出了MD2算法針對8位計算機(jī)做了優(yōu)化，為了提高算法的安全性與穩(wěn)定性，Rivest在1990年又開發(fā)出MD4算法，但人們很快發(fā)現(xiàn)了MD4算法的漏洞隨后在1991年，Rivest開發(fā)出來技術(shù)上更加穩(wěn)定安全更趨于成熟的

2、MD5算法1993年，美國國家標(biāo)準(zhǔn)和技術(shù)協(xié)會（NIST）提出了安全散列算法（SHA）1995年又發(fā)布了一個修訂版，即SHA-1.SHA-1與MD5均由MD4導(dǎo)出，所以彼此很相似相應(yīng)的，它們的強(qiáng)度和其他特征也是相似的2004年8月17日于美國加州圣巴巴拉召開的國際密碼學(xué)會議（Crypto 2004）上，來自大學(xué)的王小云教授做了破譯MD5，HAVAL-128，MD4和RIPEMD算法的報告，宣告了MD系列算法的破解對于一個進(jìn)行身份認(rèn)證的摘要算法來說，MD5已經(jīng)是不安全了，但是很多實際的應(yīng)用領(lǐng)域MD5還有它的使用價值的，所以我們分析探究它的加密原理，我們在此基礎(chǔ)上對它的加密進(jìn)行改進(jìn)利用，對于我們今后

3、的加密安全工作還是很有幫助的1.預(yù)備知識1.1 Hash函數(shù)Hash函數(shù)是一種將任意長度的信息壓縮到某一固定長度的消息摘要的函數(shù)，又稱Hash算法Hash函數(shù)必須滿足一定的安全條件這里主要介紹三個主要的方面：單向性，弱抗碰撞性，強(qiáng)碰撞性單向性是指對Hash函數(shù)h而言，又x計算h（x）是容易的，但從h（x）計算x是不可行的一個弱碰撞的Hash函數(shù)是滿足下列條件的一個函數(shù)h： h的輸入 可以是任意長度的消息或文件ph的輸出長度是固定的給定h和M，計算h（p）是很容易的給定h和一個隨機(jī)選擇的消息p1，找到另一個消息p2，p1p2使得h（p1）=h（p2）計算上是不可行的一個強(qiáng)碰撞的Hash函數(shù)是滿足

4、下列條件的一個函數(shù)h：h的輸入 可以是任意長度的消息或文件ph的輸出長度是固定的給定h和M，計算h（p）是很容易的給定h，找到兩個不同的消息p1，p2 ，使得h（p1）=h（p2）在計算上是不可行的（如果有兩個不同的消息M，M，使得h（M）=h（M），我們就說這兩個消息是碰撞的）1.2 16進(jìn)制的相關(guān)知識十六進(jìn)制在數(shù)學(xué)中是一種逢16進(jìn)1的進(jìn)位制，一般用數(shù)字0到9和字母A到F表示（A-F表示10-15）十六進(jìn)制轉(zhuǎn)換成二進(jìn)制的比特流（第一列16進(jìn)制，第二列2進(jìn)制）0123456789ABCDEF0000000100100011010001010110011110001001101010111100

5、110111101111例如：十六進(jìn)制為9FD，那么在計算機(jī)中二進(jìn)制表示1（9=1001，F(xiàn)=1111，D=1101）1.3 邏輯運(yùn)算 邏輯“與”運(yùn)算，用“”表示真值表表示為pq111100010000二進(jìn)制按位邏輯“與”運(yùn)算，即逐位進(jìn)行邏輯“與”運(yùn)算，并將逐位邏輯運(yùn)算的結(jié)果進(jìn)行組合得到的結(jié)果例如：如果 ，那么例如：如果，那么首先把轉(zhuǎn)換為二進(jìn)制為；其次把轉(zhuǎn)換而二進(jìn)制位；最后按位進(jìn)行邏輯“與”運(yùn)算結(jié)果為 邏輯“或”運(yùn)算，用“|”表示真值表表示為：pq|111101011000 邏輯“異或”運(yùn)算，用“”表示真值表表示為：pq110101011000 邏輯“取反”運(yùn)算二進(jìn)制數(shù)的所有0改為,1改為0,

6、這個過程叫“取反”例如：如果，那么1.4 模運(yùn)算基本概念給定一個正整數(shù)，任意一個整數(shù)，一定存在等式 ；其中是整數(shù)，且 ，稱為除以的商，為除以的余數(shù)對于正整數(shù)和整數(shù)，定義如下運(yùn)算：  模加法：，其結(jié)果是算術(shù)和除以的余數(shù)，也就是說，則例如：，那么（注這里“+”是模加法運(yùn)算）首先將轉(zhuǎn)換為二進(jìn)制為；其次將轉(zhuǎn)換為二進(jìn)制為 然后逐位相加結(jié)果為1110因為實行的是二進(jìn)制數(shù)據(jù)，逢2向前一位進(jìn)1，所以最終結(jié)果為：01110，這個結(jié)果的十進(jìn)制是：，然后模，結(jié)果為，它的二進(jìn)制表示為：11102. MD5加密算法的原理簡單的說，MD5加密以512位分組來處理輸入的信息，且每一分組又被劃分

7、為16個32位子分組，經(jīng)過一系列的處理后，算法的輸出有4個32位分組組成，將這4個32位分組級聯(lián)后將生成一個128位散列值第一步：消息的填充如果輸入的消息的長度（以bit位單位）對512求余的結(jié)果不等于448，就需要填充使得對512求余的結(jié)果等于448，填充的方法是附加一個“1”在消息后面，再補(bǔ)充多個“0”，然后在其后附上64比特的消息長度（填充前）的二進(jìn)制表示這兩步的作用是使最終填充后的消息恰好是512比特的整倍長，同時確保不同的消息在填充后不會一樣第二步:記錄消息長度用64位來存儲填充前消息長度，這64位加在第一步結(jié)果的后面，這樣消息長度就變?yōu)镹*512+448+64=（N+1）*512（

8、bits）第三步：加載初始標(biāo)準(zhǔn)數(shù)據(jù)算法中使用了四個32比特的變量A，B，C，D，先將這四個變量初始化為：稱它們?yōu)樽兞?，接著進(jìn)行算法的主循環(huán)，循環(huán)的次數(shù)是消息中512比特的塊的數(shù)目將上面四個標(biāo)準(zhǔn)變量復(fù)制到另外四個變量中：A到a，B到b，C到c，D到d第四步：四輪循環(huán)運(yùn)算循環(huán)的次數(shù)是分組的個數(shù)（N+1），每輪循環(huán)都很相似，每次操作對abcd中的其中三個作一次非線性函數(shù)運(yùn)算，然后將所得的結(jié)果加上第四個變量，文本的一個子分組和一個常數(shù)，再將所得結(jié)果向左位移一個不定的數(shù)，并加上a，b，c，d中之一，最后用該結(jié)果取代a，b，c，d中之一設(shè)XY表示輸入的塊，下面描述一些運(yùn)算：(1)表示與按位邏輯“與”運(yùn)算(

9、2)表示與按位邏輯“或”運(yùn)算(3)表示與按位邏輯“異或”運(yùn)算(4)表示的按位邏輯取“反”(5)+表示整數(shù)模加法運(yùn)算(6)表示將循環(huán)左移個單位有四個非線性函數(shù)，每輪一個這四個函數(shù)的說明:如果，,的對應(yīng)的位是獨(dú)立和均勻的，那么結(jié)果的每一位也應(yīng)該是均勻的其中是一個逐位運(yùn)算的函數(shù)，即，如果,那么，否則函數(shù)是逐位奇偶操作符（其中“”是邏輯“與”運(yùn)算，“|”是邏輯“或”運(yùn)算，“”邏輯“異或”運(yùn)算，“”邏輯“取反”運(yùn)算）四輪運(yùn)算是：假設(shè)表示消息的第個子分組（從0到15），表示循環(huán)左移位表示表示表示表示這四輪（64步）是:第一輪第二輪第三輪第四輪其中常數(shù)可以如下選擇：在第步中，是的整數(shù)部分，的單位是弧度等于的

10、次方所有這些完成之后，將A、B、C、D分別加上a、b、c、d然后用下一分組數(shù)據(jù)繼續(xù)運(yùn)行算法，最后的輸出是A、B、C和D的級聯(lián)3.運(yùn)算原理簡舉例例如：計算解：不妨假設(shè)：要加密的信息為abc，其比特串為01100001 01100010 01100011它的長度是24位，于是添加1個“1”，423個“0”，再加上64比特串（24）=00000000 00000018即x=01100001 01100010 01100011 1 00 00000000 00000018,共512比特，只有16分組為，所以有=00000000=00000018首先計算出A=0000 0001 0010 0011 01

11、00 0101 0110 0111=B=1000 1001 1010 1011 1100 1101 1110 1111=C=1111 1110 1101 1100 1011 1010 1001 1000=D=0111 0110 0101 0100 0011 0010 0001 0000=其次計算 =（1000 1001 1010 1011 1100 1101 1110 11111111 1110 1101 1100 1011 1010 1001 1000）|（0111 0110 0101 0100 0011 0010 0001 00000111 0110 0101 0100 0011 0010

12、 0001 0000） =（1000 1000 1000 1000 1000 1000 1000 1000）|（0111 0110 0101 0100 0011 0010 0001 0000） =1111 1110 1101 1100 1011 1010 1001 1000轉(zhuǎn)換為二進(jìn)制為1101 0111 0110 1010 1010 0100 0111 1000結(jié)果為 =（1000 1001 1010 1011 1100 1101 1110 1111）+（0000 0001 0010 0011 0100 0101 0110 0111+1111 1110 1101 1100 1011 1010

13、 1001 1000+0000 0001 0001 0000 0000 0000 0001 0000）+1101 0111 0110 1010 1010 0100 0111 1000） =（1000 1001 1010 1011 1100 1101 1110 1111）+（0000 0000 0011 1000 0000 0000 0000 1111+1101 0111 0110 1010 1010 0100 0111 1000） =（1000 1001 1010 1011 1100 1101 1110 1111）+（1101 0111 1010 0010 1010 0100 1000 011

14、1） =（1000 1001 1010 1011 1100 1101 1110 1111）+（0000 1111 1010 1111 0100 0101 0100 1001） =1001 1001 0101 1011 0001 0011 0011 1000=955b1338這樣就計算出第一步的運(yùn)算，下面的運(yùn)算和上面的運(yùn)算類同就不在這里浪費(fèi)篇幅4.MD5加密算法的安全性分析關(guān)于加密算法的分析就重來沒有停止過，現(xiàn)有的加密算法的密鑰動輒就256，為強(qiáng)行破解提供了很大的障礙；隨著計算機(jī)速度的提高，位數(shù)還在增減，對密碼的分析就成為唯一的突破 口由上面的MD5加密的原理，我們知道，其加密主要有三步：（1）

15、對字符串的填充（2）分段求摘要（3）最終摘要的輸出第一步和第三步都不是MD5算法的核心，也不是碰撞的可能發(fā)生地，所以下面的介紹還是分析和討論都是基于第二步進(jìn)行的4.1各步的碰撞的分析不妨?。▁，y，z）=（1，1，1），（1，1，0），(1，0，0) ，（1，0，1）（0，0，1），(0，1，1)，(0，1，0)，（0，0，0）經(jīng)過分析就可以得到：結(jié)論一：F=0，當(dāng)且僅當(dāng)（x，y，z）（0，0，0）,(0，1，0) ,(1，0，0), （1，0，1）F=1, 當(dāng)且僅當(dāng)（x，y，z）（1，1，1），（1，1，0），（0，0，1），(0，1,1)結(jié)論二：G=0，當(dāng)且僅當(dāng)（x，y，z）（0，0，0）

16、，（0，0，1），(0，1，1)，(1，0，0)G=1，當(dāng)且僅當(dāng)（x，y，z）(0，1，0), （1，0，1）,（1，1，0）, （1，1，1）結(jié)論三：H=0，當(dāng)且僅當(dāng)（x，y，z）（0，0，0），(0，1，1)，（1，0，1），（1，1，1）H=1，當(dāng)且僅當(dāng)（x，y，z）（0，0，1），(0，1，0), （1，0，0），（1，1，0）結(jié)論四：I=0，當(dāng)且僅當(dāng)（x，y，z）（0，0，1），(0，1，0), （1，1，0），（1，1，1）I=1，當(dāng)且僅當(dāng)（x，y，z）（0，0，0），(0，1，1)，（1，0，1），（1，0，0）從文獻(xiàn)7可以知道，在使用相應(yīng)的概率分析就會產(chǎn)生一定概率的碰撞4.2各

17、圈碰撞的分析從文獻(xiàn)7可以知道，要產(chǎn)生對第一輪的碰撞，只需要在報文中修改三位就可以了，設(shè)中的最高位，或者相應(yīng)的位就會出現(xiàn)一定概率的碰撞5.MD5加密技術(shù)的實際應(yīng)用舉例MD5加密技術(shù)廣泛應(yīng)用于數(shù)字簽名領(lǐng)域，它的典型應(yīng)用是對一段信息產(chǎn)生信息摘要，以防止被篡改比如在發(fā)布軟件的時候，經(jīng)常會有一個文件擴(kuò)展名為.md5的文件，在這個文件常只有一行文本，大致結(jié)構(gòu)如：MD5：a5fdfeb0af54ef8397c4ea4a06e25d8f，這就是該軟件文件的數(shù)字簽名，MD5將整個文件當(dāng)做一個大文本信息，通過其不可逆的字符串變換算法，產(chǎn)生了這個MD5信息摘要在以后傳播這個文件的過程中，只要文件的容發(fā)生任何形式的改

18、變（包括人為的修改或者下載過程中線路不穩(wěn)定引起的傳輸錯誤等，換句話說，哪怕源文件的一個字符被改變，MD5值也會發(fā)生改變），在對這個文件重新計算MD5值時就會發(fā)現(xiàn)信息摘要不一樣，由此可以判定得到的文件是否被篡改如果再配合一個第三方認(rèn)證機(jī)構(gòu)，利用MD5加密技術(shù)還可以防止文件作者的“抵賴”MD5還廣泛用于加密信息上如對于數(shù)據(jù)庫中登陸密碼一般都是經(jīng)過MD5加密后存放的當(dāng)?shù)顷懙臅r候，根據(jù)用戶填報的密碼生成相應(yīng)的MD5值再與數(shù)據(jù)庫中的信息對比，從而判定登陸的合法性，但實際中如果把用戶的密碼MD5處理后再存儲到數(shù)據(jù)庫中是不安全的因為用戶的密碼往往是比較短的，而且很多用戶的密碼都是使用生日，等比較熟悉的，常用

19、的一些吉利的數(shù)字以方便記憶，如果把常用的密碼先經(jīng)過MD5處理形成MD5值集群，然后把要破譯的MD5結(jié)果相匹配，就可能找到原文因此，對于MD5加密信息時，一般需要同時設(shè)置一個隨機(jī)附加值來保證密碼的安全性例如：某用戶的注冊密碼為“move”，則在將密碼保存至數(shù)據(jù)庫時應(yīng)當(dāng)先在密碼原文后附加一個隨機(jī)附加值，比如附加值為“8dx9087h”，然后將帶有附加值的密碼經(jīng)過MD5加密，即將“move8dx9087h”做為原密碼進(jìn)行加密，然后存入數(shù)據(jù)庫中，同時將隨機(jī)附加碼也存入數(shù)據(jù)庫中在檢測用戶登陸密碼時，則將用戶輸入的密碼與數(shù)據(jù)庫中的附加碼共同進(jìn)行MD5加密后進(jìn)行對比這樣可以有效地降低通過密文比對獲得密碼原碼

20、的可能性6.MD5加密算法的改進(jìn)意見研究的實質(zhì)是為了對現(xiàn)有的運(yùn)用提供借鑒，對未來的應(yīng)用提供前瞻性的認(rèn)識研究MD5算法就是為了怎樣使得碰撞更難通過分析實現(xiàn)以下是對Hash算法的改進(jìn)策略：（1）增加Hash運(yùn)算的輪數(shù)輪數(shù)越多，其計算空間越大，進(jìn)行運(yùn)算的計算量就會成百倍成千萬倍的增加，這樣在無形中就會增加密碼破譯的難度，這樣密碼的安全系數(shù)就會升高，達(dá)到預(yù)定的安全指數(shù)（2）模運(yùn)算和位運(yùn)算是加密算法的主要計算過程可以嘗試使用新的理論去實現(xiàn)加密思想，而不單單是運(yùn)用類同的模運(yùn)算，可以使用數(shù)論，離散對數(shù)，橢圓曲線等知識，從根本上做到創(chuàng)新（3）Hash算法的其他設(shè)計方法的研究現(xiàn)在無論是SHA-1，HAVAL-1

21、28還是RIPEMD都在一定程度上仿照了MD5加密算法，無論是從消息的填充還是從核心的模運(yùn)算，位運(yùn)算都有驚人的相似之處，所以研究新的加密算法已經(jīng)迫在眉睫，理論創(chuàng)新才是真正的出路7. 附錄25 / 25VB6.0中實現(xiàn)MD5改進(jìn)后的加密算法 Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iSh

22、iftBits)定義左移函數(shù) If iShiftBits = 0 Then LShift = lValue Exit Function ElseIf iShiftBits = 31 Then If lValue And 1 Then LShift = &H80000000 Else LShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits) Then LShi

23、ft = (lValue And m_lOnBits(31 - (iShiftBits + 1) * m_l2Power(iShiftBits) Or &H80000000 Else LShift = (lValue And m_lOnBits(31 - iShiftBits) * m_l2Power(iShiftBits) End IfEnd Function Private Function RShift(lValue, iShiftBits)定義右移函數(shù) If iShiftBits = 0 Then RShift = lValue Exit Function ElseIf iSh

24、iftBits = 31 Then If lValue And &H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End IfRShift = (lValue And &H7FFFFFFE) m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift = (RShift Or (&H40000000

25、 m_l2Power(iShiftBits - 1) End IfEnd Function Private Function RotateLeft(lValue, iShiftBits)定義循環(huán)左移函數(shù) RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits) End Function Private Function AddUnsigned(lX, lY)定義模加法運(yùn)算 Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8 = lX And &H80

26、000000 lY8 = lY And &H80000000 lX4 = lX And &H40000000 lY4 = lY And &H40000000 lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult = lResult

27、Xor &HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult = lResult Xor lX8 Xor lY8 End If AddUnsigned = lResult End Function Private Function md5_F(x, y, z) md5_F = (x And y) Or (Not x) And z) End FunctionPrivate Function md5_G(x, y, z) md5_G =

28、 (x And z) Or (y And (Not z) End Function Private Function md5_H(x, y, z) md5_H = (x Xor y Xor z) End Function Private Function md5_I(x, y, z) md5_I = (y Xor (x Or (Not z) End Function Private Sub md5_FF(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac) a = Rot

29、ateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub 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) End Sub Private Sub md5_HH(a, b, c, d, x, s, ac) a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d

30、), x), ac) a = RotateLeft(a, s) a = AddUnsigned(a, b) End Sub Private Sub 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) End Sub Private Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfW

31、ords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS = 512 Const CONGRUENT_BITS = 448 lMessageLength = Len(sMessage) lNumberOfWords = (lMessageLength + (MODULUS_BITS - CONGRUENT_BITS) BITS_TO_A_BYTE) (MODULUS_BITS BITS_TO_A_BYTE) + 1) * (MODULUS_BITS BITS_TO_A_WOR

32、D) ReDim lWordArray(lNumberOfWords - 1) lBytePosition = 0 lByteCount = 0 Do Until lByteCount >= lMessageLength lWordCount = lByteCount BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByt

33、eCount + 1, 1), lBytePosition) lByteCount = lByteCount + 1Loop lWordCount = lByteCount BYTES_TO_A_WORD lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2) = LShift(lMessage

34、Length, 3) lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29) ConvertToWordArray = lWordArray End FunctionPrivate 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 &

35、 Right("0" & Hex(lByte), 2) Next End Function Public Function MD5(sMessage) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m_lOnBits(4) = CLng(31) m_lOnBits(5) = CLng(63) m_lOnBits(6) = CLng(127) m_lOnBits(7) = CLng(255) m_lOnBits(8) = CLng

36、(511) m_lOnBits(9) = CLng(1023) m_lOnBits(10) = CLng(2047) m_lOnBits(11) = CLng(4095) m_lOnBits(12) = CLng(8191) m_lOnBits(13) = CLng(16383) m_lOnBits(14) = CLng(32767) m_lOnBits(15) = CLng(65535) m_lOnBits(16) = CLng(131071) m_lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) =

37、CLng(1048575) m_lOnBits(20) = CLng(2097151) m_lOnBits(21) = CLng(4194303) m_lOnBits(22) = CLng(8388607) m_lOnBits(23) = CLng(16777215) m_lOnBits(24) = CLng(33554431) m_lOnBits(25) = CLng(67108863) m_lOnBits(26) = CLng(134217727) m_lOnBits(27) = CLng(268435455) m_lOnBits(28) = CLng(536870911) m_lOnBi

38、ts(29) = CLng(1073741823) m_lOnBits(30) = CLng(2147483647) m_l2Power(0) = CLng(1) m_l2Power(1) = CLng(2) m_l2Power(2) = CLng(4) m_l2Power(3) = CLng(8) m_l2Power(4) = CLng(16) m_l2Power(5) = CLng(32) m_l2Power(6) = CLng(64) m_l2Power(7) = CLng(128) m_l2Power(8) = CLng(256) m_l2Power(9) = CLng(512) m_

39、l2Power(10) = CLng(1024) m_l2Power(11) = CLng(2048) m_l2Power(12) = CLng(4096) m_l2Power(13) = CLng(8192) m_l2Power(14) = CLng(16384) m_l2Power(15) = CLng(32768) m_l2Power(16) = CLng(65536) m_l2Power(17) = CLng(131072) m_l2Power(18) = CLng(262144) m_l2Power(19) = CLng(524288) m_l2Power(20) = CLng(10

40、48576) m_l2Power(21) = CLng(2097152) m_l2Power(22) = CLng(4194304) m_l2Power(23) = CLng(8388608) m_l2Power(24) = CLng(16777216) m_l2Power(25) = CLng(33554432) m_l2Power(26) = CLng(67108864) m_l2Power(27) = CLng(134217728) m_l2Power(28) = CLng(268435456) m_l2Power(29) = CLng(536870912) m_l2Power(30)

41、= CLng(1073741824) Dim x,k，AA，BB,CC,DD,a,b,c,d Const S11 = 7 Const S12 = 12 Const S13 = 17 Const S14 = 22 Const S21 = 5 Const S22 = 9 Const S23 = 14 Const S24 = 20 Const S31 = 4 Const S32 = 11 Const S33 = 16 Const S34 = 23 Const S41 = 6 Const S42 = 10 Const S43 = 15 Const S44 = 21 x = ConvertToWordA

42、rray(sMessage) a = &H67452301 b = &HEFCDAB89 c = &H98BADCFE d = &H10325476 For k = 0 To UBound(x) Step 16AA = aBB = bCC = c DD = d md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478 md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756 md5_FF c, d, a, b, x(k + 2), S13, &H242070DB md5_FF

43、 b, c, d, a, x(k + 3), S14, &HC1BDCEEE md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A md5_FF c, d, a, b, x(k + 6), S13, &HA8304613 md5_FF b, c, d, a, x(k + 7), S14, &HFD469501 md5_FF a, b, c, d, x(k + 8), S11, &H698098D8 md5_FF d, a,

44、 b, c, x(k + 9), S12, &H8B44F7AF md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE md5_FF a, b, c, d, x(k + 12), S11, &H6B901122 md5_FF d, a, b, c, x(k + 13), S12, &HFD987193 md5_FF c, d, a, b, x(k + 14), S13, &HA679438E md5_FF b, c,

45、d, a, x(k + 15), S14, &H49B40821 md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562 md5_GG d, a, b, c, x(k + 6), S22, &HC040B340 md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51 md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D md5_GG d, a, b, c

46、, x(k + 10), S22, &H2441453 md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681 md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6 md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87 md5_GG b, c, d, a, x(

47、k + 8), S24, &H455A14ED md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905 md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9 md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942 md5_HH d, a, b, c, x(k +

48、8), S32, &H8771F681 md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122 md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 md5_HH b, c, d, a, x(k + 10),

49、 S34, &HBEBFBC70 md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6 md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085 md5_HH b, c, d, a, x(k + 6), S34, &H4881D05 md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039 md5_HH d, a, b, c, x(k + 12), S32,

50、 &HE6DB99E5 md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665 md5_II a, b, c, d, x(k + 0), S41, &HF4292244 md5_II d, a, b, c, x(k + 7), S42, &H432AFF97 md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7 md5_II b, c, d, a, x(k + 5), S44, &am

51、p;HFC93A039 md5_II a, b, c, d, x(k + 12), S41, &H655B59C3 md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92 md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D md5_II b, c, d, a, x(k + 1), S44, &H85845DD1 md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F md5_II d, a, b, c, x(k + 15), S42, &H

52、FE2CE6E0 md5_II c, d, a, b, x(k + 6), S43, &HA3014314 md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1 md5_II a, b, c, d, x(k + 4), S41, &HF7537E82 md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235 md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB md5_II b, c, d, a, x(k + 9), S44, &HEB86D391 a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next MD5 = LCase(WordToHex(b) & WordToHex(c)End FunctionPrivate Sub command1_click()old$ = UCase(MD5(Text1.Text)nu$ = ""For i = 1 To Len(old$)a$