FTP scan anonymous user
Publicado por Perfil removido (última atualização em 09/10/2013)
[ Hits: 5.058 ]
Esse script procura por servidores FTPs que usuários anônimos podem logar, ele gera uma lista de IPs e vai procurando...
#!/usr/bin/env perl -w use strict; use Socket; use threads; use Net::FTP; use Getopt::Long; use threads::shared; our(@ip,$tmp_file,$out); my($ini,$fin,@threads,$tn,$i,$ips,$ipe,$output); my $stop :shared = 0; sub banner { print "\n\n(*) FTP-SCAN Anonymous User by MMxM\n"; print "(+) Options:\n\n"; print "\t-s|--start [the ip to start]\n"; print "\t-e|--end [the ip to end]\n"; print "\t-o|--output [the output file]\n"; print "\t-t|--threads [number of threads]\n\n"; exit(1); } sub ip2long { return unpack("l*", pack("l*", unpack("N*", inet_aton(shift)))); } sub long2ip { return inet_ntoa(pack("N*", shift)); } sub check { my $id = threads->tid(); $id--; if(!defined($ip[$id])){ $stop = 1; return; } my $ftp = Net::FTP->new($ip[$id],Timeout => 15); print "\r(+) Number of IP's checked => ".($id + 1); if(!$ftp){ return; } if($ftp->login("anonymous",'-anonymous@')){ print $out $ip[$id]."\n"; $ftp->quit(); return; } else { $ftp->quit(); return; } } GetOptions( 's|start=s' => \$ips, 'e|end=s' => \$ipe, 't|threads=i' => \$tn, 'o|output=s' => \$output ) or die(&banner); if(!defined($ips) || !defined($ipe) || !defined($tn) || !defined($output)){ &banner; } open($out,'>>'.$output) || die($!); my $ip1 = &ip2long($ips); my $ip2 = &ip2long($ipe); &banner if($ip1 > $ip2); while($ip1 <= $ip2){ push(@ip,&long2ip($ip1)); $ip1++; } @ip = grep { !/(255)|^\d+\.\d+\.\d+\.0$/ } @ip; print "\n\n(+) ".scalar(@ip)." IP's To Scan\n"; $ini = 0; $fin = $tn - 1; while(1){ @threads = (); for($i=$ini;$i<=$fin;$i++){ push(@threads,$i); } foreach(@threads){ $_ = threads->create(\&check); } foreach(@threads){ $_->join(); } close($out) if $stop; last if $stop; $ini = $fin + 1; $fin = $fin + $tn; } print "\n(+) 100% complete\n\n";
Gerador de Senhas Aleatórias VERSÃO 2.0
Testando multiplos servers a ataque DoS
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)