Générateur de dictionnaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 579 fois - Téléchargée 46 fois

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

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
samedi 6 octobre 2007
Statut
Membre
Dernière intervention
6 octobre 2007

jai po compri comen on fai stp tu pourrai me dire coment on fai
Messages postés
3
Date d'inscription
dimanche 8 juillet 2007
Statut
Membre
Dernière intervention
12 juillet 2007

vous pouvez répondre svp
Messages postés
3
Date d'inscription
dimanche 8 juillet 2007
Statut
Membre
Dernière intervention
12 juillet 2007

ok mais comment on créer un nouveau projet vb6 stp
Messages postés
240
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009

Mdrr j'avais mis niveau 3 ^^ Désolé, erreur de jeunesse :p

@Naruto... : Tu ne le télécharge pas, tu dois créer un nouveau projet vb6, tu copies le code, et tu exécutes.
Messages postés
3
Date d'inscription
dimanche 8 juillet 2007
Statut
Membre
Dernière intervention
12 juillet 2007

comment on télécharge? ton logiciel
Afficher les 10 commentaires

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.