Coder un algo de bruteforce

Question

bonjour , je voudrais mettre un brutforce dans le programme: voici je voudrais mettre dedans: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~
c quoi comme programme?

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False
        Else
            ProgressBar1.Value = ProgressBar1.Value + 1
            
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = "Password"
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
            If RichTextBox1.Text = "Password succesful"
        Else
            RichTextBox1.Text = "Password error"
        End If
    End Sub
End Class

BruNews · Answer

Ce doit etre une suite d'octets qui doit servir de dico pour un brutforce mais ce n'est pas un prog.

Il est clair que ce n'est pas avec la daube interprétée que tu montre dessous que tu apprendras à coder.

ciao...

cptpingu · Answer

Bonjour.

Je pense, au vu du code, que tu t'es trompé de section. Je déplace de "C/C++" vers "VB.Net"

Il est clair que ce n'est pas avec la daube interprétée que tu montre dessous que tu apprendras à coder.
No comment... (Pour info, on ne dit pas "c'est de la merde" mais "je n'aime pas"). 

________________________________________________________________________
Historique de mes créations, et quelques articles:
[ http://0217021.free.fr/portfolio http://0217021.free.fr/portfolio]
Merci d'utiliser Réponse acceptée si un post répond à votre question

ucfoutu · Answer

Bonjour,
Ce que je n"'aime pas, en ce qui me concerne personnellement, c'est le but recherché lui-même (recherche d'un mot de passe en "brute force") 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

zorro5959 · Answer

voici mon code ou sa ce bloque:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub
Function GenerateRandomString(ByRef length As Integer) As String
Randomize()
Dim allowableChars As String
allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~"

Dim i As Integer
For i = 1 To length

Next
GenerateRandomString = GenerateRandomString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
End Function

Comment générer un mot de passe aléatoire plus rapide ?

ucfoutu · Answer

Jamais vu de ma vie un tel paradoxe entre l'ambition (que je conteste) du but recherché et la pauvreté des connaissances de base. On se demande même ce qu'est cette boucle non exploitée ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

us_30 · Answer

Bonjour Zorro,

Avec un tel nom, j'espère que tu veux défendre une cause noble ?

Bon, déjà, tu utilises presque exclusivement des fonctions du bon vieux VB6 dans VB.NET... c'est possible, mais très mauvais en terme de performance. Et comme tu veux aller le vite possible... Tu as déjà tout faux.
Ensuite la ligne qui se trouve après le Next, me semblerais mieux dans la boucle... Mais, de toute façon, elle est incohérente pour le but recherché. Et pis, j'en passe...

Voici la fonction en vb.net qui pourrait répondre à ton attente :

Met un bouton et un label dans la form1  avec le code suivant :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = GenerateRandomString(10).ToString
    End Sub

Dans un module :

    Function GenerateRandomString(ByVal LongueurPasse As Integer) As String

        ' Dico
        Dim allowableChars As String
        allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~"

        ' Initialisations
        GenerateRandomString = ""
        Dim max As Integer = allowableChars.Length
        Dim NbAleatoire As Integer
        Dim rnd As System.Random = New System.Random
        Dim t As Integer

        ' Boucle de formation du passe
        For t = 1 To LongueurPasse
            NbAleatoire = rnd.Next(0, max)
            GenerateRandomString = GenerateRandomString & allowableChars.Substring(NbAleatoire, 1)
        Next

    End Function

Amicalement,
Us.

ucfoutu · Answer

Bonjour, us_30,
j'espère que tu veux défendre une cause noble 
Tu parles !
Relis :
Comment générer un mot de passe aléatoire plus rapide ? 
pour un seul : comme l'éclair.
Une moulinette sur un très grand nombre : évidemment lent.
Réfléchis maintenant : à quel "but noble" pourrait répondre la mise en oeuvre d'une moulinette, sinon à chercher à violer un mot de passe (en essais successifs jusqu'au bon) ? )
Tu as été "gentil" de lui dire où (dans sa boucle) devait être calculé un mot de passe. 
Pas grave car je sais que cela ne le mènera heureusement pas bien loin.  

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

us_30 · Answer

Bonsoir ucfoutu,

Pas grave car je sais que cela ne le mènera heureusement pas bien loin. Donc pas d&#8217;inquiétude !

"le mènera heureusement pas bien loin"; Si... enfin, peut-être... à apprendre à programmer. Cet intérêt de casser un mot de passe est une motivation comme une autre. Quand il en connaîtra plus, il fera autre chose... J'aurai dû m'appeler Zorro pour ce noble but.

Amicalement,
Us.

ucfoutu · Answer

Tu crois vraiment ce que tu dis ?
Bon ... on va bien voir 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

us_30 · Answer

Si à chaque fois que tu débutes dans une nouvelles recherche ou activité, tu te fait rembarrer; penses-tu que tu aurais poursuivi ? Je connais la réponse sincère : non ! Heureusement que Zorro est là pour veiller au grain  
Mais maintenant, continuera-t-il sur VBF ? je ne suis plus aussi sûr...

Amicalement,
Us.

cs_ShayW · Answer

Salut Ucfoutu

violer un mot de passe
un peu comme Robin des bois
Hacker Wood

zorro5959 · Answer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = GenerateRandomString(10).ToString
    End Sub

Dans un module :

Code Visual Basic :

 Function GenerateRandomString(ByVal LongueurPasse As Integer) As String

        ' Dico
        Dim allowableChars As String
        allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~"

        ' Initialisations
        GenerateRandomString = ""
        Dim max As Integer = allowableChars.Length
        Dim NbAleatoire As Integer
        Dim rnd As System.Random = New System.Random
        Dim t As Integer

        ' Boucle de formation du passe
        For t = 1 To LongueurPasse
            NbAleatoire = rnd.Next(0, max)
            GenerateRandomString = GenerateRandomString & allowableChars.Substring(NbAleatoire, 1)
        Next

    End Function


 
salut US_30 ,j'ai essayer les codes que tu m'a donner, je te remercie.mais voila,il y a un petit probleme a la fin 
rien qui s'affiche dansPrivate Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = True Then
        End If

ucfoutu · Answer

Sois patient.
us_30 ne manquera pas de tout faire à ta place, puisque c'est ainsi que tu "comprends" ce que tu "fais". 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

En attendant son aide, je te demande de calculer, par exemple, 12! (factorielle 12). C'est le nombre d'"essais" qu'il te faudra faire pour un mot de passe de 12 caractères.
Je te demande également de réfléchir à l'éventualité, que tu n'as pas prévue, de caractères accentués (entre autres). 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Pardon.
Qu'ai-je dit ? Ce n'est pas factorielle 12 (qui ne serait exact que si 12 caractères à mettre dans le bon ordre choisis parmi 12 connus) mais bien plus (beaucoup beaucoup beaucoup plus : autant de fois factorielle 12 qu'il y a de groupes possible de 12 caractères parmi le nombre de caractères mis dans la variable allowableChars) 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

zorro5959 · Answer

desolee ucfoutu,mais je suis pas un expert dans visuel basic.Mais  je commence a comprendre  comment on fait un logiciel par rapport au code. un generateur de code, j'ai le faire,Mais je voudrais un generateur de code qui recherche le mot de passe de 1 a 16 avec ceci:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~"
voila ce que je demande. Merci

ucfoutu · Answer

je voudrais un generateur de code qui recherche le mot de passe de 1 a 16 avec ceci:

relis-moi et "espère" ... longtemps ... très longtemps ... 
Non mais !!!!! Et puis quoi, encore ? 
Adieu.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Pour tout dire : je ne comprends même pas comment une telle discussion peut être autorisée, pour une telle demande, qui, de surcroît, semble être la seule motivation d'un "intéressement" au développement, intéressement non accompagné (ni pour un sol péruvien) de la moindre connaissance..
C'est tout simplement désastreux.
A toi de jouer, us_30. Moi, je me "barre" vite fait bien fait. 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

us_30 · Answer

Bonsoir,

Bon, là, Zorro... c'est vrai que tu devrais apprendre les bases avant... sinon, tu n'iras pas loin comme ça.

Dans le bouton, met donc :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = GenerateRandomString(10).ToString
End Sub

enfin, là, normalement, c'est à toi de savoir faire ça.

=> bon, ensuite, comme le signale l'UC Foutu, si mes qlq lignes sont justes, elles répondent à ta première demande. Or, ton idée d'utiliser l'algorithme de "force brute aléatoire" est généralement toujours inefficace dès que le passe augmente.
Ici, juste en cas de non répétition (ce qui n'est pas le cas ici), le nombre de test à effectuer vaut une combinaison de C(92,16) = 315 297 189 498 738 447 ... C'est colossale ! C'est donc le nombre minimum de test à effectuer... En gros, si tu veux le faire, ben, en se redonne rendez-vous dans un siècle ! d'ac !

Amicalement,
Us.

zorro5959 · Answer

voici l'image de mon logiciel:mon logiciel clic ici.

zorro5959 · Answer

salut US_30, merci pour tous des reponses  ça a marcher. comment je vais en mode auto, pour éviter de cliquée plusieur fois.
Function GenerateRandomString(ByVal LongueurPasse As Integer) As String

        ' Dico
        Dim allowableChars As String
        allowableChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#$%&'()*+,-./:;<=>?@[\]^_`{|}~"

        ' Initialisations
        GenerateRandomString = ""
        Dim max As Integer = allowableChars.Length
        Dim NbAleatoire As Integer
        Dim rnd As System.Random = New System.Random
        Dim t As Integer

        ' Boucle de formation du passe
        For t = 1 To LongueurPasse
            NbAleatoire = rnd.Next(0, max)
            GenerateRandomString = GenerateRandomString & allowableChars.Substring(NbAleatoire, 1)
        Next

    End Function

cs_ShayW · Answer

Salut zorro 

est arrivé sans se presser   lol

il n'est pas evident  que tu trouves le mot de 
passe car tu peux obtenir toujours les memes
mots

ucfoutu · Answer

Salut, ShayW,
Et on n'a toujours pas vu où et comment, dans son code, il teste la validité d'un mot de passe. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_ShayW · Answer

Salut ucfoutu

c'est bizarre à la télé les télefilm suspens 
il (james bond etc) trouve toujours le mot de passe on peut leur demander 

Et on n'a toujours pas vu où et comment, dans son code, il teste la validité d'un mot de passe.

ah non c'est secret les hackers ont préter serment

cs_ShayW · Answer

j'ai effectué un petit test
        
 Do Until GenerateRandomString(8) = "A12B3C4D"

 Loop     


ucfoutu tu peux aller à la péche 
pas sur qu'au retour qu'on soit sorti de la boucle

us_30 · Answer

Bonsoir à tous,

Comme je disais :
Bon, là, Zorro... c'est vrai que tu devrais apprendre les bases avant... sinon, tu n'iras pas loin comme ça. 

Faire une action en automatique, peut se faire avec une boucle. Mais, j'arrête là, pour deux raisons :
- 1. On pose une question par post; C'est la règle sur le forum,
- 2. Ta question est élémentaire, donc apprends à programmer les fonctions de bases. Il y a plein de cours sur internet pour apprendre. Et si tu ne comprends pas tout du premier coup (normal rassures-toi) tu peux toujours te servir de ce forum pour trouver de l'aide.

Amicalement,
Us.

PS : J'espère que la pêche était bonne

zorro5959 · Answer

bonjour voila je viens partager un code brut force en vb celui qui est interesser.
Private Function BruteForce(ByVal vnLongMin As Integer, ByVal vnLongMax As Integer) As String()
        Dim Caractères() As Char = New String("ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz1234567890<>,?;.:/!§*µù%$£&#164;&#168;+=})]à@ç^\_`è|-[({'#""é~&").ToCharArray()
        Dim Lg As Integer = vnLongMin - 1
        Dim y As Integer
        Dim xsRet As Stack(Of String) = New Stack(Of String)
        Erase BruteForce
        For Lg = vnLongMin - 1 To vnLongMax - 1
            Dim Buff() As Char = New String("A", Lg + 1).ToCharArray
            Dim nChar(Lg) As Integer
            Do
                For Each c As Char In Caractères
                    Buff(Lg) = c
                    xsRet.Push(New String(Buff))
                Next c
                For y = Lg - 1 To 0 Step -1
                    nChar(y) += 1
                    If nChar(y) > Caractères.GetUpperBound(0) Then
                        nChar(y) = 0
                        Buff(y) = Caractères(0)
                        If y = 0 Then
                            Exit Do
                        End If
                    Else
                        Buff(y) = Caractères(nChar(y))
                        Exit For
                    End If
                Next y
            Loop
        Next Lg
        ReDim BruteForce(xsRet.Count - 1)
        xsRet.CopyTo(BruteForce, 0)
    End Function

Coder un algo de bruteforce

27 réponses

Votre réponse

Discussions similaires