Brute force, l'algorythme seul, pret à l'utilisation
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 ^^)
Copie/Colle ou télécharge ;)
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 / Exemple :
'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 ;)
Codes Sources
A voir également
- Brute force, l'algorythme seul, pret à l'utilisation
- Brute force code - Forum C
- Algorithme Brute Force ✓ - Forum C / C++ / C++.NET
- Brute force - Forum PHP
- Logiciel brute force - Forum Visual Basic 6
- Xor brute force - Forum VB.NET
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.