begin process at 2012 02 14 03:06:14
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > BRUTE FORCE, L'ALGORYTHME SEUL, PRET À L'UTILISATION

BRUTE FORCE, L'ALGORYTHME SEUL, PRET À L'UTILISATION


 Information sur la source

Note :
5 / 10 - par 2 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Classé sous :brute, force Niveau :Débutant Date de création :17/08/2005 Date de mise à jour :19/08/2005 19:26:29 Vu / téléchargé :63 794 / 7 348

Auteur : kronemburg

Ecrire un message privé
Site perso
Commentaire sur cette source (46)
Ajouter un commentaire et/ou une note

 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 ;)

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 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

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) GENERATEUR SIMPLIFIÉ (BRUTE FORCE) par eckostreet
Source avec Zip JEU ANGLE ET FORCE par BZY1
Source avec Zip PROJECTILE_OU_CHUTE_LIBRE par tenseurtin
Source avec Zip SYSTÈME_SOLAIRE_ET_GRAVITATION par tenseurtin
Source avec Zip Source avec une capture BRUTE FORCE par Lightness1024!

Commentaires et avis

Commentaire de liquide le 17/08/2005 10:50:45

et ca sert a quoi?

Commentaire de kalif le 17/08/2005 17:34:03

je pense ke j'ai déjà vu une source de brute force et faut pas trop s'y connaitre pour isoler la fonction

Commentaire de ScSami le 17/08/2005 17:36:19

En voici en excellente question soulevée par Liquide !!!
Mais je ne peux m'empêcher, quitte à passer pour un gros nase, de la reposer : ça sert à quoi ???
(Autrement dit, il manque les explications dans la présentation de ta source!)

Commentaire de us_30 le 17/08/2005 21:23:05

Oh... Aller ! Ne jouez pas les naïfs... Cela sert à rien, c'est évident ! Personne utilise la force brute pour essayer de cracker... A moins d'être fou... Y'en a... c'est sur... Y'en a même qui en font du code... Bon, bon... j'exagère un peu, pour mettre en boite "kronemburg", ou en pack, c'est selon...

Enfin, un mot sur le code, sans l'avoir testé je l'avoue... IL me semble qu'il y a trop de boucles et de tests dans tous les sens, pour être vraiment rapide...

Us.

Commentaire de ScSami le 18/08/2005 05:04:23

Oui, d'accord, mais au risque de vraiment passer pour un newbie je vais reformuler ma question :
C'est quoi la "Force brute" ???
N'ayant aucune base en cracking j'espère que vous me la pardonnerez ^_^

Commentaire de kronemburg le 18/08/2005 05:55:43

Il y a deux façons (à ma connaissance) de cracker un mot de passe : la methode avec dictionnaire, et la force brute.
La methode dico utilise un fichier texte avec dedans une liste de mots (par exemple, ça va de alouette à zidane ^^'), et le prog teste tous ces mots les uns apres les autres. Le brute force génère toutes les combinaisons possibles avec une liste de caractères et les teste les unes après les autres jusqu'a ce qu'il tombe sur le mot de passe valide. c'est une methode très longue, qui peut prendre des semaines !
J'espère avoir été un peu plus clair ^^
@+

Commentaire de kronemburg le 18/08/2005 06:02:27

pour un exemple de brute force :
mot de passe 1 : a
mot de passe 2 : b
mot de passe 3 : c
...
mot de passe x : aa
mot de passe x+1 : ab
mot de passe x+2 : ac
...etc

Commentaire de liquide le 18/08/2005 08:58:57

Sincerement je connaissais le principe, mais franchement, un algo qui est sensé "cracker" et qui n'a aucune relation avec un soft ou une connexion a une page net. Je ne vois pas trop l'interet..., deja que je ne suis pas adèpte du crackage de passe.

Imagine si a l'occas j'ai vraiment envie d'avoir l'ame d'un hacker, je prend donc ton code et j'en fais quoi après ? je le lance et c'est tout ? il va savoir tout de ce que je veux faire.... la liaison avec un soft externe et leur inter-connexion me parait plus important que faire un algo sur une suite de caracteres mis bout a bout par bouclage.

Commentaire de us_30 le 18/08/2005 11:00:07

Oui d'accord, et j'en rajoute une couche, je crois aussi que VBF n'est pas trés chaud pour héberger des codes sur le craking...

Commentaire de Warny le 18/08/2005 14:49:35

Il y a hacking et hacking.
Celui pour le sport (sur ton matériel perso) et celui pour la bagarre. Le premier ça va, le deuxième, moins
Ici, il s'agit uniquement de l'algorithme de génération de toutes les possibilités de mot de passe.
On utilise cette méthode si:
- l'algorithme est irreversible OU on doit casser une clef de cryptage
- ET l'algorithme est fort (incassable par un autre moyen)
- ET l'élément qu'on doit casser n'est pas généré logiquement.

Déclare tes tableaux en string plutot qu'en variant si tu mets des caractères dedans, ça va plus vite.
Enregistre ta fonction test dans une variable avant les boucles
Et puis surtout :

ELIMINE LES GOTO DE TON CODE MÊME DE TEST

Bonne continuation

Commentaire de fring le 18/08/2005 19:22:19

Connait pas

Commentaire de fring le 18/08/2005 19:23:27

Connait pas

Commentaire de fring le 18/08/2005 19:23:53

Connait pas

Commentaire de us_30 le 18/08/2005 19:42:01

"jeune apprenti en programmation qui veut aller vite SOS" ... peut-être trop vite, justement...

Commentaire de kronemburg le 19/08/2005 02:33:40

Salut,
Wanry, j'ai fait les modfi dont tu parlai, mais au contraire, le prog est plus long (il perd 1000 mdp/s environ), j'ai fait ces tests en lancant les deux progs l'un apres l'autre, et ce plusieur fois de suite...


(Us, tu deviens lourd)

Commentaire de Warny le 19/08/2005 10:12:25

Pour gagner en temps, sur une chaine de caractère tu a le droit de faire ça

Mid(chaine, position, longueur) = remplacement

pour un seul caractère :

Mid(chaine, position, 1) = caractère

Ca évite de reconstruire la chaine, ce qui est loin d'être negligeable.

Par exemple, ligne 23 de ton code de présentation, tu peux écrire :
mid(Depart, id, 1) = CaracteresArray(0)
Ce qui va nettement plus vite en execution.

Tu n'as pas besoin du Goto ApresIf dans ton code

Commentaire de Warny le 19/08/2005 10:14:22

Pour gagner en temps, sur une chaine de caractère tu a le droit de faire ça

Mid(chaine, position, longueur) = remplacement

pour un seul caractère :

Mid(chaine, position, 1) = caractère

Ca évite de reconstruire la chaine, ce qui est loin d'être negligeable.

Par exemple, ligne 23 de ton code de présentation, tu peux écrire :
mid(Depart, id, 1) = CaracteresArray(0)
Ce qui va nettement plus vite en execution.

Tu n'as pas besoin du Goto ApresIf dans ton code

Commentaire de Warny le 19/08/2005 10:19:31

Pour gagner en temps, sur une chaine de caractère tu a le droit de faire ça

Mid(chaine, position, longueur) = remplacement

pour un seul caractère :

Mid(chaine, position, 1) = caractère

Ca évite de reconstruire la chaine, ce qui est loin d'être negligeable.

Par exemple, ligne 23 de ton code de présentation, tu peux écrire :
mid(Depart, id, 1) = CaracteresArray(0)
Ce qui va nettement plus vite en execution.

Tu n'as pas besoin du Goto ApresIf dans ton code

Commentaire de us_30 le 19/08/2005 13:16:23

Dernier petit mot... Mes deux lignes reprenait le super slogan de Fring, qui post 3 fois de suite : "Connait pas", qui franchement n'a rien t'interessant... mais cela est peut-être dû à un problème du site, puisque Warny, se retrouve dans la même situation. (mais il est vrai avec un post qui a du sens...)

Bonne continuation,
Us.

Commentaire de kronemburg le 19/08/2005 19:20:38

En effet warny, je viens de faire le test, c'est bien plus rapide !
Merci à toi.

Commentaire de kyckme le 22/08/2005 13:08:32

Salut,
c'est just pour une pitite remarque sur ce que tu a dis  kronemburg : "Il y a deux façons (à ma connaissance) de cracker un mot de passe", là je veux just intervenir, je suis pas un pro mais pour moi il y en à pas 2 mais des dizaines et des dizaines et la meilleur, à ma connaissance(très limité dans le domaine, si si), c'est la decompilation(windasm & co...) et sans rentrer dans les détails le pricipe c'est de sauter le test de validiter : concretement tu rentres n'importe quel mot de pass, le programme acceptera toujours.La manip' prend 2min a tt casser et ton prog est cracké a vie(où est ce que j'ai écrit ce pinèze de mot de pass....:o)

Voili voulou, sur ce bonne continuation, jte met 7/10 pour l'initiative (eh oui faut encourager les gens des fois, ça motiv' et ca fait avancer les choses!!)

Cordialement Kyck-me(aka dhigan aka le schtoumf pour les intimes :o)

Commentaire de Warny le 22/08/2005 13:50:32

Et si tu n'as pas accès au programme du système que tu veux pénetrer ? (même si tu as les sources par ailleur)
Si tu veux casser un message crypté avec DES ou AES ?
Si tu veux casser RSA ? (c'est un mauvais exemple, je déconne)

Y a pas 36 solutions, il en reste 2 :
- le gars en face ne sait pas manipuler les systèmes de protection et c'est trivial, tu rentres sa date de naissance, ou le nom de son chien, ou ...
- le gars en face sait manipuler les systèmes de protection et c'est force brute

Les alliés pendant la guerre de 39-45 ont décodé tous les messages allemand avec cette méthode.

C'est vrai qu'il y a des dizaines de méthodes d'attaque, mais si l'algo est bien fait et bien utilisé, il ne doit rester plus que la force brute.

Commentaire de Warny le 22/08/2005 14:06:38

Je viens de remarquer.
Si CaractereArray est un tableau contenant des caractères uniques et pas des chaînes il est efficace de faire ceci
Dim CaracteresArray as String
CaracteresArray = "abcde..." 'Liste des caractères utilisables

Et de l'utiliser comme ceci :
Mid (CaracteresArray, x, 1)

Ou comme ceci (mais il y a parfois des problèmes) :
Chr$(CaracteresArray(x))

Commentaire de silkscalp le 24/08/2005 19:56:48

Heu... Une petite précision pour Kyck-me, le brute-force est utilisé our casser les mots de passe des site web ou pour les fichiers de login.
Windasm, Ollydbg, Soft-Ice et otu le reste c'est fait pour casser desprogramme. En effet tu désassembles un programme pour voir le sourceen ASM et modifier en héxa.
Ce n'est pas le même but. Essaye de désassembler une page wa

Commentaire de silkscalp le 24/08/2005 20:22:52

Excusez moi je fini... (j'ai un problème de clavier désolès)

On ne peut désassembler une page web pour la simple raion que c'est du script non compilé, on peut voir le source de la page mais bien souvent le panneau d'admin est stocké sur le serveur et pas sur le client (trop facile..). De plus le brute force laisse des log terribles! Il vaut mieux essayezr des failles style 'Bypass SQL'
Le brute force n'est JAMAIS utilisé pour cracker un programme mais pour tester tout les mots de passe afin d'accéder à la page d'administration ou pour le fichier etc/passwd (avec shadow c'est plus complexe).
Pour les programmes, on crack avec des débogueurs (olly, S-I) et desassembleurs (IDA Pro, Wdasm...) (+ editeur héxa mais on peut s'en passer avec Olly). De plus les NOP (90) ne sont pas très apprèciés des crackeurs sauf quand on a pas le choix (mais on l'a presque toujours). On peut etre crackeur et avoir un style comme en français, d'ailleurs on peut en reonnaitre certain à la manière dont ils crackent...
Pour cracker le NOP ou ou l'inverse de saut se faitquand on débute.Maintenant si tu as affaire à un programme packé (ASPROTECT, tu vas pas mettre 2 minutes...) ,Wdasm ne t'affichera pas le code ou alors du code incomprehensible. Il faut dumper le programme avant ou faire un patch inline.
Bref les prog crackable en 2 minutes sont du style winrar ou autre. Dès que tu t'attaque à des programme plus complexe c'est autre chose.
Par exemple pour un jeu qui verifie que le CD est dans le CD-ROM, un cracker ne va pas nopper la comparaison mais plutôt regarde les API et modifier les valeurs attendues (avec GetDriveTypeA, c'est 5 pour CDROM et 3 pour Disque dur). Le prog compare EAX avec 5, Il faut juste modifier 5 par 3 c'et mieux que nopper une comparaison (Les crackeurs trouvent que l'inversion et le nop sont pour les débuts)
Surtout que l'on peut scanner le prog à la recherche de NOP qui ne sont pas présent à l'origine et fermer le prog si il y en a).
Une techniques de protection est de faire un bon Checksum avec un algo de cyptage (md5 ou autre),et là ton NOP va se faire rejetter systématiquement.
Ceci étant dit, je crois que ce n'est pas le lieux pour discuter de ce sujet (c'est pour ca que je suis resté théorique, en plus le cracking de programme ce fait en ASM et vbfrance ne ressemble pas  ASMfrance).
Ici on parle de code et pas de technique de cracking donc je m'arrete là.
Le bruteforce à sa place car c'est de l'algorithme. Le cracking non (euez moi si je m'étale)!!
Donc pour des questions (hors de ce site, silkscalp1@hotmail.com (msn) ou silkscalp@gmail.com)
Silkscalp
A +

Commentaire de ceced132 le 28/01/2006 21:49:53

salut les fichiers que l'on télécharger.coment faut-ils les ouvrirs???svp car ils n'ont pas de logiciel pour s'ouvrir par défaut expliquez moi svp

Commentaire de silkscalp le 28/01/2006 22:04:25

Pour ouvrir les fichiers il faut que tu ai VB ou Visual Studio.
C'est ce logiciel (qui permet de programmer) qui te permettra d'ouvrir ces fichiers.
L'extension des fichiers te permet de determiner le prog avec lequel tu vas ouvrir ces fichiers.
Clair ? (question...)
@+
Silkscalp

Commentaire de us_30 le 29/01/2006 12:09:45

Salut (Re),


Je regarde de nouveau ton code en terme d'optimisation, et je vois qu'il y a encore pas mal de p'tites choses qui pourraient augmenter la vitesse d'exécution...


Donc, juste en passant...
JE constate que dans les boucles FOR a= ... la variable a n'est jamais déclarée; donc elle est en type Variant pr défaut. IL faudrait donc la déclarée par : Dim a As Long... gain d'exécution assuré...


ENSUITE, les instructions sur les chaines devraient être utilisé avec leurs syntaxes String. A savoir, au lieu de Left, Right, Mid mettre un dollar à la fin. Soit Left$, Right$ et Mid$.


Ensuite les boucles DO. La meilleur vitesse est obtenue en mettant l'instruction de sortie à LOOP. Donc au lieu de DO WHILE... LOOP , préférer DO.... LOOP WHILE... C'est toujours possible. Parfois, il faut faire attention de ne pas sortir prématurément, mais ici, il ne semble pas que cela le cas...
DE plus, la syntaxe de sortie des deux boucles DO...LOOP par IF (condition) THEN EXIT DO, est de beaucoup plus pénalisant que DO... LOOP UNTIL (condition), qui pourrait être utilisé ici...


DOEVENTS, instruction qui "redonne la main" aux autres procéssus, est évidemment trés trés pénalisant. L'utiliser 2 fois me semble donc beaucoup. Jamais serait le mieux. Un compromis serait de l'utiliser qu'une seule fois, en laissant DoEvents que sur la première boucle DO.


La déclaration :
Dim id As Integer
est répétée inutilement. Sortir cette déclaration de la boucle DO.


D'ailleurs, il me semble également inutile d'utiliser cette variable, puisqu'elle vaut id = LengthDepart, et que par la suite elle est décrémentée, certes. Mais pourquoi garder LengtDepart, puisque repassage dans la boucle DO, LengthDepart retrouvera la valeur Depart, avec :
Do
LengthDepart = Len(Depart)


Le doublon du test :
Do While Mid(Depart, id, 1) = CaracteresArrayReverse(0)
Mid(Depart, id, 1) = CaracteresArray(0)
est un  structure optimisable, en principe. Mais il faut changer de mode de raisonnement... à étudier...


Bon, voilà je crois avoir fait un peu près le tour...

Amicalement,
Us.

Commentaire de us_30 le 29/01/2006 12:14:42

Oupsss...

Lire :
Mais pourquoi pas garder LengtDepart, puisqu'au repassage dans la boucle DO, LengthDepart retrouvera la valeur "Depart", avec :

Au lieu de :
Mais pourquoi garder LengtDepart, puisque repassage dans la boucle DO, LengthDepart retrouvera la valeur Depart, avec :

Us.

Commentaire de Pseud0nyme le 07/07/2006 00:00:08

   1. 'début de la recherche
   2. Do
   3. LengthDepart = Len(Depart)
   4.    If Right(Depart, 1) <> CaracteresArrayReverse(0) Then 'si le dernier caractere n'est pas le dernier de la liste
   5.      Depart = Left(Depart, LengthDepart - 1) & CaracteresArray(InStr(1, Caracteres, Right(Depart, 1), 0))
   6.    Else 'sinon
   7.      Dim id As Integer
   8.      id = LengthDepart
   9.      Do While Mid(Depart, id, 1) = CaracteresArrayReverse(0)
  10.        Mid(Depart, id, 1) = CaracteresArray(0) 'tous les caracteres étant le dernier de la liste sont remplacés par le premier
  11.        id = id - 1
  12.        If id = 0 Then Exit Do 'si tous les caracteres sont le dernier de la liste (voir 1)
  13.      DoEvents
  14.      Loop
  15.      If id <> 0 Then
  16.      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
  17.      Else
  18.      Depart = CaracteresArray(0) & Depart '(1) ajout d'un caracteres à la chaine
  19.      End If
  20.    End If
  21.  
  22. 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
  23. NbPsw = NbPsw + 1
  24. PSW = Depart
  25. DoEvents
  26. Loop
  27. 'fin de la recherche
  28.  

Je dois coller ça où ? >_<

Commentaire de El_mosquito_3 le 24/01/2007 19:49:50

Bon alors je sait que je doit etre un gros gros boulet mais bon je vais quand meme essayer de vous posez quelques questions du genre :
- En quel language de programation est ce fait (c'est du C++, je suis un débutant et je trouve que sa a un air de ressemblance)
- Sinon quelqun de bien intentionné pourrait il refaire le code comme il le serait pour qu'il soit le plus rapide possible parce que je sens bien que si je modifi quelque chose sa va tournée mal (un peu comme quand on change la recette d'un gateau)
- troisième question :
Est ce que quelqun pourrait me réexpliqué avec plus de précision comment on se sert d'un desasembleur
- 4eme et dernière question :
Comment se sert on d'un code comme celui énoncé plus haut je ne voit pas comment on peut s'en servir sur une page web.
merçi de me répondre le plus vite possible
Si quelqun peut m'éclairer la lanterne : diablo_del_mar@hotmail.fr  
El mosquito

Commentaire de econs le 24/01/2007 20:14:43 administrateur CS

1) Perdu, c'est du Visual Basic ! En même temps, tu es sur le site VBFrance. Pour le C++, c'est cppfrance.com
2) Qu'est ce qui te fait dire que celui-ci n'est pas rapide ? L'écrire en C++ le rendrait évidemment plus rapide que s'il était codé en VB ... Mais bon, c'est pas le but ici.
3) Avec le désassembleur, tu changes complètement de sujet là ! Quel rapport avec la source ci-dessus et Visual Basic ?
4) Il serait assez maladroit d'utiliser un tel code sur une page web. As-tu au moins compris ce qu'il fait ?

Commentaire de us_30 le 25/01/2007 19:07:19

Bonjour,

"je sais que je dois être un gros gros boulet" ... NON, penses-tu !

"quelqu'un de bien intentionné pourrait-il refaire le code ... pour qu'il soit le plus rapide possible"
... Euh, je crois qu'il a été déjà optimisé !

"quelqu'un pourrait me réexpliqué avec plus de précision comment on se sert d'un désasembleur"
... Là, franchement, laisse béton ! essayes déjà d'apprendre le VB, tu seras moins frustré !

"Comment se sert-on d'un code comme celui énoncé plus haut. Je ne vois pas comment on peut s'en servir sur une page web."
... Les pages web ne sont pas vraiment le sujet, comme le dit Econs.
... Tiens à titre d'exemple, j'utilisaerais prochainement ce code (ou un autre en force brute) pour déverrouiller un fichier OFFICE !
Voilà à quoi cela pourra servir... mais l'efficacité ne sera très bonne, enfin bref... l'important n'est pas là !

Us.

Commentaire de El_mosquito_3 le 25/01/2007 20:26:15

Bon ok, je suis pas très malin mais je trouve que le visual basic et le C++ se ressemble pas mal
Après en clair si je veux m'amuser a esayer toutes les combinaisons possible que ce soit pour une page web ou pour un logiciel, est ce qu'il est possible d'utiliser un code comme celui ci ?
Et il faut que j'avou je n'ai pas compris l'interet de ce code !
Par rapport a la lenteur du code c'est que plus haut certains on dit qu'utiliser brute force peut prendre très longtemps, merçi aussi pour l'optimisation je m'en était pas rendu compte, par ce que plus haut certains on parlé d'améliorations possible, merçi a ceux qui les ont faites !
J'ai peut etre fait un petit HS avec mon histoire de déssasembleur mais quelqun pourrait il m'aider via msn ou mail pour m'expliquer un peu tout sa si vous avez du temps

Commentaire de us_30 le 25/01/2007 22:12:20

Pour te répondre plus sérieurement, il faudrait que tu apprennes un peu la programmation. En clair tes remarques/questions sont imprécises (pour ne pas dire hors sujet) du fait on ne peut pas répondre exactement de manière concise. Par exemple, le VB et C++, ont seulement des points communs, dû à la structure d'un algorithme... mais ne se ressemble pas vraiment... pour dire cela, il est évident que tu ne connais rien... enfin, passons...
Les remarques sur les optimisations ont été repris dans l'ensemble par kronemburg. Ces remarques perdent leurs intérêts au fur et à mesure des mises à jour... c'est un principe général, dans ce genre de posts... (à croire qu'il faut t'expliquer la roue...)
Pour t'expliquer à quoi sert un désasembleur, ce n'est évidemment pas dans ces posts qu'il faut chercher, mais dans un forum, ou dans des sites d'informations... je pense qu'un peu de recherche sur GOOGLE te donnerais déjà des idées...

Amicalement,
Us.

Commentaire de 1pauvrecon le 28/05/2009 13:42:11

jarrive pas a lire les fichiers du zip et encore moins a faire fonctionné l'application help!

Commentaire de tibaw le 03/10/2009 13:38:36

c'est pas sous VB ca tu peut m'aider ?
je suis débutant et j'aimerais comprendre
recement j'ai perdu un mot de passe cela pourait m'aider

Commentaire de monson le 05/11/2009 16:12:41

Comment on installe ce logiciel??

Commentaire de coco44150 le 23/11/2009 00:11:21

http://www.hard-h4ckings.cjdghjjfb

Commentaire de hadri1 le 13/12/2009 13:35:33

salut, j'ai repris ce code avec vb 2008 et j'ai trouvé quelques 'optimisations'  qui m'ont permis de passer de 40 000 mdps.s-1 à environ 980 000 mdps.s-1 en simple comparaison texte. un ptit million de mdps par seconde c'est déja plus pratique quand tu dois ajouter après des f° pour de hash.
quelques modifs:
°en ne laissant le do events que dans la boucle :
   Do While Mid(Depart, id, 1) = CaracteresArrayReverse(0)
          Mid(Depart, id, 1) = CaracteresArray(0)
          id = id - 1
          If id = 0 Then Exit Do 'si tous les caracteres sont le dernier de la liste (voir 1)
       DoEvents
    Loop

° en enlevant à la fin:
PSW = Depart
DoEvents
on utilisera donc 'depart' dans les autres sub a la place de 'psw'

° en placant  'Dim id As Integer' avant le 'Do'
ainsi qu'en définissant avant le premier 'Do':
Dim cherché As String = ChampPass.Text , CA0 As String = CaracteresArray(0).ToString , CAR0 As String = CaracteresArrayReverse(0).ToString  
ensuite tu remplace dans ta boucle :
Tous les 'CaracteresArrayReverse(0)' et 'CaracteresArray(0)' par 'CAR0' et 'CA0' ce qui evite chercher a chaque fois dans les tableaux
Et surtout 'If Depart = ChampPass.Text Then Exit Do' par 'If Depart = cherché Then Exit Do' ce qui evite "d'acceder" à la form à chaque tour  

° en remplacant 'id = id - 1' par 'id -= 1'

Il reste d'autres modifications , je ne les ai pas toute en tête, mais chacunes ont été testées et elle permettent toutes d'augmenter la vitesse (x 25 environ au total!)


Commentaire de hadri1 le 13/12/2009 13:41:46

Dsl je n'avais pas vu le commentaire de us_30 donc du coup je répète certaines choses

Commentaire de jojo0211 le 16/02/2010 00:54:50

bonjour, je voudrais savoir comment on fait fonctionner ce prgm, je doit faire quoi pour que ca marche ? pliz

Commentaire de eckostreet le 19/07/2010 01:20:46

salut

J'ai simplifié une source générateur de l'attaque brute force pour les personnes que sa intéresse vous pourrai trouvé a l'adresse suivante "http://www.vbfrance.com/code.aspx?ID=51970" sur vbfrance.

a+

Commentaire de bennyas le 02/03/2011 19:18:59

salut

tu dit en haut copier et coller la source mais on colle ou ?

Commentaire de bibujido le 23/03/2011 11:57:14

Je suis actuellement entrain d'essayer d'apprendre à programmer, j'utilise Microsoft Visual Basic 2008 Express, mais je ne comprend pas comment faire fonctionner ce code.
-Le code ci-dessus est-il a copier coller intégralement dans Microsoft Visual Basic 2008 Express dans un nouveau projet (les écrits verts compris) ?
-Quel est le fichier du zip qu'il faut lancer pour faire fonctionner ce programme ?
-Faut il d'autre logiciel pour le faire fonctionner ?
-Dans le zip n'y a t'il pas de fichier executable en .exe ?
-Que faut il modifier/remplacer dans ce code pour qu'il fonctionne ?
Ça fait beaucoup de questions je suis désolé, j'espère avoir un peu d'aide merci d'avance.

Commentaire de allanbossdu74 le 04/04/2011 00:56:48

salu tout le monde pouver vous meder je ne comprend rien jaimerais trouver un mots de passe de fb ?

 Ajouter un commentaire


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&#233;e un petit programme qui me permet de faire un brute force sur un texte crypt&#233; 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


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,139 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales