MD5 VB

转载 2007年10月10日 10:04:00

'MD5 16-bit,32-bits algorithm implemented in C#

        Private Const BITS_TO_A_BYTE As Integer = 8
        Private Const BYTES_TO_A_WORD As Integer = 4
        Private Const BITS_TO_A_WORD As Integer = 32

        Private m_lOnBits(30) As Long
        Private m_l2Power(30) As Long

        Public Function LShift(ByVal lValue As Long, ByVal iShiftBits As Integer) As Long
            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
                LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
            Else
                LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
            End If
        End Function

        Public Function RShift(ByVal lValue As Long, ByVal iShiftBits As Integer) As Long
            If iShiftBits = 0 Then
                RShift = lValue
                Exit Function
            ElseIf iShiftBits = 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 If

            RShift = (lValue And &H7FFFFFFE) / m_l2Power(iShiftBits)

            If (lValue And &H80000000) Then
                RShift = (RShift Or (&H40000000 / m_l2Power(iShiftBits - 1)))
            End If
        End Function

        Public Function RotateLeft(ByVal lValue As Long, ByVal iShiftBits As Integer) As Long
            RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
        End Function

        Private Function AddUnsigned(ByVal lX As Long, ByVal lY As Long) As Long
            Dim lX4 As Long
            Dim lY4 As Long
            Dim lX8 As Long
            Dim lY8 As Long
            Dim lResult As Long

            lX8 = lX And &H80000000
            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 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(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
            md5_F = (x And y) Or ((Not x) And z)
        End Function

        Private Function md5_G(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
            md5_G = (x And z) Or (y And (Not z))
        End Function

        Private Function md5_H(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
            md5_H = (x Xor y Xor z)
        End Function

        Private Function md5_I(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
            md5_I = (y Xor (x Or (Not z)))
        End Function

        Private Sub md5_FF(ByRef a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Long, ByVal x As Long, ByVal s As Long, ByVal ac As Long)
            a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
            a = RotateLeft(a, s)
            a = AddUnsigned(a, b)
        End Sub

        Private Sub md5_GG(ByRef a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Long, ByVal x As Long, ByVal s As Long, ByVal ac As Long)
            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(ByRef a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Long, ByVal x As Long, ByVal s As Long, ByVal ac As Long)
            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(ByRef a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Long, ByVal x As Long, ByVal s As Long, ByVal ac As Long)
            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(ByVal sMessage As String)
            Dim lMessageLength As Integer
            Dim lNumberOfWords As Integer
            Dim lWordArray() As Long
            Dim lBytePosition As Integer
            Dim lByteCount As Integer
            Dim lWordCount As Integer

            Const MODULUS_BITS As Long = 512
            Const CONGRUENT_BITS As Long = 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

        Public Function WordToHex(ByVal lValue As Long)
            Dim lByte As Long
            Dim lCount As Long

            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 Encrypt(ByVal sMessage As String, ByVal stype As Integer)
            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)
            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() As Long
            Dim k As Integer
            Dim AA As Long
            Dim BB As Long
            Dim CC As Long
            Dim DD As Long
            Dim a As Long
            Dim b As Long
            Dim c As Long
            Dim d As Long

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

            x = ConvertToWordArray(sMessage)

            a = &H67452301
            b = &HEFCDAB89
            c = &H98BADCFE
            d = &H10325476

            For k = 0 To UBound(x) Step 16
                AA = a
                BB = b
                CC = c
                DD = d
                Call md5_FF(a, b, c, d, x(k + 0), S11, &HD76AA478)
                Call md5_FF(d, a, b, c, x(k + 1), S12, &HE8C7B756)
                Call md5_FF(c, d, a, b, x(k + 2), S13, &H242070DB)
                Call md5_FF(b, c, d, a, x(k + 3), S14, &HC1BDCEEE)
                Call md5_FF(a, b, c, d, x(k + 4), S11, &HF57C0FAF)
                Call md5_FF(d, a, b, c, x(k + 5), S12, &H4787C62A)
                Call md5_FF(c, d, a, b, x(k + 6), S13, &HA8304613)
                Call md5_FF(b, c, d, a, x(k + 7), S14, &HFD469501)
                Call md5_FF(a, b, c, d, x(k + 8), S11, &H698098D8)
                Call md5_FF(d, a, b, c, x(k + 9), S12, &H8B44F7AF)
                Call md5_FF(c, d, a, b, x(k + 10), S13, &HFFFF5BB1)
                Call md5_FF(b, c, d, a, x(k + 11), S14, &H895CD7BE)
                Call md5_FF(a, b, c, d, x(k + 12), S11, &H6B901122)
                Call md5_FF(d, a, b, c, x(k + 13), S12, &HFD987193)
                Call md5_FF(c, d, a, b, x(k + 14), S13, &HA679438E)
                Call md5_FF(b, c, d, a, x(k + 15), S14, &H49B40821)
               
                Call md5_GG(a, b, c, d, x(k + 1), S21, &HF61E2562)
                Call md5_GG(d, a, b, c, x(k + 6), S22, &HC040B340)
                Call md5_GG(c, d, a, b, x(k + 11), S23, &H265E5A51)
                Call md5_GG(b, c, d, a, x(k + 0), S24, &HE9B6C7AA)
                Call md5_GG(a, b, c, d, x(k + 5), S21, &HD62F105D)
                Call md5_GG(d, a, b, c, x(k + 10), S22, &H2441453)
                Call md5_GG(c, d, a, b, x(k + 15), S23, &HD8A1E681)
                Call md5_GG(b, c, d, a, x(k + 4), S24, &HE7D3FBC8)
                Call md5_GG(a, b, c, d, x(k + 9), S21, &H21E1CDE6)
                Call md5_GG(d, a, b, c, x(k + 14), S22, &HC33707D6)
                Call md5_GG(c, d, a, b, x(k + 3), S23, &HF4D50D87)
                Call md5_GG(b, c, d, a, x(k + 8), S24, &H455A14ED)
                Call md5_GG(a, b, c, d, x(k + 13), S21, &HA9E3E905)
                Call md5_GG(d, a, b, c, x(k + 2), S22, &HFCEFA3F8)
                Call md5_GG(c, d, a, b, x(k + 7), S23, &H676F02D9)
                Call md5_GG(b, c, d, a, x(k + 12), S24, &H8D2A4C8A)
               
                Call md5_HH(a, b, c, d, x(k + 5), S31, &HFFFA3942)
                Call md5_HH(d, a, b, c, x(k + 8), S32, &H8771F681)
                Call md5_HH(c, d, a, b, x(k + 11), S33, &H6D9D6122)
                Call md5_HH(b, c, d, a, x(k + 14), S34, &HFDE5380C)
                Call md5_HH(a, b, c, d, x(k + 1), S31, &HA4BEEA44)
                Call md5_HH(d, a, b, c, x(k + 4), S32, &H4BDECFA9)
                Call md5_HH(c, d, a, b, x(k + 7), S33, &HF6BB4B60)
                Call md5_HH(b, c, d, a, x(k + 10), S34, &HBEBFBC70)
                Call md5_HH(a, b, c, d, x(k + 13), S31, &H289B7EC6)
                Call md5_HH(d, a, b, c, x(k + 0), S32, &HEAA127FA)
                Call md5_HH(c, d, a, b, x(k + 3), S33, &HD4EF3085)
                Call md5_HH(b, c, d, a, x(k + 6), S34, &H4881D05)
                Call md5_HH(a, b, c, d, x(k + 9), S31, &HD9D4D039)
                Call md5_HH(d, a, b, c, x(k + 12), S32, &HE6DB99E5)
                Call md5_HH(c, d, a, b, x(k + 15), S33, &H1FA27CF8)
                Call md5_HH(b, c, d, a, x(k + 2), S34, &HC4AC5665)
               
                Call md5_II(a, b, c, d, x(k + 0), S41, &HF4292244)
                Call md5_II(d, a, b, c, x(k + 7), S42, &H432AFF97)
                Call md5_II(c, d, a, b, x(k + 14), S43, &HAB9423A7)
                Call md5_II(b, c, d, a, x(k + 5), S44, &HFC93A039)
                Call md5_II(a, b, c, d, x(k + 12), S41, &H655B59C3)
                Call md5_II(d, a, b, c, x(k + 3), S42, &H8F0CCC92)
                Call md5_II(c, d, a, b, x(k + 10), S43, &HFFEFF47D)
                Call md5_II(b, c, d, a, x(k + 1), S44, &H85845DD1)
                Call md5_II(a, b, c, d, x(k + 8), S41, &H6FA87E4F)
                Call md5_II(d, a, b, c, x(k + 15), S42, &HFE2CE6E0)
                Call md5_II(c, d, a, b, x(k + 6), S43, &HA3014314)
                Call md5_II(b, c, d, a, x(k + 13), S44, &H4E0811A1)
                Call md5_II(a, b, c, d, x(k + 4), S41, &HF7537E82)
                Call md5_II(d, a, b, c, x(k + 11), S42, &HBD3AF235)
                Call md5_II(c, d, a, b, x(k + 2), S43, &H2AD7D2BB)
                Call md5_II(b, c, d, a, x(k + 9), S44, &HEB86D391)
                'Console.WriteLine (a)
                a = AddUnsigned(a, AA)
                b = AddUnsigned(b, BB)
                c = AddUnsigned(c, CC)
                d = AddUnsigned(d, DD)
            Next

            If stype = 32 Then
                Encrypt = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
            Else
                Encrypt = LCase(WordToHex(b) & WordToHex(c))
            End If
        End Function

 

 

Private Sub Command1_Click()
Dim encry As New Encrypter

Text2.Text = encry.Encrypt(Text1.Text, 32)
End Sub

vb 中的MD5加密

1。web项目中方法 : System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile("aaaa", "MD...
  • qiaoshuai0920
  • qiaoshuai0920
  • 2013年04月11日 08:55
  • 1403

【VB】MD5算法

昨天才真正搞懂,ASP.NET和ASP是不同的!! google上搜了下,感觉这个介绍的挺好的: ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/...
  • u011156012
  • u011156012
  • 2014年12月02日 16:09
  • 810

VB.NET 的 DES 加密与解密(转载于nofort博客)

MD5和SHA的加密方式都是单向的,就算是我写的程序用户的密码用这两种方式保存后,我对着看也不知道他们的密码是什么,这用在保存密码上是不错的,但如果是一些需要能将密文还原的应用来说就不合适了,所以接下...
  • lpwmm
  • lpwmm
  • 2016年03月06日 23:19
  • 2242

MD5加密算法(16位,32位)的C#,VB的实现

以下为MD5算法用c#的实现 //MD5.cs //MD5 16-bit,32-bits algorithm implemented in C# using System; using...
  • my98800
  • my98800
  • 2016年07月15日 15:22
  • 256

MD5的使用和其相关

MD5 Message Digest Algorithm MD5(中文名为消息摘要算法第五版)为计算机安全领域广泛使用的一种散列函数,用以提供消息的完整性保护。该算法的文件号为RFC ...
  • xikai18827083487
  • xikai18827083487
  • 2016年10月25日 22:21
  • 1284

MD5碰撞后时代,MD5还有存在的意义吗?

MD5是一种HASH函数,又称杂凑函数,由32位16进制组成,在信息安全范畴有广泛和首要运用的暗码算法,它有类似于指纹的运用。在网络安全协议中,杂凑函数用来处理电子签名,将冗长的签名文件紧缩为一段一起...
  • christ2
  • christ2
  • 2016年06月13日 22:07
  • 3050

MD5加密的简单java实现

MD5加密
  • liu1782291245
  • liu1782291245
  • 2017年06月19日 14:24
  • 12806

MD5加密算法原理及实现

16位和32位MD5的区别如下: 16位加密就是从32位MD5散列中把中间16位提取出来! 原文:http://www.cnblogs.com/hjgods/p/3998570.htm...
  • phoenix06
  • phoenix06
  • 2017年05月15日 14:12
  • 455

MD5+Salt安全浅析

来源:http://www.server110.com/sec_news/201309/995.html 这段时间诸多爆库的新闻,里面有许多饶有趣味的事情。那些用简单密码,或者一个密码走...
  • heybob
  • heybob
  • 2015年05月08日 11:34
  • 1319

html中使用js进行登录md5加密提交并重定向新页面

在web开发中有时需要将用户的一些信息在客户端加密后进行提交,然后在web后端进行验证,可以提高页面传输过程中的安全性。本例实现一个简单的加密登录demo,例子仅仅为了演示使用,实际使用时可以根据实际...
  • yxtouch
  • yxtouch
  • 2015年10月30日 10:22
  • 8375
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:MD5 VB
举报原因:
原因补充:

(最多只允许输入30个字)