Public Function Hash(ByVal text As String) As String a = 1 For i = 1 To Len(text) a = Sqr(a * i * Asc(Mid(text, i, 1))) 'Numeric Hash Next i Rnd (-1) Randomize a 'seed PRNG For i = 1 To 10 Hash = Hash & Chr(65 + Int(Rnd * 26)) Next i End Function c'est sale hein? mais ça a le mérite de […]