Underc0de

Bueno este es un simple script para scannear paginas en busca de un servidor ftp con el usuario anonymous

El codigo es el siguiente


#!usr/bin/perl
#FTP Scan (C) Doddy Hackman 2011
#Check login anonymous

use Net::FTP;
use URI::Split qw(uri_split);

head();
if($ARGV[0]) {
start($ARGV[0]);
} else {
sintax();
}
copyright();

sub start {

unless (-f $_[0]) {
print "\n\n[-] File Not Found\n\n";
copyright();
}

print "\n[+] Opening file\n\n";

open(FILE,$_[0]);
my @webs = <FILE>;
close FILE;

print "[+] Webs found : ".int(@webs)."\n\n\n";

for my $web(@webs) {
my $host = comer($web);
if ($ftp = Net::FTP->new($host, Debug => 0)) {
if ($ftp->login("anonymous","[email protected]")) {
print "[+] Anonymous Found : ".$host."\n";
}}
}
print "\n\n[+] Scan Finished\n";
}

sub comer {
my ($scheme, $auth, $path, $query, $frag)  = uri_split($_[0]);
return $auth;
}

sub sintax {
print "\n[+] sintax : $0 <file>\n";
}

sub head {
print q(




@@@@@ @@@@@  @@@@@      @@@    @@@@    @    @    @
@       @    @    @    @   @  @    @   @    @@   @
@       @    @    @    @      @       @ @   @@   @
@       @    @    @    @      @       @ @   @ @  @
@@@@    @    @@@@@      @@@   @      @   @  @ @  @
@       @    @             @  @      @   @  @  @ @
@       @    @             @  @      @@@@@  @   @@
@       @    @         @   @  @    @@     @ @   @@
@       @    @          @@@    @@@@ @     @ @    @




);
}

sub copyright {
print "\n\n== --(C) Doddy Hackman 2011 -- ==\n\n";
exit(1);
}

sub repes {
foreach $test(@_) {
push @limpio,$test unless $repe{$test}++;
}
return @limpio;
}

# ¿ The End ?


Hola Doddy, ya ejecute el script pero no sé como correrlo... Donde se supone que ingreso el Dork o qué?

no es con google , es con un archivo que tenga los links de las paginas a scanear.