Discussion :

[hacker59]

bonjour, voila dans mon combobox1 sélectionne : Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@) ..etc

TEXTBOX1: ajoute hash MD5 (ex:827ccb0eea8a706c4c34a16891f84e7b)

en démarrent avec un button1 qui décrypte MD5

voici en image:

voici une partie 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
52
53
54
55
56
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Enabled = False
        Button2.Enabled = False
        ToolStripButton3.Enabled = False
        ToolStripButton4.Enabled = False
        PictureBox1.Enabled = False
        ComboBox1.Items.Add("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)")
        ComboBox1.Items.Add("Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9)")
        ComboBox1.Items.Add("Minuscule (a-z), Majuscule (A-Z)")
        ComboBox1.Items.Add("Majuscule (A-Z), Chiffre (0-9)")
        ComboBox1.Items.Add("Minuscule (a-z), Chiffre (0-9)")
        ComboBox1.Items.Add("Majuscule (A-Z)")
        ComboBox1.Items.Add("Minuscule (a-z)")
        ComboBox1.Items.Add("Chiffre (0-9)")
        RichTextBox1.Text = String.Concat(New String() {Strings.Format(DateAndTime.Now, "hh:mm:ss"), " - Merci Avoir Telecharger Mon Logiciel MD5 Decrypter", Environment.NewLine, Strings.Format(DateAndTime.Now, "hh:mm:ss"), " - Bonjour, Bienvenue Mon Logiciel Pour Decrypter MD5.", Environment.NewLine, Strings.Format(DateAndTime.Now, "hh:mm:ss"), " - Entrer Un Hash MD5 ET Clicker Start Sur Decrypter MD5.."})
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If (Strings.Len(TextBox1.Text) < &H20) Then
            Button1.Enabled = True
            Button2.Enabled = True
            ToolStripButton3.Enabled = True
            ToolStripButton4.Enabled = True
            Timer1.Stop()
        ElseIf (Strings.Len(TextBox1.Text) = &H20) Then
            Button1.Enabled = True
            Button2.Enabled = True
            ToolStripButton3.Enabled = True
            ToolStripButton4.Enabled = True
        End If
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 0
                    Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)
        End Select
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        RichTextBox1.ForeColor = Color.Black
        RichTextBox1.BackColor = Color.White
        PictureBox1.Enabled = True
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Select()
        Timer1.Start()
        Label5.Text = Strings.Format(DateAndTime.Now, "hh:mm:ss")
        RichTextBox1.AppendText(("" & Environment.NewLine))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - Commencez Le crackage du Hash MD5 ..."))
        RichTextBox1.AppendText(("" & Environment.NewLine & Strings.Format(DateAndTime.Now, "hh:mm:ss") & " - S'il vous plaît patienter ..."))
        Button1.Enabled = False
        ToolStripButton3.Enabled = False
    End Sub

Comment on écrie le code dans combobox1?
Merci cordialement.

[prologic]

Quel code ?

[hacker59]

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
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex
            Case 0
                   Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9), symbole (>?@)
            Case 1
                   Minuscule (a-z), Majuscule (A-Z), Chiffre (0-9)
            case 2
                  Minuscule (a-z), Majuscule (A-Z)
            case 3
                  Majuscule (A-Z), Chiffre (0-9)
            case 4
                  Minuscule (a-z), Chiffre (0-9)
            case 5
                 Majuscule (A-Z)
            case 6
                 Minuscule (a-z)
            case 7
                 Chiffre (0-9)
        End Select

Comment on écrie le code dans combobox1?
ex:
case 7
Chiffre (0-9) = "0123456789"

[_Ez3kiel]

1) Tu fais du multi-comptes sur le forum ?
2) Je dois être fatigué, mais je ne comprend pas ce que tu nous demandes.

[prologic]

Il te faut une fonction qui fait le decryptage et ta ComboBox appelle la fonction en passent des arguments différents.

La fonction doit être récursive avec une limite dans le nombre de caractères du mot de passe à tester histoire d'éviter les mdp à 1500 lettres.

Mais on va pas écrire la fonction à ta place .

[hacker59]

Merci prologic, pour cette explication mais pourrais-tu me donner un exemple?