【VB.NET】快速哈希表（MD5、SHA、CRC32）支持输出格式文本

这个方法主要封装了Cryptography内的类型，另外自己添加了比较常用的CRC32算法，以及数据转换到文本的方法。

不建议用这个类库内的函数进行大型数据的校验，因为这里的函数都必须要完全将数据读入内存之后执行算法。如果要进行大量数据的校验，建议自己使用递进算法进行计算。

 

代码

  1  Imports  System.Security.Cryptography
  2 
  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