匿名FTP扫描perl代码

2009-10-1 11:06 828 0

摘要: #! /usr/bin/perl## FTP Anon Scanner## Coded by Perforin | DarK-CodeZ## www.perforins-software.de.vu#...

关键词： ipstart print scan FTP ipstop ARGV perforins RES anonymous bye

#! /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 Scanperl Scanner.pl 127.0.0.1.Range Scanperl Scanner.pl 127.0.0.1 127.0.0.255www.perforins-software.de.vuREADMEexit;}$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 =============================BANNERprint <<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);

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除