..Scaperl..

Hello all,

I am having some problems coding using Scaperl to get the last usernames and passwords associated to a particular ftp server, now, i want to connect using the username and password of the last user of the ftp.. i decided to try a small code, but i need a hand if am wrong, Please Correct and send in the correct code.


===========================================
PHP Code:

#!/usr/local/bin/perl

#Stealthuploader.pl

use Net::FTP;
use Scaperl::Sniff;

use warnings;
use strict;

my $username = last_login_ftpuser;
my $password = last_login_ftppassword;

print "Please Enter Target Host:";
chomp($host =<STDIN>)

#get last username and password of ftp Server.

$sniff = new->Scaperl::Sniff($username,$password);

#Now Upon sniffing,it should connect using the username and password , and connect to the ftp server

$connect = Net::FTP->new($host,user=>"$username",password=>"$password",PeerAddr=>"$host" PeerPort =>"21") or die "Error connecting to $host: $!";
print " Connection Successful, with user $username and password $password

==============================================

cara mengeksekusinya gimna bro? apakah ntar ada perintah disitu?

Feedhell wrote:

Hello all,

I am having some problems coding using Scaperl to get the last usernames and passwords associated to a particular ftp server, now, i want to connect using the username and password of the last user of the ftp.. i decided to try a small code, but i need a hand if am wrong, Please Correct and send in the correct code.


===========================================
PHP Code:

#!/usr/local/bin/perl

#Stealthuploader.pl

use Net::FTP;
use Scaperl::Sniff;

use warnings;
use strict;

my $username = last_login_ftpuser;
my $password = last_login_ftppassword;

print "Please Enter Target Host:";
chomp($host =<STDIN>)

#get last username and password of ftp Server.

$sniff = new->Scaperl::Sniff($username,$password);

#Now Upon sniffing,it should connect using the username and password , and connect to the ftp server

$connect = Net::FTP->new($host,user=>"$username",password=>"$password",PeerAddr=>"$host" PeerPort =>"21") or die "Error connecting to $host: $!";
print " Connection Successful, with user $username and password $password

==============================================

org luar negeri kyk nya ini bro



____________________________________________________________________