纯代码实现md5算法

最新推荐文章于 2022-01-05 09:35:06 发布
最新推荐文章于 2022-01-05 09:35:06 发布
阅读量2.1k 收藏 1
点赞数
分类专栏： Visual STUDIO.NET 系列 文章标签： 算法 integer hex function byte c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/malingxian/article/details/1477449
版权

 网上已经有C,C++,VB6,java的MD5算法源代码了，甚至已经有了C#的MD5算法代码，唯独VB.NET的MD5算法代码是在是少而又少，因此贴出下列代码供大家雅正。

有人说了，.NET自带MD5算法，何必多此一举呢？如下所示：

    'MD5
    Public Shared Function MD5(ByVal strKey As String) As String
        Dim sPwd As String
        Dim bytPwd As [Byte]() = ConStrArr(strKey)
        Dim hashPwd As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), _
         System.Security.Cryptography.HashAlgorithm).ComputeHash(bytPwd)
        sPwd = BitConverter.ToString(hashPwd)
        sPwd = LCase(sPwd.Replace("-", ""))    '去掉中间的"-"符号并转换为小写字母
        Return sPwd
    End Function

    Public Shared Function MD5(ByVal Key As Byte()) As Byte()
        Return CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), _
         System.Security.Cryptography.HashAlgorithm).ComputeHash(Key)
    End Function

当初写这代码是为了将用了.NET的MD5验证的程序能够用于没有MD5算法的Windows 2000 SP4以下版本，另外也可以更好的了解MD5算法的原理和步骤。

代码如下：

 

Public   Class MD5
    Private Const AA As Integer = &H67452301
    Private Const BB As Integer = &HEFCDAB89
    Private Const CC As Integer = &H98BADCFE
    Private Const DD As Integer = &H10325476

    Private Const Ts As Long = &H100000000

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

    Private Si As Integer() = New Integer() {}

字节函数

    Private Function InitByte(ByRef Data As Byte()) As Byte()
        Dim kl As ArrayList = New ArrayList(Data)
        Dim dbLength As Int64 = Data.GetLongLength(0)
        If dbLength Mod 56 <> 0 OrElse dbLength = 0 Then
            Dim i As Integer = 56 - (kl.Count Mod 56) - 1
            kl.Add(CByte(&H80))                 '补1
            If i > 0 Then
                kl.AddRange(New Byte(i - 1) {}) '补0
            End If
        End If
        kl.AddRange(Int64ToBytes(dbLength << 3))  '添加长度
        Dim buffout As Byte() = kl.ToArray(GetType(Byte))
        kl.Clear()
        Return buffout
    End Function

    Private Function InitT() As Int32()
        Dim T As Int32() = New Int32(63) {}
        For i As Integer = 0 To 63
            T(i) = BytesToInt32(Int64ToBytes(CLng(Ts * Math.Abs(Math.Sin(i + 1))) And &HFFFFFFFF&))
        Next
        Return T
    End Function

    Private Function InitM(ByRef Data As Byte(), ByVal StartIndex As Long) As Int32()
        Dim M As Int32() = New Int32(15) {}
        For i As Integer = 0 To 15
            M(i) = BytesToInt32(Data, i << 2)
        Next
        Return M
    End Function

    Private Function LongAdd(ByVal lngVal1 As Integer, ByVal lngVal2 As Integer) As Integer

        Dim lngHighWord As Integer
        Dim lngLowWord As Integer
        Dim lngOverflow As Integer

        lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&)
        lngOverflow = lngLowWord  65536
        lngHighWord = (((lngVal1 And &HFFFF0000)  65536) + ((lngVal2 And &HFFFF0000)  65536) + lngOverflow) And &HFFFF&

        Return lngHighWord << 16 Or (lngLowWord And &HFFFF) 'LongConversion((lngHighWord * 65536.0#) + (lngLowWord And &HFFFF&))
    End Function

    Private Function LongAdd4(ByVal lngVal1 As Integer, ByVal lngVal2 As Integer, ByVal lngVal3 As Integer, ByVal lngVal4 As Integer) As Integer

        Dim lngHighWord As Integer
        Dim lngLowWord As Integer
        Dim lngOverflow As Integer

        lngLowWord = (lngVal1 And &HFFFF&) + (lngVal2 And &HFFFF&) + (lngVal3 And &HFFFF&) + (lngVal4 And &HFFFF&)
        lngOverflow = lngLowWord  65536
        lngHighWord = (((lngVal1 And &HFFFF0000)  65536) + ((lngVal2 And &HFFFF0000)  65536) + ((lngVal3 And &HFFFF0000)  65536) + ((lngVal4 And &HFFFF0000)  65536) + lngOverflow) And &HFFFF&
        Return lngHighWord << 16 Or (lngLowWord And &HFFFF) 'LongConversion((lngHighWord * 65536.0#) + (lngLowWord And &HFFFF&))
    End Function

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' 循环左移位指令
    ''' </summary>
    ''' <param name="Value"></param>
    ''' <param name="Shift"></param>
    ''' <returns></returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    '''     [malingxian]    2007-1-8    Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Function RoundLeftShift(ByVal Value As Integer, ByVal Shift As Integer) As Integer
        Return (Value << Shift) Or ((Value >> (32 - Shift)) And ((2 << (Shift - 1)) - 1))
    End Function

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' 循环右移位指令
    ''' </summary>
    ''' <param name="Value"></param>
    ''' <param name="Shift"></param>
    ''' <returns></returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    '''     [malingxian]    2007-1-8    Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Function RoundRightShift(ByVal Value As Integer, ByVal Shift As Integer) As Integer
        'Return (Value << Shift) Or ((Value >> (32 - Shift)) And ((2 << Shift) - 1))
    End Function

    Private Function F(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
        Return (x And y) Or (Not (x) And z)
    End Function

    Private Function G(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
        Return (x And z) Or (y And Not (z))
    End Function

    Private Function H(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
        Return x Xor y Xor z
    End Function

    Private Function I(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
        Return y Xor (x Or Not (z))
    End Function

    Private Function FF(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal Mj As Integer, ByVal s As Integer, ByVal Ti As Integer) As Integer
        Dim pa As Integer = F(b, c, d)
        pa = LongAdd4(a, pa, Mj, Ti)
        pa = RoundLeftShift(pa, s)  '注意：此处不是循环移位，故出错
        pa = LongAdd(b, pa)
        Return pa
        Return LongAdd(b, RoundLeftShift(LongAdd4(a, F(b, c, d), Mj, Ti), s))
    End Function

    Private Function GG(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal Mj As Integer, ByVal s As Integer, ByVal Ti As Integer) As Integer
        'a = b + ((a + F(b,c,d) + X[k] + T[i]) <<< s)
        'Return b + ((a + G(b, c, d) + Mj + Ti) << s)
        Return LongAdd(b, RoundLeftShift(LongAdd4(a, G(b, c, d), Mj, Ti), s))
    End Function

    Private Function HH(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal Mj As Integer, ByVal s As Integer, ByVal Ti As Integer) As Integer
        'Return b + ((a + H(b, c, d) + Mj + Ti) << s)
        Return LongAdd(b, RoundLeftShift(LongAdd4(a, H(b, c, d), Mj, Ti), s))
    End Function

    Private Function II(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal Mj As Integer, ByVal s As Integer, ByVal Ti As Integer) As Integer
        'Return b + ((a + (I(b, c, d) + Mj + Ti) << s))
        Return LongAdd(b, RoundLeftShift(LongAdd4(a, I(b, c, d), Mj, Ti), s))
    End Function

    Public Function MD5Conversion(ByVal Data As Byte()) As Byte()
        Dim buff As Byte() = Me.InitByte(Data)
        'Dim T As Integer() = InitT()
        Dim A As Integer = AA
        Dim B As Integer = BB
        Dim C As Integer = CC
        Dim D As Integer = DD

        For i As Integer = 0 To buff.Length - 63 Step 64
            Dim M As Integer() = InitM(buff, i)

            A = FF(A, B, C, D, M(&H0), S11, &HD76AA478)
            D = FF(D, A, B, C, M(&H1), S12, &HE8C7B756)
            C = FF(C, D, A, B, M(&H2), S13, &H242070DB)
            B = FF(B, C, D, A, M(&H3), S14, &HC1BDCEEE)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = FF(A, B, C, D, M(&H4), S11, &HF57C0FAF)
            D = FF(D, A, B, C, M(&H5), S12, &H4787C62A)
            C = FF(C, D, A, B, M(&H6), S13, &HA8304613)
            B = FF(B, C, D, A, M(&H7), S14, &HFD469501)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = FF(A, B, C, D, M(&H8), S11, &H698098D8)
            D = FF(D, A, B, C, M(&H9), S12, &H8B44F7AF)
            C = FF(C, D, A, B, M(&HA), S13, &HFFFF5BB1)
            B = FF(B, C, D, A, M(&HB), S14, &H895CD7BE)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = FF(A, B, C, D, M(&HC), S11, &H6B901122)
            D = FF(D, A, B, C, M(&HD), S12, &HFD987193)
            C = FF(C, D, A, B, M(&HE), S13, &HA679438E)
            B = FF(B, C, D, A, M(&HF), S14, &H49B40821)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))

            A = GG(A, B, C, D, M(&H1), S21, &HF61E2562)
            D = GG(D, A, B, C, M(&H6), S22, &HC040B340)
            C = GG(C, D, A, B, M(&HB), S23, &H265E5A51)
            B = GG(B, C, D, A, M(&H0), S24, &HE9B6C7AA)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = GG(A, B, C, D, M(&H5), S21, &HD62F105D)
            D = GG(D, A, B, C, M(&HA), S22, &H2441453)
            C = GG(C, D, A, B, M(&HF), S23, &HD8A1E681)
            B = GG(B, C, D, A, M(&H4), S24, &HE7D3FBC8)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = GG(A, B, C, D, M(&H9), S21, &H21E1CDE6)
            D = GG(D, A, B, C, M(&HE), S22, &HC33707D6)
            C = GG(C, D, A, B, M(&H3), S23, &HF4D50D87)
            B = GG(B, C, D, A, M(&H8), S24, &H455A14ED)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = GG(A, B, C, D, M(&HD), S21, &HA9E3E905)
            D = GG(D, A, B, C, M(&H2), S22, &HFCEFA3F8)
            C = GG(C, D, A, B, M(&H7), S23, &H676F02D9)
            B = GG(B, C, D, A, M(&HC), S24, &H8D2A4C8A)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))

            A = HH(A, B, C, D, M(&H5), S31, &HFFFA3942)
            D = HH(D, A, B, C, M(&H8), S32, &H8771F681)
            C = HH(C, D, A, B, M(&HB), S33, &H6D9D6122)
            B = HH(B, C, D, A, M(&HE), S34, &HFDE5380C)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = HH(A, B, C, D, M(&H1), S31, &HA4BEEA44)
            D = HH(D, A, B, C, M(&H4), S32, &H4BDECFA9)
            C = HH(C, D, A, B, M(&H7), S33, &HF6BB4B60)
            B = HH(B, C, D, A, M(&HA), S34, &HBEBFBC70)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = HH(A, B, C, D, M(&HD), S31, &H289B7EC6)
            D = HH(D, A, B, C, M(&H0), S32, &HEAA127FA)
            C = HH(C, D, A, B, M(&H3), S33, &HD4EF3085)
            B = HH(B, C, D, A, M(&H6), S34, &H4881D05)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = HH(A, B, C, D, M(&H9), S31, &HD9D4D039)
            D = HH(D, A, B, C, M(&HC), S32, &HE6DB99E5)
            C = HH(C, D, A, B, M(&HF), S33, &H1FA27CF8)
            B = HH(B, C, D, A, M(&H2), S34, &HC4AC5665)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))

            A = II(A, B, C, D, M(&H0), S41, &HF4292244)
            D = II(D, A, B, C, M(&H7), S42, &H432AFF97)
            C = II(C, D, A, B, M(&HE), S43, &HAB9423A7)
            B = II(B, C, D, A, M(&H5), S44, &HFC93A039)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = II(A, B, C, D, M(&HC), S41, &H655B59C3)
            D = II(D, A, B, C, M(&H3), S42, &H8F0CCC92)
            C = II(C, D, A, B, M(&HA), S43, &HFFEFF47D)
            B = II(B, C, D, A, M(&H1), S44, &H85845DD1)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = II(A, B, C, D, M(&H8), S41, &H6FA87E4F)
            D = II(D, A, B, C, M(&HF), S42, &HFE2CE6E0)
            C = II(C, D, A, B, M(&H6), S43, &HA3014314)
            B = II(B, C, D, A, M(&HD), S44, &H4E0811A1)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))
            A = II(A, B, C, D, M(&H4), S41, &HF7537E82)
            D = II(D, A, B, C, M(&HB), S42, &HBD3AF235)
            C = II(C, D, A, B, M(&H2), S43, &H2AD7D2BB)
            B = II(B, C, D, A, M(&H9), S44, &HEB86D391)
            'Console.WriteLine("{0},{1},{2},{3}", Hex(A), Hex(B), Hex(C), Hex(D))

            A = LongAdd(A, AA)
            B = LongAdd(B, BB)
            C = LongAdd(C, CC)
            D = LongAdd(D, DD)
        Next

        Dim caa As New ArrayList(16)
        caa.AddRange(Int32ToBytes(A))
        caa.AddRange(Int32ToBytes(B))
        caa.AddRange(Int32ToBytes(C))
        caa.AddRange(Int32ToBytes(D))
        Dim buffout As Byte() = caa.ToArray(GetType(Byte))
        caa.Clear()
        Return buffout
    End Function

    Public Function MD5Conversion(ByVal strKey As String) As String
        Dim sPwd As String
        Dim bytPwd As [Byte]() = System.Text.Encoding.Default.GetBytes(strKey)
        Dim hashPwd As Byte() = MD5Conversion(bytPwd)
        sPwd = BitConverter.ToString(hashPwd)
        sPwd = LCase(sPwd.Replace("-", ""))    '去掉中间的"-"符号并转换为小写字母
        Return sPwd
    End Function

End Class

 

 用法：

dim cc as new MD5

dim strOut as string=cc.MD5Conversion(待校验字符串)

dim byteOut as byte()=cc.MD5Conversion(字节数组)

另外可以将该MD5类的MD5Conversion做成静态方法使用。

malingxian
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 8
    评论
专栏目录
MD5算法源码；加密算法
06-14
MD5加密算法，源代码，c++实现，非常好用，性能稳定，功能强大。
md5算法实现源代码
09-23
md5的算法实现源代码，比较完备，读者可以调用接口作为加密处理的封装。
md5代码实现
weixin_33974433的博客
10-09 113
参考： 1、http://blog.csdn.net/iaccepted/article/details/8722444 2、http://hi.baidu.com/gh0st_lover/item/9d967bddaccb12252b35c7e4   Makefile： CC=gcc CFLAGS=-Wall md:md5.o main.o $(CC) $^ -o...
MD5简介与代码实现
热门推荐
深之JohnChen的专栏
05-31 1万+
MD5简介       md5的全称是message-digest algorithm 5（信息-摘要算法），在90年代初由mit laboratory for computer science和rsa data security inc的ronald l. rivest开发出来，经md2、md3和md4发展而来。它的作用是让大容量信息在用数字签名软件签署私人密匙前被"压缩"成一种保密的格式（就...
MD5算法及源代码
幽灵剑客的专栏
05-23 1542
//获得MD5的二个数组和一个buffer并初始化MD5 *GetMD5();//初始化MD5的二个数据和一个buffer void MD5Init (MD5 *context);//用于计算MD5值的函数 void MD5Update (MD5 *context, unsigned char *input, unsigned int inputLen);//输出结果 void M
MD5算法C++语言实现代码
最新发布
07-23
这通常需要实现MD5算法的四个处理步骤和相关辅助函数。 3. **MD5数据结构**： - MD5处理的数据结构是一个128位（16字节）的块，分为四个32位的整数，记为A、B、C、D。 - 摘要结果同样由四个32位整数组成，最终...
md5算法纯c代码+ppt
12-26
这篇资料"md5算法纯c代码+ppt"包含了一个用C语言实现的MD5算法和相关的PPT讲解。C语言是一种底层、高效且广泛应用的编程语言，它使得MD5算法的实现更接近硬件，因此适用于各种平台和系统。 MD5算法的实现通常包括...
纯PB 代码 MD5生成和校验程序
05-05
在PowerBuilder中实现MD5功能，开发者需要理解PB的编程模型，熟悉如何调用系统API或者第三方库（如OpenSSL）来进行哈希计算。同时，需要处理好字符串和二进制数据的转换，以适应MD5算法的要求。对于初学者，可以通过...
C语言实现MD5算法
08-11
纯C语言实现md5算法，输入任意字符串，输出经过md5变换后的字符串
纯C实现的MD5算法，单文件
05-23
在本场景中，我们讨论的是一个纯C语言实现的MD5算法，它被封装在一个单独的文件中，方便集成到其他C项目中。 `md5.c` 文件是MD5算法的主要实现部分，包含了MD5的计算逻辑。它通常会包含四个内部状态变量（A, B, C, ...
md5加密算法源码
06-23
里面有md5加密算法的完整实现，一个完整的工程，用c实现的。不过是从别人那弄过来的，亲测没问题。哈哈
md5算法源码
03-15
md5 checksum计算
MD5算法源码_JS_Java_Oracle_MySQL
08-04
MD5算法源码,包括 JS, Java, Oracle, MySQL 以及测试代码
MD5标准算法的源代码
02-14
本程序利用c++在vs2008上实现了标准了MD5算法，代码中附有详细的中文解释，便于阅读，程序的加密结果结果和百度文库的一样，另还附有详细的报告。
MD5算法源码 下载
09-18
虽然MD5可以被破解了，但是在许多不是特别注意安全的地方还是可以用的！
MD5的源码
weixin_52096570的博客
01-05 397
def int2bin(n, count=24): # 求整数n的二进制数 return "".join([str((n >> y) & 1) for y in range(count-1, -1, -1)]) class myMD5(object): # 初始化密文 def __init__(self, message): self.message = message # 原信息 self.cipherte.
md5 c语言算法源码,调用md5算法c语言源码
weixin_39832348的博客
05-21 147
#include#include "md5c.h"unsigned char PADDING[]={0x80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};vo id MD5 Init(MD5...
java代码实现MD5加密
weixin_42293660的博客
03-12 469
MD5加密加盐 发文前，说几句。。 1.最近在重新温习了一下shiro这个权限框架，遇到了加密的问题，在网络上看到了一些文章写了关于java代码实现加密。 2.这篇文章写我在shiro框架下加密加盐。 话不多说，先上代码。 package com.yikun.md5; import org.apache.shiro.crypto.hash.Md5Hash; public class MD5Demo...
MD5算法java实现源码
suata
12-03 1138
流程 处理需要加密的字符串： 以byte[]的形式获取，此时，每个字符为一个字节，占8位 当此时获得的字节流对512位，也就是64个字节取余，结果不为448，即56个字节时，使用1000……0的二进制位进行补位，直到取余结果为448,；而当结果为448时，也需要补位，补512位；（如果是字节补位则为128,0,0……） 此时如果想要按照每512为一块划分还缺少64位，这64位为最开始得...
使用JavaScript原生实现MD5加密算法
"这篇文章主要介绍了如何在前端使用纯JavaScript实现MD5加密算法。MD5（Message-Digest Algorithm 5）是一种广泛使用的哈希函数，它能够将任意长度的数据转化为固定长度的128位（16字节）的摘要，通常以32位的十六...
评论 8
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值