Spammer V1.2

Iniciado por Braayhaan, 18 Agosto 2009, 06:13 AM

0 Miembros y 2 Visitantes están viendo este tema.

yovaninu

Cita de: Spider-Net en 18 Agosto 2009, 17:38 PM
Voy a hacer un apunte que me extraña que nadie haya hecho ya, no lo hago con mala intención pero se le dice a todo el que hace lo mismo que has hecho tú, no veo por qué no decírtelo a ti:

Esta es la sección de Visual Basic por lo que si quieres compartir aquí tu programa deberías publicar directamente el código fuente y no pedir que te lo soliciten por MP. Si lo que quieres es publicar simplemente un programa compilado existe un foro de software y un un foro libre donde puedes hacerlo.

Si por lo contrario querías compartir dudas, experiencias y demás y no tienes problemas en compartir el source entonces ¿por qué solicitas que te lo pidan por MP?, simplemente cuélgalo junto con tu ejecutable y listo.

Un saludo.
Aun quedan este tipo de usuarios, felicitaciones Spider-Net... ya hiba a poner lo mismo: "y el source"????

Braayhaan

Ya pues no mas no se molesten eh Soy nuevo aqui y la verdad es que no lo sabia, Entonces si quieren me pueden pedir el "Proyecto" Por Mp...

Bueno tienen que modificar esta linea para que cuando un user mande algo le llege la info a su E-Mail, el que esta Hay es el mio pero no tiene password, Para que Te pueda funcionar el codigo pon una cuenta que ya no uses en donde dice ("correo.spammer@gmail.com", "your password") Pones un Correo viejo donde quieres que te llegen los datos de la gente que spamees por ejemplo que escribieron y eso, y la clave, para que se comunique con tu correo ps.

Tienes que hacer eso mismo en el Form1 y el Form3

Aca les va el Codigo

FORM1
Código (vb) [Seleccionar]
Imports System.Net.Mail
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Codigo Para llamar al Formulario2'
        Form2.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button4.Click
        'Codigo para Detener Ejecucion si el Usuario no Introduce Datos en El TextBox1'
        If TextBox1.Text = "" Then
            MsgBox("Escribe tu Correo electronico en este formato Para continuar: tunombre@ejemplo.com", MsgBoxStyle.Question)
            Return
        End If
        'Finaliza el Codigo de Detencion de Ejecucion'
        'Estos son Los Distintos OBJETOS que Activa y Desactiva este Boton'
        Label14.Show()
        Label15.Show()
        Label16.Show()
        AyudaToolStripMenuItem.Enabled = False
        Button2.Enabled = False
        Button6.Enabled = False
        Label8.Enabled = False
        Label9.Enabled = False
        Label10.Enabled = False
        Label11.Enabled = False
        Label12.Enabled = False
        Button5.Enabled = False



        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button3.Enabled = True
        Label7.Hide()
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Codigo de la "ProgressBar1" incluyendo el codigo SMTP para Hacer la conexión al Correo'
        ProgressBar2.Hide()
        ProgressBar1.Show()
        ProgressBar1.Increment(1)

        If ProgressBar1.Value = ProgressBar1.Maximum Then

            Dim WC As New System.Net.WebClient

            Dim MyMailMessage As New MailMessage

            MyMailMessage.From = New MailAddress("correo.spammer@gmail.com")

            MyMailMessage.To.Add(TextBox1.Text)

            MyMailMessage.Subject = (TextBox2.Text)

            WC.Dispose()

            MyMailMessage.Body = (TextBox3.Text)

            Dim SMTPServer As New SmtpClient("smtp.gmail.com")

            SMTPServer.Port = 587

            SMTPServer.Credentials = New System.Net.NetworkCredential("correo.spammer@gmail.com", "your password")

            SMTPServer.EnableSsl = True

            Try

                SMTPServer.Send(MyMailMessage)

            Catch ex As SmtpException

            End Try

        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        'Timer para Mostrar "Labels" despues de cierto tiempo'
        Label6.Show()
        Label4.Show()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        'Timer para Mostrar un "Label" despues de cierto tiempo'
        Label5.Show()
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub ComoUsarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComoUsarToolStripMenuItem.Click
        'Intrucciones de Uso'
        MsgBox("Los Textos con * Son requeridos para completar el Formulario,Los Textos con () a los lados significan que estan bloqueados, Introduzca la direccion de Correo electronico de la Victima, Rellene Todos los Campos y luego haga click en Flood para empezar el Proceso, Para Cerrar la ventana solo Presione el Boton Salir. Tambien puedes como opcion dar click en los textos amarillos para seleccionarlos Automaticamente.")
    End Sub

    Private Sub CreadorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreadorToolStripMenuItem.Click
        'Creador Brayhan Jose Nuñez Rojas/ En Los Foros - BlazeFire, Youtube BlazexxFire'
        MsgBox("Spammer Creado por Brayhan Jose Nuñez Rojas/En los Foros - BlazeFire, Correo electronico: blazefireadm@gmail.com o chichon926@hotmail.com ")
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Boton de "Detener Proceso" Que Activa muestra y Detiene Distintos Objetos seleccionados por el Creador osea Yo xD'
        AyudaToolStripMenuItem.Enabled = True
        Button2.Enabled = True
        Label7.Show()
        Timer1.Stop()
        Timer2.Stop()
        Timer3.Stop()
        Button4.Show()
        Return
    End Sub

    Private Sub Label8_Click()

    End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@gmail.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub

    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@yahoo.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@msn.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub

    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@live.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'Instruccion para Limpiar Contenido de Cajas de Texto'
        TextBox1.Clear()
    End Sub

    Private Sub flood_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Este Button Fue Removido por Motivos que no Explicare, este Codigo ya no es valido lo pueden borrar sin problema alguno de haci quererlo'
        TextBox1.Hide()
        TextBox1.Enabled = False
        Label8.Enabled = False
        Label9.Enabled = False
        Label10.Enabled = False
        Label11.Enabled = False
        Label12.Enabled = False
        Button5.Enabled = False

        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button3.Enabled = True
        Label7.Hide()
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
    End Sub

    Private Sub Label8_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label8.TextChanged


    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        'Copiar texto Clickeado a ClipBoard'
        Clipboard.SetText("@hotmail.com")
        MsgBox("Texto Copiado al ClipBoard")
    End Sub

    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click

    End Sub

    Private Sub AyudaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AyudaToolStripMenuItem.Click

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Comandos Para eliminar todo el Contenido de las Cajas de Texto'
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub ReiniciarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReiniciarToolStripMenuItem.Click
        'Boton Reiniciar de el ToolStripMenuItem "Ayuda"'
        Label4.Hide()
        Label5.Hide()
        Label14.Hide()
        Label15.Hide()
        Label16.Hide()
        Timer1.Stop()
        Label7.Hide()
        Button4.Hide()
        Button1.Show()
        ProgressBar2.Show()
        ProgressBar1.Hide()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        Button2.Enabled = True
        Button6.Enabled = True
        Label8.Enabled = True
        Label9.Enabled = True
        Label10.Enabled = True
        Label11.Enabled = True
        Label12.Enabled = True
        Button5.Enabled = True
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
    End Sub

    Private Sub ComentariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComentariosToolStripMenuItem.Click
        'Muestra el Formulario3 para Comentarios Sobre el Programa'
        Form3.Show()
    End Sub

    Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar2.Click

    End Sub
End Class



FORM2
Código (vb) [Seleccionar]
Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label2.Show()
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        End
    End Sub
End Class



FORM3
Código (vb) [Seleccionar]
Imports System.Net.Mail
Public Class Form3

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Clear()
        TextBox2.Clear()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button3.Show()
        Timer1.Start()
        Form4.Show()
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Codigo de la "ProgressBar1" incluyendo el codigo SMTP para Hacer la conexión al Correo'
        ProgressBar1.Increment(1)

        If ProgressBar1.Value = ProgressBar1.Maximum Then

            Dim WC As New System.Net.WebClient

            Dim MyMailMessage As New MailMessage

            MyMailMessage.From = New MailAddress("correo.spammer@gmail.com")

            MyMailMessage.To.Add(TextBox1.Text)

            MyMailMessage.Subject = (TextBox2.Text)

            WC.Dispose()

            MyMailMessage.Body = (TextBox3.Text)

            Dim SMTPServer As New SmtpClient("smtp.gmail.com")

            SMTPServer.Port = 587

            SMTPServer.Credentials = New System.Net.NetworkCredential("correo.spammer@gmail.com", "your password")

            SMTPServer.EnableSsl = True

            Timer1.Stop()

            Button3.Enabled = True



            Try

                SMTPServer.Send(MyMailMessage)

            Catch ex As SmtpException

            End Try

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class


FORM4
Código (vb) [Seleccionar]
Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Enabled = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub
End Class

skapunky

Un apunte....estoy seguro (no lo he provado) segun tu al configurarse hay un sitio donde debes meter tu correo y contraseña, no lo he provado pero seguro que con el Olly por ejemplo se puede leer esa información ya que se guardaria como string y cualquier persona que lo mire puede entrar en tu correo.

Deberias de intentar poner una rutina que encrypte el correo y la contraseña.
Killtrojan Syslog v1.44: ENTRAR

Braayhaan

Si Bueno skapunky Lo que pasa es que tampoco soy un King en Programacion ps, entonces hay cosas que no se xDD.

De todas formas voy a ver que consigo, Gracias por el Apunte.!

seba123neo

Hola, esto no es .NET, te lo muevo ahi...tampoco tenias que pegar el codigo fuente, solo postear el proyecto.

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

Braayhaan

Bueh Gracias jejeje

alvarovich

Hola,

enhorabuena por el programa. Lo he probado y funciona correctamente.

Me gustaría preguntarte algo que quizá ya se viendo el código (se muy poco de VB). Utilizas el smtp de gmail para enviar los correos, no?, es decir, te autentificas con una cuenta para poder hacerlo?

Muchas gracias por tu respuesta :-)

Braayhaan

Si asi es Alvaro usa el SMTP De Gmail y para Autentificarte puse una Cuenta mia, porque mi idea principal era que la gente pusiera su cuenta para logearse, pero yo se que mas de uno no lo habria hecho porq pensarian que le ivan a agarrar su clave o cosas asi.

Por eso puse una mia que no uso.

Cualquier otra Duda la Respondere!  ;D

Skeletron

Gmail creo que envia hasta 500 e-mails por dia.. no es así???
Tu aplicación estaría limitada por ello...


Citar* En caso de acceder a Gmail mediante los protocolos POP o IMAP, es decir, con clientes de correo como Outlook, y enviamos un email a más de 100 personas, nuestra cuenta mostrará el siguiente error y será deshabilitada por unos días: "550 5.4.5 Daily sending quota exceeded.".
    * Si usamos el interface de Gmail en el navegador, el límite asciende a 500 personas, deshabilitando la cuenta entre 1 y 3 días y mostrando el error: "Gmail lockdown in section 4″.
    * Al parecer, si el número de contactos erróneos o con cuentas desactivadas es superior a 25, nuestra cuenta podrá ser también deshabilitada.

Braayhaan

Oye Skeletron Buena data pero.

Yo deje el mio prendido todo una noche con mi correo a ver cuanto llenaba y paso los 5000 ;D yo creo que no tiene ningun problema.

En que parte de Gmail aparece eso :huh: