32位MD5字符串转唯一数字

liucqa

MD5字符串形如（数字+大写字母，共32位）：900150983CD24FB0D6963F7D28E17F72

下面的函数将这个32位的字符串转成两个数字，以便在大数据量做字符串索引的时候，会快些。

1. Function Md5_Numeric(strMD5 As String)
   
2.     Dim i&, j&, strMD5ANSI$, b() As Byte
   
3.     Dim Numic1, Numic2, step
   
4. 
   
5.     Numic1 = CDec(0)
   
6.     Numic2 = CDec(0)
   
7.     step = CDec(1)
   
8. 
   
9.     strMD5ANSI = StrConv(Left(strMD5, 32), vbFromUnicode)
   
10.     b = strMD5ANSI
    
11. 
    
12.     For i = 0 To 15
    
13.         If b(i) <= 57 Then
    
14.             b(i) = b(i) - 48
    
15.         Else
    
16.             b(i) = b(i) - 65 + 10
    
17.         End If
    
18.         Numic1 = Numic1 + step * b(i)
    
19. 
    
20.         j = i + 16
    
21.         If b(j) <= 57 Then
    
22.             b(j) = b(j) - 48
    
23.         Else
    
24.             b(j) = b(j) - 65 + 10
    
25.         End If
    
26.         Numic2 = Numic2 + step * b(j)
    
27.         
    
28.         step = step * 36         '因MD5字符串都是大写字母，所以b(i)最大是35
    
29.     Next
    
30.     Md52Numic = Numic1 & "," & Numic2
    
31. End Function

复制代码

我测试了一下，一个Decimal 类型的数字，大约可以放17~18位字符串。所以32位字符串要拆成2个数字。


顺便说一下，返回值应该是个1维数组，存放两个数字。
我为了演示方便，改成字符串输出。

这个算法比直接转换成10进制数得到的数字要小些。

liucqa

36转10进制算法

1. Function Convert36_10(n36 As String)
   
2.     Dim basestr As String
   
3.     Dim n
   
4.     Dim i As Long
   
5.     basestr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
6.     n36 = Left(n36, 16)
   
7.     n = CDec(0)
   
8.     For i = 1 To Len(n36)
   
9.         n = n * 36 + (InStr(basestr, Mid(n36, i, 1)) - 1)
   
10.     Next
    
11.     Convert36_10 = n
    
12. End Function

复制代码

liucqa

优化了一下二楼的算法，发现还是进制转换的方法

1. Sub test()
   
2.     Dim md5$, MD5Val, MD5Val10
   
3.     Dim t As Date, i&
   
4. 
   
5.     md5 = GetMD5Hash_String("abc")
   
6. 
   
7.     t = Timer
   
8.     For i = 1 To 500000
   
9.         MD5Val = Md5_Numeric(md5)
   
10.     Next
    
11.     MsgBox Format(Timer - t, "0.00")         '8.0
    
12. 
    
13.     t = Timer
    
14.     For i = 1 To 500000
    
15.         MD5Val10 = Convert36_10(md5)
    
16.     Next
    
17.     MD5Val10 = Convert36_10(md5)
    
18.     MsgBox Format(Timer - t, "0.00")         '7.6
    
19. End Sub
    
20. 
    
21. Function Md5_Numeric(strMD5 As String)
    
22. 
    
23.     Dim i&, j&, b() As Byte
    
24.     Dim Numic1, Numic2, step
    
25. 
    
26.     Numic1 = CDec(0)
    
27.     Numic2 = CDec(0)
    
28.     step = CDec(1)
    
29. 
    
30.     b = StrConv(Left(strMD5, 32), vbFromUnicode)
    
31. 
    
32.     For i = 0 To 15
    
33.         If b(i) <= 57 Then
    
34.             b(i) = b(i) - 48
    
35.         Else
    
36.             b(i) = b(i) - 65 + 10
    
37.         End If
    
38.         Numic1 = Numic1 + step * b(i)
    
39. 
    
40.         j = i + 16
    
41.         If b(j) <= 57 Then
    
42.             b(j) = b(j) - 48
    
43.         Else
    
44.             b(j) = b(j) - 65 + 10
    
45.         End If
    
46.         Numic2 = Numic2 + step * b(j)
    
47. 
    
48.         step = step * 36         '因MD5字符串都是大写字母，所以b(i)最大是35
    
49.     Next
    
50.     Md5_Numeric = Numic1 & "," & Numic2
    
51. End Function
    
52. 
    
53. Function Convert36_10(n36 As String)
    
54.     Dim basestr As String, b() As Byte
    
55.     Dim i&, j&, Numic1, Numic2
    
56. 
    
57.     b = StrConv(n36, vbFromUnicode)
    
58.     Numic1 = CDec(0)
    
59.     Numic2 = CDec(0)
    
60.     For i = 0 To 15
    
61.         If b(i) <= 57 Then
    
62.             b(i) = b(i) - 48
    
63.         Else
    
64.             b(i) = b(i) - 65 + 10
    
65.         End If
    
66.         Numic1 = Numic1 * 36 + b(i)
    
67.         j = i + 16
    
68.         If b(j) <= 57 Then
    
69.             b(j) = b(j) - 48
    
70.         Else
    
71.             b(j) = b(j) - 65 + 10
    
72.         End If
    
73.         Numic2 = Numic2 * 36 + b(j)
    
74.     Next
    
75.     Convert36_10 = Numic1 & "," & Numic2
    
76. End Function
    

复制代码

liucqa

最后给出MD5的API程序

1. Option Explicit
   
2. Option Base 0
   
3. 
   
4. Public Type MD5_CTX
   
5.     i(1) As Long
   
6.     buf(3) As Long
   
7.     inc(63) As Byte
   
8.     digest(15) As Byte
   
9. End Type
   
10. 
    
11. Public Declare Sub MD5Init Lib "Cryptdll.dll" (ByVal pContex As Long)
    
12. Public Declare Sub MD5Final Lib "Cryptdll.dll" (ByVal pContex As Long)
    
13. Public Declare Sub MD5Update Lib "Cryptdll.dll" (ByVal pContex As Long, ByVal lPtr As Long, ByVal nSize As Long)
    
14. 
    
15. Public Function ConvBytesToBinaryString(bytesIn() As Byte) As String
    
16.     Dim i As Long
    
17.     Dim nSize As Long
    
18.     Dim strRet As String
    
19. 
    
20.     nSize = UBound(bytesIn)
    
21.     For i = 0 To nSize
    
22.         strRet = strRet & Right$("0" & Hex(bytesIn(i)), 2)
    
23.     Next
    
24.     ConvBytesToBinaryString = strRet
    
25. End Function
    
26. 
    
27. Public Function GetMD5Hash(bytesIn() As Byte) As Byte()
    
28.     Dim ctx As MD5_CTX
    
29.     Dim nSize As Long
    
30. 
    
31.     nSize = UBound(bytesIn) + 1
    
32. 
    
33.     MD5Init VarPtr(ctx)
    
34.     MD5Update ByVal VarPtr(ctx), ByVal VarPtr(bytesIn(0)), nSize
    
35.     MD5Final VarPtr(ctx)
    
36. 
    
37.     GetMD5Hash = ctx.digest
    
38. End Function
    
39. 
    
40. Public Function GetMD5Hash_Bytes(bytesIn() As Byte) As String
    
41.     GetMD5Hash_Bytes = ConvBytesToBinaryString(GetMD5Hash(bytesIn))
    
42. End Function
    
43. 
    
44. Public Function GetMD5Hash_String(ByVal strIn As String) As String
    
45.     GetMD5Hash_String = GetMD5Hash_Bytes(StrConv(strIn, vbFromUnicode))
    
46. End Function
    
47. 
    
48. Public Function GetMD5Hash_File(ByVal strFile As String) As String
    
49.     Dim lFile As Long
    
50.     Dim bytes() As Byte
    
51.     Dim lSize As Long
    
52. 
    
53.     lSize = FileLen(strFile)
    
54.     If (lSize) Then
    
55.         lFile = FreeFile
    
56.         ReDim bytes(lSize - 1)
    
57.         Open strFile For Binary As lFile
    
58.         Get lFile, , bytes
    
59.         Close lFile
    
60.         GetMD5Hash_File = GetMD5Hash_Bytes(bytes)
    
61.     End If
    
62. End Function
    

复制代码

香川群子

CDEC最大值是79,228,162,514,264,337,593,543,950,335
29位。

那么9999……取28位时，可以保证不产生溢出。即处理10^28以内的十进制整数没有问题。

香川群子

呵呵，1楼函数Function Md5_Numeric(strMD5 As String) 的最后一句代码：

Md52Numic = Numic1 & "," & Numic2
这个应该是函数结果输出的语句吧。

但前面函数名称为 Md5_Numeric

产生了不一致，导致函数结果没有被输出。

joforn

MD5计算后返回的值就是四个Long类型的值。后面才被转换成16进制的字符串用来显示。你要数值的话直接取数组就好了，为什么还要多做一步转换呢？

joforn

如果你是使用别的工具取到的MD5值字符串的话，直接转成4个Long是最简便的，直接
For I=0 To 3
   lngArr(I)=  Val("&H" & MID$("...",8* I +1,8)
Next I
直接就转出了四个长整型数据。

香川群子

liucqa 发表于 2013-4-17 03:04
优化了一下二楼的算法，发现还是二楼的快

md5 = GetMD5Hash_String("abc")

还少了Function GetMD5Hash_String() 的代码。

liucqa

joforn 发表于 2013-4-17 09:40
如果你是使用别的工具取到的MD5值字符串的话，直接转成4个Long是最简便的，直接
For I=0 To 3
   lngArr ...

其实最终目的是把哈希值转成数字，做排序用。因为数字排序比字符串快得多。

如果是4个long，就得做4次排序。

要是能搞成1个数字就好了，百度半天，发现都是两个Int64数字。

有啥办法对长字符串做快速排序呢？100万行