【正文】 lOnBits(17) = CLng(262143) m_lOnBits(18) = CLng(524287) m_lOnBits(19) = 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_lOnBits(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_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(1048576) 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) = 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 = ConvertToWordArray(sMessage) a = amp。H80, lBytePosition) lWordArray(lNumberOfWords 2) = LShift(lMessageLength, 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 amp。HC0000000 Xor lX8 Xor lY8 Else lResult = lResult Xor amp。H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And amp。H3FFFFFFF) + (lY And amp。H40000000 lY4 = lY And amp。H80000000 lY8 = lY And amp。H80000000) Then RShift = (RShift Or (amp。H80000000 Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits 0 Or iShiftBits 31 Then 6 End IfRShift = (lValue And amp。H80000000 Else LShift = 0 End If Exit Function ElseIf iShiftBits 0 Or iShiftBits 31 Then 6 End If If (lValue And m_l2Power(31 iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or amp。稱為除以的商，為除以的余數(shù)．對于正整數(shù)和整數(shù)，定義如下運算：MD5加密算法探究及其應用引言MD5加密算法作為一種免費的加密算法，廣泛地應用于計算機，數(shù)據(jù)安全傳輸，數(shù)字簽名認證等安全領域．MD5的全稱是MessageDigest Algorithm 5（信息摘要算法），是由Ron Rivest （RSA 算法的發(fā)明人之一，于2002年獲得圖靈獎）于90年代初提出，經(jīng)MD2，MD3和MD4發(fā)展而來的．Rivest 最早于1989年提出了MD2算法針對8位計算機做了優(yōu)化，為了提高算法的安全性與穩(wěn)定性，Rivest在1990年又開發(fā)出MD4算法，但人們很快發(fā)現(xiàn)了MD4算法的漏洞．隨后在1991年，Rivest開發(fā)出來技術上更加穩(wěn)定安全更趨于成熟的MD5算法．1993年，美國國家標準和技術協(xié)會（NIST）提出了安全散列算法（SHA）．1995年又發(fā)布了一個修訂版，所以彼此很相似．相應的，它們的強度和其他特征也是相似的．2004年8月17日于美國加州圣巴巴拉召開的國際密碼學會議（Crypto 2004）上，來自山東大學的王小云教授做了破譯MD5，HAVAL128，MD4和RIPEMD算法的報告，宣告了MD系列算法的破解．對于一個進行身份認證的摘要算法來說，MD5已經(jīng)是不安全了，但是很多實際的應用領域MD5還有它的使用價值的，所以我們分析探究它的加密原理，我們在此基礎上對它的加密進行改進利用，對于我們今后的加密安全工作還是很有幫助的． Hash函數(shù)Hash函數(shù)是一種將任意長度的信息壓縮到某一固定長度的消息摘要的函數(shù)，又稱Hash算法．Hash函數(shù)必須滿足一定的安全條件．這里主要介紹三個主要的方面：單向性，弱抗碰撞性，強碰撞性．單向性是指對Hash函數(shù)h而言，又x計算h（x）是容易的，但從h（x）計算x是不可行的．一個弱碰撞的Hash函數(shù)是滿足下列條件的一個函數(shù)h： h的輸入 可以是任意長度的消息或文件ph的輸出長度是固定的給定h和M，計算h（p）是很容易的給定h和一個隨機選擇的消