./c0de/perl/ftpanonscan.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
#! /usr/bin/perl
#
# FTP Anon Scanner
#
# Coded by Perforin | DarK-CodeZ
#
# www.perforins-software.de.vu
#
use Net::FTP;
 
$version = "1.0";
($ipstart,$ipstop) = @ARGV;
 
if (@ARGV < 1) {
print<<README;
===========================
== FTP Anon Scanner v$version ==
===========================
 
.Simple Scan
perl Scanner.pl 127.0.0.1
 
.Range Scan
perl Scanner.pl 127.0.0.1 127.0.0.255
 
 
www.perforins-software.de.vu
README
exit;
}
 
$ipstart =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/; 
($s1,$s2,$s3,$s4) = ($1,$2,$3,$4); 
$ipstop =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/; 
($t1,$t2,$t3,$t4) = ($1,$2,$3,$4);
$i=$s4;
open(RES,">>","Results.txt");
print RES<<BANNER;
===========================
== FTP Anon Scanner v$version ==
===========================
BANNER
print <<HEADER;
===========================
== FTP Anon Scanner v$version ==
===========================
 
HEADER
&scan;
sub scan {
if ($i<$t4+1) {
$ipstart=$s1.".".$s2.".".$s3.".".$i;
print "Scanning... $ipstart\n";
$ftp = Net::FTP->new("$ipstart",Debug => 0,Timeout => 1) || $i++ & &scan;
$ftp->login("anonymous","[email protected]") || $i++ & &scan;
$ftp->quit;
print "FOUND!!!... $ipstart\n";
print RES "$ipstart\n";
$i++;
&scan;
}
if ($ipstart =~ $ipstop) { &bye }
}
 
sub bye {
print "\n====> Scan done <====\n";
exit;
}
close(RES);

Back