Function NumeroUniqueComplet() As String
Dim timestamp As Double
Dim nomOrdinateur As String
Dim nomUtilisateur As String
Dim numeroUnique As String
' Timestamp très précis
timestamp = Timer + (Now() * 86400) ' Secondes depuis minuit + jours
' Informations machine
nomOrdinateur = Environ("COMPUTERNAME")
nomUtilisateur = Environ("USERNAME")
' Générer un hash simple des informations
Dim hashMachine As Long
Dim i As Integer
For i = 1 To Len(nomOrdinateur)
hashMachine = hashMachine + Asc(Mid(nomOrdinateur, i, 1)) * i
Next i
' Combiner tous les éléments
numeroUnique = CLng(timestamp) & "-" & hashMachine & "-" & Len(nomUtilisateur)
NumeroUniqueComplet = numeroUnique
End Function