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