Discussion :

[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?
voici en image:


voici 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
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 :

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

[_Ez3kiel]

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 ...

[hacker59]

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

[_Ez3kiel]

Je ne vois pas l'utilité de faire

Code :

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

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 ...


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 :

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

 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)

[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.

[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 :

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

1
2
3
4
5
        Dim t1, t2, duree As Integer
        t1 = GetTickCount()
        ' ... Traitement à chronométrer ...
        t2 = GetTickCount()
        duree = t2 - t1     ' en millisecondes