E-mail Spammer 2.0 + source code

Poska

buenas, hace tiempo hice un e-mail spammer en vb y os traigo la versión 2.0, me apetecía hacer algo rápido y me puse y la mejoré xd
*Novedad!
-Ahora no solo usa gmail, también AOL,Yahoo y hotmail (los que conseguí el smtp xdd)
Capturilla:

Descarga: [http://www.mediafire.com/?6vr48vy9m1564t3][0]">[http://www.mediafire.com/?6vr48vy9m1564t3][1]
Source code para interesados:

Imports System.Net.Mail
Public Class FrmMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtuser.Text = "" = True Then
            MsgBox("El usuario o contraseña introducido no es válido", MsgBoxStyle.Critical, "Error")
            Exit Sub
        ElseIf txtpass.Text = "" = True Then
            MsgBox("El usuario o contraseña introducido no es válido", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End If

        If server.Text = "smtp.gmail.com" Then
            Gmail.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "smtp.live.com" Then
            Hotmail.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "smtp.uk.aol.com" Then
            AOL.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
            Yahoo.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        End If
        Exit Sub
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Gmail.Stop()
        Yahoo.Stop()
        Hotmail.Stop()
        AOL.Stop()
        txtuser.Enabled = True
        txtpass.Enabled = True
        txtsubj.Enabled = True
        txtmsg.Enabled = True
        server.Enabled = True
        Button1.Enabled = True
        txtvictim.Enabled = True
        Button2.Enabled = False
    End Sub

    Private Sub Gmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gmail.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)

    End Sub

    Private Sub Yahoo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yahoo.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 465
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)

    End Sub

    Private Sub AOL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AOL.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)
    End Sub

    Private Sub Hotmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotmail.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 25
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)
    End Sub


    Private Sub txtsubject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtpass.UseSystemPasswordChar = True
    End Sub

    Private Sub server_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles server.SelectedIndexChanged
        If server.Text = "smtp.gmail.com" Then
            txtuser.Text = "@gmail.com"
        ElseIf server.Text = "smtp.live.com" Then
            txtuser.Text = "@hotmail.com"
        ElseIf server.Text = "smtp.uk.aol.com" Then
            txtuser.Text = "@aol.com"
        ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
            txtuser.Text = "@yahoo.com"
        End If
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.Show()
    End Sub
End Class

saludos

[0]: <a href=
[1]: http://www.mediafire.com/?6vr48vy9m1564t3

elmikelahy

si ay k poner contraseña m huele a virus

archii

Muy buen trabajo pero hay cosiyas que se pueden mejorar ..
Amm lo de la contraseña no es como obio o crees
que el Software es adivino o hacker para saber la pass de cada persona...
En diseño te falta bastante pero chevere

Si quieres me envias todo el proyecto y te ayudo a darle un toque de sutileza
para que sea un programa que no tenga que volver a ser modificado

TiberiKo

en que lenguaje lo has programado?

Anghios

Visual Basic 08/10