corriger mes codes MD5

Version imprimable

bonjour, j'ai créer un décryptage md5 par alphabet mais voila j'ai un petit probleme faire mes codes , pouvez vous m'aider?
voici en image:
http://img713.imageshack.us/img713/9066/md5w.jpg

voici mes codes:

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Class Form1
    Dim UpperCase As String
    Dim Lowercase As String
    Dim Digits As String
    Dim ObjCmd5 As New Cmd5
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.MaxLength = 32
        Button1.Enabled = True
        ComboBox1.Enabled = True
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select ComboBox1.SelectedIndex
            Case 1
                UpperCase = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
            Case 2
                Lowercase = "abcdefghijklmnopqrstuvwxyz"
            Case 3
                Digits = "1234567890"
        End Select
    End Sub
 
    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
        Dim text As String = TextBox1.Text
        Dim alphabet As String = ComboBox1.SelectedIndex
        Dim stopwatch As New Stopwatch
        Dim maxi As String = 1
        stopwatch.Start()
        TextBox3.Text = ("" & 1)
        If Not ObjCmd5.button1("", 1, alphabet, text) Then
            Do
                maxi += 1
                stopwatch.Start()
                TextBox3.Text = ("" & maxi)
            Loop While Not ObjCmd5.button1("", maxi, alphabet, text)
        End If
        TextBox2.Text = ObjCmd5.RetourChaine
        stopwatch.Stop()
        Timer1.Stop()
        Dim elapsedMilliseconds As Integer = CInt(stopwatch.ElapsedMilliseconds)
        MessageBox.Show(("Trouvé en : " & CStr((elapsedMilliseconds * 0.001)) & " sec"))
    End Sub
End Class

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Class Cmd5
    Public Function button1(ByVal chaine As String, ByVal max As Integer, ByVal alphabet As String, ByVal text As String) As Boolean
        If (chaine.Length = max) Then
            RetourChaine = chaine
            Return True
        End If
        Dim num As Integer = 0
        Do
            If Me.button1((chaine & alphabet.Chars(num)), max, alphabet, text) Then
                Return True
            End If
            num += 1
        Loop While (num < &H24)
        Return False
    End Function
    Public RetourChaine As String
End Class

27/05/2013, 09h35
_Ez3kiel

Citation:

Envoyé par hacker59

bonjour, j'ai créer un décryptage md5 par alphabet mais voila j'ai un petit probleme faire mes codes , pouvez vous m'aider?

Ca dépend de tes problèmes ... :D
27/05/2013, 10h20
hacker59

bonjour,
je voudrais savoir, es ce que c'est bon dans combobox1 et timer1.
merci, de votre compréhension.

Je ne vois pas l'utilité de faire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim UpperCase As String Dim Lowercase As String Dim Digits As String Select ComboBox1.SelectedIndex Case 1 UpperCase = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Case 2 Lowercase = "abcdefghijklmnopqrstuvwxyz" Case 3 Digits = "1234567890" End Select
Sachant que à la vue de ton code ils ne prendront pas d'autres valeurs ...
Pourquoi ne pas avoir fait de constantes ? Ou alors une seule variable qui changerait selon ton test de Select Case, histoire de le justifier ...
D'autant que dans ton cas, et selon ton code, tu ne réutilises pas ces variables ... 8O

Pour le Timer je ne m'en suis jamais servi, donc je ne peux juger que la syntaxe Vb.Net et ainsi te conseiller d'éviter le nom de variable "text"

Code:

Dim text As String = TextBox1.Text

, si d'autres users s'y connaissent mieux en utilisation de Timer ils sont la bienvenue.

Et le Do Loop évite ... en Vb.Net les boucle infinies sont à proscrire ... (Avis perso)

27/05/2013, 17h32
ebastien

Bonjour,

La question que je me pose c'est quel est l'intérêt du Timer ici ?
Comme son nom l'indique, un Timer sert à exécuter du code toutes les x millisecondes. Activer un Timer lors d'un clic bouton pour le désactiver à la fin de sa première exécution est absurde. Le clic bouton devrait appeler une méthode simple.
De plus comme l'indique _Ez3kiel, mieux vaut éviter les Bouton1, Timer1 et autre Textbox1. Un nom parlant est préférable pour la lisibilité du code !!

Eb.
27/05/2013, 18h45
franticfranz
Bonjour,

Si le Timer ne sert qu'à chronométrer, je préfère utiliser la fonction GetTickCount(), qui évite la gestion parfois lourde des Timer. Sauf erreur de ma part, GetTickCount() est plus exacte, puisqu'elle n'est pas événementielle.
Code:

1 2 3 4 5 Dim t1, t2, duree As Integer t1 = GetTickCount() ' ... Traitement à chronométrer ... t2 = GetTickCount() duree = t2 - t1 ' en millisecondes
28/05/2013, 11h01
ebastien

Le Timer ne sert en aucun cas à chronométrer ! De plus, ici hacker59 utilise la classe Stopwatch pour mesurer le temps écoulé. D'où ma question, pourquoi utiliser un timer dans son cas ?

eb.
28/05/2013, 12h10
hacker59

le but du timer, c rechercher a decrypter le md5. si il faut pas utiliser un timer, comment vous écrivez le code?

cordialement, hacker59
28/05/2013, 12h35
ebastien
Mais un Timer sert à exécuter du code toutes les x millisecondes (genre, je veux afficher l'heure à l'écran, je crée un timer qui me rafraîchit un label toutes les secondes). Et ce n'est pas le cas ici.
Il suffit simplement de créer une méthode :
Code:

1 2 3 4 5 6 7 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click DecryptMd5() End Sub Private Sub DecryptMd5() ' Code qui va bien ... End Sub
Ou bien quelque chose m'échappe ?!

eb.

Citation:
Envoyé par ebastien
Mais un Timer sert à exécuter du code toutes les x millisecondes (genre, je veux afficher l'heure à l'écran, je crée un timer qui me rafraîchit un label toutes les secondes). Et ce n'est pas le cas ici.
Il suffit simplement de créer une méthode :
Code:

1 2 3 4 5 6 7 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click DecryptMd5() End Sub Private Sub DecryptMd5() ' Code qui va bien ... End Sub
Ou bien quelque chose m'échappe ?!

eb.
Non c'est tout à fait ça, mais je pense juste que tu as mal interpréter franticfranz, lorsqu'il dit "Si le Timer ne sert qu'à chronométrer", je ne pense pas qu'il désigne le Timer en général, mais que dans le cas concret de hacker59, lui ne s'en sert que pour ça ...

Ainsi on allie ta réponse et celle de franticfranz et on obtient :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim debutTemps As Integer Dim delaiTotal As Integer debutTemps = TimeOfDay.Second DecryptMd5() msgbox(TimeOfDay.Second - debutTemps) End Sub Private Sub DecryptMd5() ' Code qui va bien ... End Sub

28/05/2013, 14h47
franticfranz

Oups, effectivement ma formulation prête à confusion. Un Timer de *doit pas* servir de chronomètre (au risque d'avoir des comportements très inattendus), mais il me semble que dans le code de hacker59 c'est le cas...

D'où mon intervention à propos de GetTickCount(), mais la solution d'_Ez3kiel est plus élégante.
28/05/2013, 15h10
ebastien

Pour une fois, je ne vais pas être d'accord avec _Ez3kiel : Utiliser TimeOfDay.Second pour chronométrer c'est pas terrible car on parle dans ce cas en seconde (c'est pas très précis) et puis si le traitement commence à 15:05:58 et se termine à 15:06:02 on obtient 2-58 = -56 secondes :aie:
La classe Stopwatch permet de faire ce genre de chose.
28/05/2013, 16h48
franticfranz

Citation:

Envoyé par ebastien

Pour une fois, je ne vais pas être d'accord avec _Ez3kiel : Utiliser TimeOfDay.Second pour chronométrer c'est pas terrible car on parle dans ce cas en seconde (c'est pas très précis)

Ah oui tiens : TimeOfDay.Second retourne un entier. J'étais persuadé qu'il renvoyait un flottant...

Bon, ben il reste la classe StopWatch ou la fonction plus rustique GetTickCounts() ;)

Je devrais réfléchir plus avant de dire des bêtises ... :pastaper:

En ce cas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim debutTemps As Integer
        Dim delaiTotal As Integer
 
        debutTemps = My.Computer.Clock.TickCount
        DecryptMd5()
       msgbox(My.Computer.Clock.TickCount - debutTemps)
 
    End Sub
 
    Private Sub DecryptMd5()
        ' Code qui va bien ...
    End Sub

Tu auras un résultat en Millisecondes, à toi de le traiter pour afficher plus gros si tu le souhaites. :mrgreen:

2 pièce(s) jointe(s)

bonjour, j'ai modifier mon logiciel mais j'ai un problem avec la class cmd5
dans un de mes codes , il me marque l'index se trouve en dehors des limites du tableau
voici mes codes :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Class Form1
    Dim UpperCase As String
    Dim Lowercase As String
    Dim Digits As String
    Dim ObjCmd5 As New Cmd5
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub
    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged
        Button2.Enabled = True
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim text As String = TextBox4.Text
        If (TextBox4.Text <> "") Then
            TextBox1.Text = ObjCmd5.CalcMd5(text)
        Else
            MessageBox.Show("Erreur : Le champ Mot doit être complété")
        End If
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.MaxLength = 32
        Button1.Enabled = True
        ComboBox1.Enabled = True
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select ComboBox1.SelectedIndex
            Case 1
                UpperCase = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
            Case 2
                Lowercase = "abcdefghijklmnopqrstuvwxyz"
            Case 3
                Digits = "1234567890"
        End Select
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        decrypterMD5()
    End Sub
    Private Sub decrypterMD5()
        Dim text As String = TextBox1.Text
        Dim alphabet As String = ComboBox1.SelectedIndex
        Dim stopwatch As New Stopwatch
        Dim maxi As String = 1
        stopwatch.Start()
        TextBox3.Text = ("" & 1)
        If Not ObjCmd5.decryptMD5("", 1, alphabet, text) Then
            Do
                maxi += 1
                stopwatch.Start()
                TextBox3.Text = ("" & maxi)
            Loop While Not ObjCmd5.decryptMD5("", maxi, alphabet, text)
        End If
        TextBox2.Text = ObjCmd5.RetourChaine
        stopwatch.Stop()
        Dim elapsedMilliseconds As Integer = CInt(stopwatch.ElapsedMilliseconds)
        MessageBox.Show(("Trouvé en : " & CStr((elapsedMilliseconds * 0.001)) & " sec"))
    End Sub
End Class

classe CMD5

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Security.Cryptography
 
Class Cmd5
 
    Public Function CalcMd5(ByVal sChaine As String) As String
        Dim bytes As Byte() = New ASCIIEncoding().GetBytes(sChaine)
        Dim buffer As Byte() = New MD5CryptoServiceProvider().ComputeHash(bytes)
        Dim builder As New StringBuilder(buffer.Length)
        Dim index As Integer = 0
        If (0 < buffer.Length) Then
            Do
                builder.Append(buffer(index).ToString("X2"))
                index += 1
            Loop While (index < buffer.Length)
        End If
        Return builder.ToString
    End Function
 
    Function decryptMD5(ByVal chaine As String, ByVal maxi As Integer, ByVal alphabet As String, ByVal CrypterPass As String) As <MarshalAs(UnmanagedType.U1)> Boolean
        If (chaine.Length = maxi) Then
            If (CalcMd5(chaine) = CrypterPass) Then
                RetourChaine = chaine
                Return True
            End If
            Return False
        End If
        Dim num As Integer = 0
        Do
            If decryptMD5((chaine & alphabet.Chars(num)), maxi, alphabet, CrypterPass) Then
                Return True
            End If
            num += 1
        Loop While (num < &H24)
        Return False
    End Function
    Public RetourChaine As String
End Class

voici 2 image mon projet + l'index au dehors de la limite

29/05/2013, 08h17
ebastien
Bonjour,

Tout d'abord, je te conseille d'activer au niveau de la compilation Option Strict = On. Cela permettra d'éviter ce type de code où tu affectes un integer dans une string :

Code:

Dim alphabet As String = ComboBox1.SelectedIndex

Je ne pense pas que alphabet doivent prendre l'index sélectionné de Combobox1 ...

De plus, fais attention à ce type de code :
Code:

1 2 3 4 5 6 Do If decryptMD5((chaine & alphabet.Chars(num)), maxi, alphabet, CrypterPass) Then Return True End If num += 1 Loop While (num < &H24)
Si num est supérieur ou égal à alphabet.length, boom ! :aie:
Globalement, n'hésite pas à rendre ton code un peu plus robuste...
Bon courage
eb.