elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Bombardero Email - ¡Día de los inocentes! VB.NET
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Bombardero Email - ¡Día de los inocentes! VB.NET  (Leído 2,667 veces)
Crazy.sx


Desconectado Desconectado

Mensajes: 447



Ver Perfil
Bombardero Email - ¡Día de los inocentes! VB.NET
« en: 29 Diciembre 2012, 02:00 am »

Ya he visto en este foro muchos códigos de "Email bomber", pero aquí les traigo uno, que a decir verdad, no es muy diferente a los demás. Pero para hacer bromas en el día de hoy creo que viene al pelo.  ;-)

Aclaro que no son emails anónimos, sino que se debe usar una cuenta de correo que exista y que sea válida completando la dirección de correo y la contraseña.
Se puede enviar tantos emails como se quiera (hasta que se presione el botón "Detener") a varios destinatarios al mismo tiempo simplemente separando los correos con "punto y coma" y sin espacios  ;)


Código
  1. 'Una vieja idea para hacer bromas por email
  2. '
  3. 'Por Crazy.sx
  4.  
  5. Imports System.Net.Mail
  6. Imports System.IO
  7. Public Class EnvEMAIL
  8.    Private TipoCuenta As String
  9.    'Private aAdjuntos As Attachment
  10.    'Private dato As FileStream
  11.    'Private CORREO As New MailMessage
  12.    Dim numCantidadEnviados As Integer = 0
  13.  
  14.    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
  15.        lblConteoEmail.Text = "Cantidad email enviados: 0"
  16.        If checkbxActivarBomber.CheckState = CheckState.Checked Then
  17.            Timer1.Interval = txtSegundos.Text * 1000
  18.            Timer1.Enabled = True
  19.        End If
  20.  
  21.        If checkbxActivarBomber.CheckState = CheckState.Unchecked Then
  22.            Timer1.Enabled = False
  23.            Call emailNormal()
  24.        End If
  25.    End Sub
  26.  
  27.    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  28.        Call emailBomber()
  29.    End Sub
  30.  
  31.    Private Sub emailBomber()
  32.        Call emailNormal()
  33.    End Sub
  34.  
  35.    Private Sub emailNormal()
  36.        Dim Mail As New MailMessage
  37.        Dim puertoSMTP As String = Nothing
  38.        Mail.Subject = txtAsunto.Text
  39.  
  40.        If chekbxCCO.CheckState = CheckState.Checked Then
  41.            For Each email As String In txtDestino.Text.Split(";")
  42.                Mail.Bcc.Add(New System.Net.Mail.MailAddress(email)) 'CCO
  43.            Next
  44.        Else
  45.            For Each email As String In txtDestino.Text.Split(";")
  46.                Mail.To.Add(New System.Net.Mail.MailAddress(email)) 'Sin CCO
  47.            Next
  48.        End If
  49.  
  50.        Mail.From = New MailAddress(txtRemitente.Text)
  51.        Mail.Body = txtCuerpoMensaje.Text
  52.  
  53.        If ComboBox1.Text = "Windows Live" Then
  54.            TipoCuenta = "smtp.live.com"
  55.        End If
  56.  
  57.        If ComboBox1.Text = "Gmail" Then
  58.            TipoCuenta = "smtp.gmail.com"
  59.        End If
  60.  
  61.        If ComboBox1.Text = "Outlook" Then
  62.            TipoCuenta = "smtp.live.com"
  63.        End If
  64.  
  65.        Dim TRUE_FALSE As Boolean = vbNull
  66.        If ComboBox2.Text = "TRUE" Then
  67.            TRUE_FALSE = True
  68.        End If
  69.  
  70.        If ComboBox2.Text = "FALSE" Then
  71.            TRUE_FALSE = False
  72.        End If
  73.  
  74.        Dim SMTP As New SmtpClient(TipoCuenta)
  75.        SMTP.EnableSsl = TRUE_FALSE
  76.        SMTP.Credentials = New System.Net.NetworkCredential(txtRemitente.Text, txtPass.Text)
  77.        SMTP.Port = txtPuertoSMTP.Text
  78.        SMTP.Send(Mail)
  79.  
  80.        If checkbxActivarBomber.CheckState = CheckState.Checked Then
  81.            numCantidadEnviados = numCantidadEnviados + 1
  82.            lblConteoEmail.Text = "Cantidad email enviados: " & numCantidadEnviados
  83.        Else
  84.            MsgBox("Mensaje enviado a destinario/s")
  85.        End If
  86.    End Sub
  87.  
  88.    Private Sub EnvEMAIL_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  89.        End
  90.    End Sub
  91.  
  92.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  93.        txtPuertoSMTP.Text = "587" 'Puerto predeterminado
  94.        ComboBox1.Text = "Seleccione SMTP"
  95.        Call ElegirSMTP()
  96.        Call seguridadSSL()
  97.    End Sub
  98.  
  99.    Sub seguridadSSL()
  100.        With Me.ComboBox2.Items
  101.            .Add("TRUE")
  102.            .Add("FALSE")
  103.  
  104.        End With
  105.    End Sub
  106.  
  107.    Sub ElegirSMTP()
  108.        With Me.ComboBox1.Items
  109.            .Add("Outlook")
  110.            .Add("Windows Live")
  111.            .Add("Gmail")
  112.        End With
  113.    End Sub
  114.  
  115.    Private Sub btnDetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetener.Click
  116.        Timer1.Enabled = False
  117.        numCantidadEnviados = 0
  118.    End Sub
  119. End Class

Descargar proyecto: https://skydrive.live.com/redir?resid=8E230698F73CED18!986&authkey=!AEeGCOYK3QRk3iA

Ya que estamos, pasenme el SMTP y el puerto de Yahoo y/o de algunos otros que conozcan. Gracias.

Saludos, yo.
 ;-)


« Última modificación: 26 Diciembre 2014, 08:32 am por Crazy.sx » En línea

Destruir K. LOL
.::IT::.

Desconectado Desconectado

Mensajes: 167



Ver Perfil
Re: Bombardero Email - ¡Día de los inocentes! VB.NET
« Respuesta #1 en: 29 Diciembre 2012, 03:49 am »

Pues con servidores de correo gratuitos no funcionara. Ya que te cancelaran las cuentas por envió de spam


En línea

Simplemente .::IT::.
Crazy.sx


Desconectado Desconectado

Mensajes: 447



Ver Perfil
Re: Bombardero Email - ¡Día de los inocentes! VB.NET
« Respuesta #2 en: 29 Diciembre 2012, 05:18 am »

Pues con servidores de correo gratuitos no funcionara. Ya que te cancelaran las cuentas por envió de spam

Sí, la verdad. Aunque también es cierto que si desde la misma cuenta de Gmail, Outlook o Windows Live, si envías correos muy seguidos, te bloquean la cuenta por un tiempo para evitar esto que vos mencionas. Hice la prueba con mi cuenta personal y me pasó  :P.
La única solución fue enviar los emails cada 10 segundos aproximadamente.

Saludos.
En línea

Destruir K. LOL
spiritdead

Desconectado Desconectado

Mensajes: 296


Ver Perfil
Re: Bombardero Email - ¡Día de los inocentes! VB.NET
« Respuesta #3 en: 29 Diciembre 2012, 06:48 am »

para eso buscas hostings free q tengan smtp y lo haces ;) :3
En línea

Facilitador De Tareas - Task Simplifier (FDT)
Crazy.sx


Desconectado Desconectado

Mensajes: 447



Ver Perfil
Re: Bombardero Email - ¡Día de los inocentes! VB.NET
« Respuesta #4 en: 30 Diciembre 2012, 06:13 am »

para eso buscas hostings free q tengan smtp y lo haces ;) :3
Sí, bueno. Solo que actualmente es más común que los correos de esos hosting que decís es muy probable que lleguen como "Correos no deseados" y no los lean así no mas...  :rolleyes:
En línea

Destruir K. LOL
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Miembros de Anonymous se declaran inocentes en el caso Paypal
Noticias
wolfbcn 1 2,232 Último mensaje 19 Septiembre 2011, 14:30 pm
por Saberuneko
Protestas tras el baneo de jugadores inocentes en Black Ops 2
Noticias
wolfbcn 0 1,300 Último mensaje 13 Diciembre 2012, 01:58 am
por wolfbcn
Bylock: el código siniestro que manda a inocentes a la cárcel
Noticias
wolfbcn 0 1,174 Último mensaje 30 Enero 2018, 21:08 pm
por wolfbcn
El Pentágono revela su nuevo bombardero nuclear invisible
Foro Libre
El_Andaluz 0 2,163 Último mensaje 4 Diciembre 2022, 03:31 am
por El_Andaluz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines