Discussion :

[hacker59]

bonjour, voila j'ai un petit probleme avec ma listbox1, je voudrais afficher "teste : le mot @ la date et l'heur "

voici une partie de mes codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
            totalWords = File.ReadAllLines(dialog.FileName).Length
            Label4.Text = totalWords.ToString
        End If
        Button2.Enabled = True
        Lignes = System.IO.File.ReadAllLines(dialog.FileName)
        ProgressBar1.Maximum = UBound(Lignes)
    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 += 1
        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
            Label6.Text = Val(Label6.Text + 1)
            If getMD5Hash(ListBox1.Text) = TextBox1.Text Then
                Timer1.Stop()
                ProgressBar1.Value = 0
                MsgBox("dictionnaire : " & Label4.Text & " SUR " & Label6.Text & " = Le Mot De Passe est :  " & ListBox1.Text)
            End If
        End If
    End Sub

je voudrais remplacer ce code dans timer1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.Items.Add(Lignes(ProgressBar1.Value))

par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais voila il m'affiche une erreur, voici en image l'erreur + mon projet

[Etanne]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Dans ce code vous écrivez que vous voulez concaténer un string avec un objet de type tableau (c'est ce qui est dit explicitement dans le message d'erreur)..

..ll faut peut-être indiquer un index pour le tableau Lignes(...)

Etanne

[hacker59]

bonjour, j'ai trouver la solution a mon probleme mais voila j'ai un petit probleme pour afficher le résulta par rapport au hash MD5.

voici mes codes timer1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ListBox1.Items.Add(" teste : " & Lignes(ProgressBar1.Value) & " : " & Date.Now)
        ListBox1.SelectedIndex += 1
        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
            Label6.Text = Val(Label6.Text + 1)
            If getMD5Hash(Lignes(ProgressBar1.Value)) = TextBox1.Text Then
                Timer1.Stop()
                ProgressBar1.Value = 0
            End If
        End If
    End Sub

comment on fait pour afficher le résulta dans ma listebox1:
(Le Mot De Passe est : le mot)

Voici en image:

Merci,cordialement

[kitachi]

Salut,

Il me semble qu'en théorie, l'avantage du hashage en MD5 est que tu ne peux pas faire l'opération inverse (du moins pas avant le Framework .NET classique).

Il faut donc que tu gardes en mémoire le mot de passe AVANT de le hasher

[hacker59]

bonjour, j'avais trouver la solution a mon probleme, il y a un moment. j'avais oublier de clique sur résolu.
voici en image: