'Voila comment le crackme genere le serial:
'Il prend la valeur ascii du premier caractere de votre nom et la multiplie par 10
'Ensuite il prend celle du second et la multiplie par 100
'Celle du troisième par 1000
'etc..
'Ensuite il ajoute l'ensemble des valeurs obtenues. La somme est votre serial.
'Notez bien que ce crackme n'utilise que les neuf premiers caractères de votre nom.

'Si votre nom est trop long, le keygen considere que sa longueur equivaut a 9
If Len(Text1.Text) >= 9 Then longueurdunom = 9 Else longueurdunom = Len(Text1.Text)

'Debut de la boucle
'i = la lettre de votre nom sur laquelle nous travaillons. i = 1 pour la premiere, '2 pour la seconde.
'Tant que nous n'en avons pas finis avec votre nom, nous continuons.
For i = 1 To longueurdunom
'Pour la premiere lettre, multi = 10 (10^1). Pour la 2nde, c'est 100 (10^2).
'Pour la neuvieme, c'est 1000000000 (10^9).
multi = 10 ^ i
'Voila la generation du serial
temp_serial = (Asc(Mid(Text1.Text, i, 1)) * multi) + temp_serial
'temp_serial = Valeur ascii de la lettre sur laquelle nous travaillons
'MULTIPLIEE par multi
'PLUS temp_serial déjà calculé a partir des autres lettres.

'Affiche "temp_serial" (le serial temporaire)
'(Note: Si nous avons traité toutes les lettres de votre nom, le serial temporaire
'correspond au bon serial.)
Text2.Text = temp_serial

'Reprend la boucle afin de traiter toutes les lettres du nom
Next i

'Copie le serial dans le presse-papier
Clipboard.SetText Text2.Text
End Sub