Générateur de dictionnaire

Commenter

Contenu du snippet

Ce code génère toutes les combinaisonts possibles (lettres seulement) avec un nombre de lettres définit.
Utillisé dans le domaine du hacking, un Générateur de dico permet d'essayer toutes les possibilités possible (généralement pour les password) jusqu'à trouver le bon.
Attention : Il est interdit d'utiliser ce code pour faire du hacking, cracking ou autre !!!
Si c'est la votre intention, merci de fermer immédiatement cette page.

Attention(2) : Il est obligatoir d'avoire plusieurs Go de libres dans votre disque dur pour pouvoir enregistrer toutes les possibilités d'une chaine de 8 lettres pas exemple.
Je me déresponsabilise quand aux problemes qui pourais survenir lors de l'utilisation de ce code source.

Autre chose : sa peut durrer des heures... voir des jours suivant la longeur de la chaine a générer

Source / Exemple : 


'Pour 1 lettre :
Open "C:\Dico.txt" for Append As #1
For i = 1 to 26
DoEvents
     Me.Caption = chr(96 + i)
     Print #1, chr(96 + i)
Next
Close #1

'Pour 2 lettres :
Open "C:\Dico.txt" for Append As #1
For i = 1 to 26
DoEvents
     For j = 1 to 26
          Me.Caption = chr(96 + i) & chr(96 + j)
          Print #1, chr(96 + i) & chr(96 + j)
     Next j
Next
Close #1

'Pour 3 lettres :
Open "C:\Dico.txt" for Append As #1
For i = 1 to 26
DoEvents
     For j = 1 to 26
          For e = 1 to 26
               Me.Caption = chr(96 + i) & chr(96 + j)
               Print #1, chr(96 + i) & chr(96 + j) & chr(96 + e)
          Next e
     Next j
Next
Close #1

'Et ainsi de suite. Il ne vous reste plus qu'à choisir le nombre de caractères et de configurer ce code en conséquence.

'Une Astuce pour l'espace disque : 
'Si vous n'avez qu'une seule utilisation a faire avec le résultat, voici le code remodelé :

'Pour 2 lettres :
For i = 1 to 26
DoEvents
     For j = 1 to 26
          MaVariable = chr(96 + i) & chr(96 + j)
          'Supposont que vous devez comparer le résultat avec une chaine donnée (MaChaine) :
          If MaVariable = MaChaine Then
               MsgBox "La chaine correspond"
               Exit Sub
          End If
     Next j
Next

' Voila

Conclusion :


Voila
Je ne suis pas encore en train de travailler sur le Générateur de Dico Lettres et Chiffres, mais je m'y mettrais.
Cordialement
Psykocrash

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (psykocrash)