【VB.NET】快速哈希表（MD5、SHA、CRC32）支持输出格式文本
时间：2010-12-08 来源：X-Jonney
不建议用这个类库内的函数进行大型数据的校验，因为这里的函数都必须要完全将数据读入内存之后执行算法。如果要进行大量数据的校验，建议自己使用递进算法进行计算。
代码
1 Imports System.Security.Cryptography2
3 ''' <summary>计算哈希校验值，本类型内方法仅供小型计算</summary>
4 Public NotInheritable Class ClsoHash
5
6 ' CRC32 算法
7 Shared Function CRC32(ByVal data() As Byte) As UInt32
8 Static crc As UInt32, crctbl(255) As UInt32
9 If data.Length = 0 Then Return 0
10 If crc = 0 Then
11 For i As Short = 0 To 255
12 crc = i
13 For j As Byte = 0 To 7
14 If crc And 1 Then crc = (crc >> 1) Xor &HEDB88320& Else crc >>= 1
15 Next
16 crctbl(i) = crc
17 Next
18 crc = 1
19 End If
20 CRC32 = UInt32.MaxValue
21 For Each b As Byte In data
22 b = b Xor (CRC32 And &HFF)
23 CRC32 >>= 8
24 CRC32 = CRC32 Xor crctbl(b)
25 Next
26 Return Not CRC32
27 End Function
28
29 ' Adler32 算法
30 Shared Function Adler32(ByVal data() As Byte, ByVal offset As Integer, ByVal count As Integer) As UInteger
31 Dim checksum As UInteger = 1
32 Const BASE As UInteger = 65521
33 Dim s1 As UInteger = checksum And 65535
34 Dim s2 As UInteger = checksum >> 16
35 While count > 0
36 Dim n As Integer = 3800
37 If n > count Then n = count
38 count -= n
39 While n > 0
40 s1 = s1 + CUInt((data(offset) And 255)) : offset += 1
41 s2 = s2 + s1
42 n -= 1
43 End While
44 s1 = s1 Mod BASE
45 s2 = s2 Mod BASE
46 End While
47 Return (s2 << 16) Or s1
48 End Function
49 Shared Function Adler32(ByVal buffer As Byte()) As UInteger
50 Return Adler32(buffer, 0, buffer.Length)
51 End Function
52
53
54 ' MD5算法
55 Shared Function MD5(ByVal data() As Byte) As Byte()
56 Return (New MD5CryptoServiceProvider).ComputeHash(data)
57 End Function
58 ' MD5CSP算法
59 Shared Function MD5CSP(ByVal data() As Byte) As Byte()
60 Return (New MD5CryptoServiceProvider).ComputeHash(data)
61 End Function
62 ' HMACMD5算法
63 Shared Function HMACMD5(ByVal data() As Byte) As Byte()
64 Return (New HMACMD5).ComputeHash(data)
65 End Function
66 ' HMACRIPEMD160算法
67 Shared Function HMACRIPEMD160(ByVal data() As Byte) As Byte()
68 Return (New HMACRIPEMD160).ComputeHash(data)
69 End Function
70
71 ' SHA 1、256、384、512算法
72 Shared Function SHA1(ByVal data() As Byte) As Byte()
73 Return (New SHA1Managed).ComputeHash(data)
74 End Function
75 Shared Function SHA256(ByVal data() As Byte) As Byte()
76 Return (New SHA256Managed).ComputeHash(data)
77 End Function
78 Shared Function SHA384(ByVal data() As Byte) As Byte()
79 Return (New SHA384Managed).ComputeHash(data)
80 End Function
81 Shared Function SHA512(ByVal data() As Byte) As Byte()
82 Return (New SHA512Managed).ComputeHash(data)
83 End Function
84 ' HMACSHA 1、256、384、512算法
85 Shared Function HMACSHA1(ByVal data() As Byte) As Byte()
86 Return (New HMACSHA1).ComputeHash(data)
87 End Function
88 Shared Function HMACSHA256(ByVal data() As Byte) As Byte()
89 Return (New HMACSHA256).ComputeHash(data)
90 End Function
91 Shared Function HMACSHA384(ByVal data() As Byte) As Byte()
92 Return (New HMACSHA384).ComputeHash(data)
93 End Function
94 Shared Function HMACSHA512(ByVal data() As Byte) As Byte()
95 Return (New HMACSHA512).ComputeHash(data)
96 End Function
97
98 ' RIPEMD160算法
99 Shared Function RIPEMD160(ByVal data() As Byte) As Byte()
100 Return (New RIPEMD160Managed).ComputeHash(data)
101 End Function
102
103
104 ' 获取各种哈希数据字符串表示
105 Shared Function HashToText(ByVal data() As Byte) As String
106 Dim sb As New System.Text.StringBuilder
107 For Each b As Byte In data
108 sb.Append(b.ToString("X2"))
109 Next
110 Return sb.ToString
111 End Function
112 ' CRC32 和 Adler32 的字符串表示
113 Shared Function HashToText(ByVal uint As UInteger) As String
114 Return Hex(uint)
115 End Function
116 Shared Function HashToText(ByVal int As Integer) As String
117 Return Hex(int)
118 End Function
119
120 Shared Function HashToBase64(ByVal data() As Byte) As String
121 Return Convert.ToBase64String(data)
122 End Function
123
124 End Class
相关阅读 更多 +
排行榜 更多 +
