
	精品推荐


特别推荐


热点TOP10

MD5算法解释

日期：2008年5月9日作者：查看:[大字体中字体小字体]

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), 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 lNumberOfwords
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_word)
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, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop

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(lMessageLength, 3)
lwordArray(lNumberOfwords - 1) = RShift(lMessageLength, 29)

ConvertTowordArray = lwordArray
End Function

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

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(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) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)

上一页 [1] [2] [3] [4] 下一页

上一篇:COM 组件设计与应用之数据类型

下一篇:搭建Ruby on Rails开发环境

·解释女性“射精”现象

·垃圾清理势在必行——Java垃圾收集算法

·Java中常用的加密算法应用MD5，SHA,RSA

·人工生命—群集智能—蚁群算法js版

·成语速查v3.0 算法分析

·简单算法——CSDN资料库(Mycsdn) V1.24

·英语词汇逻辑记忆v3.20 共享版算法分析

·Registry Crawler 4.0注册码算法分析(1)

·Registry Crawler 4.0注册码算法分析(3)

·驱动精灵(WinDriver Ghost)算法分析

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:viphot