E-mail Spammer 2.0 + source code

Topic created · 5 Mensajes · 2692 Visitas
  • 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

  • si ay k poner contraseña m huele a virus

  • 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 😉

  • en que lenguaje lo has programado?

  • Visual Basic 08/10