none
comment afficher decryptage MD5 par dictionnaire RRS feed

  • Question

  • bonjour, je créer un logiciel qui décrypter MD5 par Dictionnaire. mais comment afficher la recherche dans listbox1  et m'affiche le resultas par message box:

    voici en image:

    voici mes codes:

    Public Class Form1
    
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
            Button1.Enabled = True
        End Sub
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim dialog As New OpenFileDialog()
            dialog.Filter = "Fichier Wordlist (*.txt)|*.txt"
            If DialogResult.OK = dialog.ShowDialog Then
                TextBox2.Text = dialog.FileName
            End If
            Button2.Enabled = True
        End Sub
    
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Timer1.Start()
        End Sub
    
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            ProgressBar1.Increment(1)
            Label2.Text = ProgressBar1.Value.ToString + "%"
            If ProgressBar1.Value = 99 Then
                MsgBox("Mot de Passe :" & ListBox1.Text)
                Timer1.Stop()
                ProgressBar1.Value = 0
            End If
        End Sub
    End Class
    Merci, cordialement.


    • Modifié zorro591 dimanche 12 mai 2013 12:19
    dimanche 12 mai 2013 12:18

Réponses

Toutes les réponses

  • Bonjour,

    Pas très clair. Avcez-vous essayé la doc http://msdn.microsoft.com/fr-fr/library/system.windows.forms.listbox.aspx pour voir comment afficher des éléments dans un contrôle ListBox ? (cf ListBox1.Items.Add dans l'exemple de code). Pour le message box, il suffirait de passer en argument le résultat que vous trouvez plutôt que la chaine "TERMINER" comme vous semblez le faire actuellement (et bien que le code que vous montrez semble faire autre chose).

    Essayeez d'être plus précis sur le problème. Y a t'il un pb quand vous essayez d'afficher les données via un contrôle ListBox ?


    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".

    dimanche 12 mai 2013 12:43
    Modérateur
  • bonjour,

    je voudrais,quand j’ouvris le fichier texte avec openfiledialog1

    appuient sur le button2 qui m'affiche son contenue du fichier texte dans listbox1.

    voici en image:

    merci cordialement.

    dimanche 12 mai 2013 13:53
  • Ok donc on veut afficher les lignes d'un fichier texte dans un contrôle ListBox ? On pourrait utiliser :

    ListBox1.Items.AddRange(System.IO.File.ReadAllLines(filename))
    ReadAllLines permet de récupérer les lignes d'un fichier sous forme d'un tableau de chaines et AddRange d'ajouter un tableau d'éléments aux "Items" affichés par le contrôle ListBox.

    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".

    dimanche 12 mai 2013 15:01
    Modérateur
  • Voila, je voudrais comme il l'a fait sur youtube le lien: http://www.youtube.com/watch?v=21bpkyzAZRY

    voici en image mon projet Modifier :

    comment, je pourrais faire défiler les mot dans listbox1 en appuient sur button2?

    dimanche 12 mai 2013 15:32
  • Dans ce cas ajouter les mots un par un avec ListBox1.Items.Add ?

    Eventuellement je suggérerais de ne pas utiliser une listBox mais plutôt un simple label pour montrer le mot en cours de test. Il est probablement peu utile de montrer tous les mots testés et la liste pourrait potentiellement être très longue...


    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".

    lundi 13 mai 2013 11:11
    Modérateur
  • bonjour,

    je veux pas ajouter dans lisbox1 ma wordlist. je voudrais appuie sur le button2 défiler le mot un par un.

    voici mes codes:

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
            Button1.Enabled = True
        End Sub
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim dialog As New OpenFileDialog()
            dialog.Filter = "Fichier Wordlist (*.txt)|*.txt"
            If DialogResult.OK = dialog.ShowDialog Then
                TextBox2.Text = dialog.FileName
                Label6.Text = Path.GetFileNameWithoutExtension(dialog.FileName)
                totalWords = File.ReadAllLines(dialog.FileName).Length
                Label8.Text = totalWords.ToString
                Label9.Text = "Dictionnaire Chargée"
            End If
            Button2.Enabled = True
        End Sub
    
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Timer1.Start()
            StopWatch.Start()
        End Sub
    
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            Dim elapsed As TimeSpan = StopWatch.Elapsed
            Label4.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", Math.Floor(elapsed.TotalHours), elapsed.Minutes, elapsed.Seconds, elapsed.Milliseconds)
            ProgressBar1.Increment(1)
            ListBox1.SelectedIndex += 1
            If ProgressBar1.Value = 1000 Then
                Timer1.Stop()
                StopWatch.Stop()
                ProgressBar1.Value = 0
                MsgBox(Label4.Text & " - Mot de Passe :  " & ListBox1.Text)
            End If
        End Sub

    comment on fait défiler le mot par mot dans listbox1 sens tout charger ma wordlist.

    comme la vidéo youtube: http://www.youtube.com/watch?v=21bpkyzAZRY

    Merci, cordialement.


    • Modifié zorro591 lundi 13 mai 2013 15:49
    lundi 13 mai 2013 15:49
  • Oui donc c'est bien un ajout un par un ? De toute façon ce n'est toujours qu'utiliser la méthode Add comme bon vous semble donc cela ne devrait pas poser problème. Par exemple sur un formulaire de test avec un bouton, un timer et une listbox :

    Public Class Form1
        Private Ligne As Integer
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            Ligne = Ligne + 1
            ListBox1.Items.Add("Ligne #" & Ligne)
            ListBox1.SelectedIndex = ListBox1.Items.Count - 1
        End Sub
    End Class
    

    Et donc l'appui sur le bouton déclenche un Timer qui va ajouter une nouvelle ligne dans la ListBox à chaque Tick.


    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".

    lundi 13 mai 2013 17:05
    Modérateur
  • Au cas où le problème serait un peu plus global j'ai laissé de côté ce qui semble ok (choix du fichier) cela pourrait donner qq chose comme :

    Public Class Form1
        Private Lignes() As String
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Lignes = System.IO.File.ReadAllLines("c:\test.txt")
            ProgressBar1.Maximum = UBound(Lignes)
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            ListBox1.Items.Add(Lignes(ProgressBar1.Value))
            ListBox1.SelectedIndex = ListBox1.Items.Count - 1
            If ProgressBar1.Value < ProgressBar1.Maximum Then
                ProgressBar1.Value += 1
                Exit Sub
            End If
            Timer1.Stop()
            ProgressBar1.Value = 0
        End Sub
    End Class
    Donc le bouton charge le tableau des lignes. Le nombre de lignes est utilisé pour initialiser la barre de progression. A chaque tick on prendre le nouveau mot et on progresse ou on stoppe si on est à la fin...

    Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".



    lundi 13 mai 2013 17:15
    Modérateur
  • voila , j'ai changer un peu les codes que tu m'as donner. Mais j'ai encore 2 questions

    1) Comment afficher dans listbox1 = TESTE = le mort = jj/mm/aa  hh:mm:ss

    2) afficher le resultas pas rapport dans la listbox1 (MD5= listbox1)

    mes codes:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim dialog As New OpenFileDialog()
            dialog.Filter = "Fichier Wordlist (*.txt)|*.txt"
            If DialogResult.OK = dialog.ShowDialog Then
                TextBox2.Text = dialog.FileName
                Label6.Text = Path.GetFileNameWithoutExtension(dialog.FileName)
                totalWords = File.ReadAllLines(dialog.FileName).Length
                Label8.Text = totalWords.ToString
                Label9.Text = "Dictionnaire Chargée"
            End If
            Button2.Enabled = True
            Button4.Enabled = True
            Lignes = System.IO.File.ReadAllLines(dialog.FileName)
            ProgressBar1.Maximum = UBound(Lignes)
        End Sub
    
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Timer1.Start()
            StopWatch.Start()
        End Sub
    
        Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
            Timer1.Stop()
            StopWatch.Stop()
        End Sub
    
        Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
            Dim elapsed As TimeSpan = StopWatch.Elapsed
            Label4.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", Math.Floor(elapsed.TotalHours), elapsed.Minutes, elapsed.Seconds, elapsed.Milliseconds)
            ListBox1.Items.Add(Lignes(ProgressBar1.Value))
            ListBox1.SelectedIndex += 1
            If ProgressBar1.Value < ProgressBar1.Maximum Then
                ProgressBar1.Value += 1
            Else
                If Cmd5.getMD5Hash(ListBox1.Text) = TextBox1.Text Then
                    Timer1.Stop()
                    StopWatch.Stop()
                    ProgressBar1.Value = 0
                    MsgBox(Label4.Text & " - Mot de Passe :  " & ListBox1.Text)
                End If
            End If
        End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click TextBox1.Clear() TextBox2.Clear() ListBox1.Items.Clear() StopWatch.Reset() Label4.Text = "00:00:00" Label6.Text = "0" Label8.Text = "0" Label9.Text = "" Timer1.Stop() ProgressBar1.Value = "0" Button1.Enabled = False Button2.Enabled = False End Sub

    voici en image:

    Merci,cordialement


    • Modifié zorro591 mardi 14 mai 2013 13:42
    lundi 13 mai 2013 18:50
  • Bonjour

    Pour récupérer la date en format dans le format voulu  vous avez:

    System.DateTime.Now.ToString("dd/MM/yyyy hh:mm:ss")

    Dans la ligne  ListBox1.Items.Add(Lignes(ProgressBar1.Value)) vous ajoutez un jeu de caractères, qui vous pouvez le modifier comme vous voulez.

    Cordialement,  


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    mardi 14 mai 2013 13:53
  • ajoute quoi comme caractères?

    erreur = ListBox1.Items.Add("TESTE :" & Lignes & "-" & System.DateTime.Now.ToString("dd/MM/yyyy hh:mm:ss"))

    vous écrivez comment?

    mardi 14 mai 2013 14:26
    • Marqué comme réponse zorro591 jeudi 16 mai 2013 15:37
    mercredi 15 mai 2013 14:26