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.