Accueil > > > BRUTE FORCE, L'ALGORYTHME SEUL, PRET À L'UTILISATION
BRUTE FORCE, L'ALGORYTHME SEUL, PRET À L'UTILISATION
Information sur la source
Description
Ben voici ma première source ! Il y en à plein comme comme celle-ci certe, mais je n'ai pas trouvé l'algorythme de brute force seul. Celui-ci contient donc QUE le code du brute-force, propre, et sans rien d'autre si ce n'est l'affichage de la chaine testée en cours, et d'un compteur. Donc (gros) débutants, amusez-vous ! Petite définition du brute force : Le brute force sert à tester toutes les chaines possibles avec une liste de caractères, et s'arrete lorsqu'il à trouvé la chaine cryptée, un mot de passe...etc (oui, c'est du cracking ^^)
Source
- 'début de la recherche
- Do
- LengthDepart = Len(Depart)
- If Right(Depart, 1) <> CaracteresArrayReverse(0) Then 'si le dernier caractere n'est pas le dernier de la liste
- Depart = Left(Depart, LengthDepart - 1) & CaracteresArray(InStr(1, Caracteres, Right(Depart, 1), 0))
- Else 'sinon
- Dim id As Integer
- id = LengthDepart
- Do While Mid(Depart, id, 1) = CaracteresArrayReverse(0)
- Mid(Depart, id, 1) = CaracteresArray(0) 'tous les caracteres étant le dernier de la liste sont remplacés par le premier
- id = id - 1
- If id = 0 Then Exit Do 'si tous les caracteres sont le dernier de la liste (voir 1)
- DoEvents
- Loop
- If id <> 0 Then
- Mid(Depart, id, 1) = CaracteresArray(InStr(1, Caracteres, Mid(Depart, id, 1), 0)) 'sinon, on remplace le précédent par son suivant dans la liste
- Else
- Depart = CaracteresArray(0) & Depart '(1) ajout d'un caracteres à la chaine
- End If
- End If
-
- If Depart = ChampPass.Text Then Exit Do 'test de la chaine généré (utilisez une fonction à la place du ChampPass.Text pour les chaines cryptées, ou hashées, sinon ça sert à rien le brute force ^^), si ok on sort de la boucle do, sinon recommence
- NbPsw = NbPsw + 1
- PSW = Depart
- DoEvents
- Loop
- 'fin de la recherche
'début de la recherche
Do
LengthDepart = Len(Depart)
If Right(Depart, 1) <> CaracteresArrayReverse(0) Then 'si le dernier caractere n'est pas le dernier de la liste
Depart = Left(Depart, LengthDepart - 1) & CaracteresArray(InStr(1, Caracteres, Right(Depart, 1), 0))
Else 'sinon
Dim id As Integer
id = LengthDepart
Do While Mid(Depart, id, 1) = CaracteresArrayReverse(0)
Mid(Depart, id, 1) = CaracteresArray(0) 'tous les caracteres étant le dernier de la liste sont remplacés par le premier
id = id - 1
If id = 0 Then Exit Do 'si tous les caracteres sont le dernier de la liste (voir 1)
DoEvents
Loop
If id <> 0 Then
Mid(Depart, id, 1) = CaracteresArray(InStr(1, Caracteres, Mid(Depart, id, 1), 0)) 'sinon, on remplace le précédent par son suivant dans la liste
Else
Depart = CaracteresArray(0) & Depart '(1) ajout d'un caracteres à la chaine
End If
End If
If Depart = ChampPass.Text Then Exit Do 'test de la chaine généré (utilisez une fonction à la place du ChampPass.Text pour les chaines cryptées, ou hashées, sinon ça sert à rien le brute force ^^), si ok on sort de la boucle do, sinon recommence
NbPsw = NbPsw + 1
PSW = Depart
DoEvents
Loop
'fin de la recherche
Conclusion
Copie/Colle ou télécharge ;)
Historique
- 17 août 2005 04:21:56 :
- Bug trouvé
- 17 août 2005 04:48:16 :
- Bug trouvé !
- 17 août 2005 18:54:24 :
- Ajout de la définition du brute-force
- 19 août 2005 19:26:30 :
- Optimisation de la vitesse
(merci Warny)
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Brute Force [ par LordBob ]
Bonjours a tous,j'aimerais que l'on m'explique les bases pour réalisé un algorithme de 'Brute Force'... Merci par avance...
Brute force dico??? [ par TheGuern ]
Bonjour tt le monde!Voilà mon "prob"; je cherche un algo pour pouvoir créer tt les mots de passe possiblement utilisés à mettre dans un txt ou autre f
Décrypter par brute force [ par lolokill666 ]
G un énorme probleme, g crypter des données très importantes pour que mon frère n'y ai pas accès mais g paumé le pass !!! Je veux faire un prog qui ex
Brute Force [ par Sniper_Vgaerr ]
Salut tout le monde,Voila je voudrais crée un petit programme qui me permet de faire un brute force sur un texte crypté en XOR (le truc de b
Algorithme brute force [ par zeboss ]
bonjour, j'aimerai savoir comment un logiciel de brute force tel que Advenced zip password recovery peut faire pendant sa recherche plus de 1 million
brute force attaque [ par psyionic ]
Bonjour a tous. Bon j'ai oublié ma question secrete pour réacceder a mon compte msn. J'ai donc DL bruteforce. Je lance email pass et je le rempli, mai
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|