i45,
и дальше что? HashVal? Значений HashVal всего-то тысяча с чем-то, так что он очень неуникальный.
Вот на скорую руку код для поиска 10 пар строк с одинаковым HashVal.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Test_HashVal()
Dim s$, h$, clS As New Collection, clH As New Collection, i&, j&
Dim di As Object: Set di = CreateObject("scripting.Dictionary")
On Error Resume Next
Do
1 s = ""
For i = 3 To 3 + Int(Rnd * 8)
s = s & Chr$(65 + Int(Rnd * 26))
Next
clS.Add 0, s
If Err Then Err.Clear: GoTo 1
h = di.HashVal(s)
clH.Add s, h
If Err Then
Err.Clear
Debug.Print "Одинаковый хеш: "; h, "для строк "; s; " и "; clH(h)
j = j + 1
End If
Loop Until j = 10
End Sub
Примерный результат
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Одинаковый хеш: 892 для строк SMISZM и TBOLN
Одинаковый хеш: 531 для строк BJASMSL и ZKRO
Одинаковый хеш: 531 для строк BIRSVQ и ZKRO
Одинаковый хеш: 66 для строк BGAH и FM
Одинаковый хеш: 254 для строк NWXRYEH и QN
Одинаковый хеш: 139 для строк PMTCLJG и WCAMX
Одинаковый хеш: 73 для строк I и GC
Одинаковый хеш: 334 для строк UZ и MDJZQMC
Одинаковый хеш: 1091 для строк JKIYQH и FIBB
Одинаковый хеш: 262 для строк LGHOV и INIBQIA
