En effet, dans certains cas je me retrouve avec des références vraiment longues. ^^
-------
Sur un autre forum, j'ai trouvé ce code permettant de convertir une chaîne de caractères en un code hexadécimale.
Code : Tout sélectionner
Dim x As Long
Dim mask, i, j, nC, Crc, txt As Integer
Dim c, txt As String
txt = Concaténer
Crc = &HFFFF ' crc mit $ffff initalisieren
For nC = 1 To Len(txt) Step 2
j = Val("&H" + Mid(txt, nC, 2)) 'im HEX-Format
Crc = Crc Xor j
For j = 1 To 8
mask = 0
If Crc / 2 <> Int(Crc / 2) Then mask = &HA001
Crc = Int(Crc / 2) And &H7FFF: Crc = Crc Xor mask
Next j
Next nC
txt = Hex$(Crc) 'Checksumme
Return Crc
Qu'en penses-tu ?
EDIT :
D'après ce lien dans lequel sont comparées différentes méthodes de hachage, la fonction citée au-dessus (CRC16) offre un "taux de collision" de 9%, que j'interprète comme 624 doublons sur 6895 chaines converties. Si c'est bien ça, alors c'est pas génial.