FTP scan anonymous user
Publicado por Perfil removido (última atualização em 09/10/2013)
[ Hits: 4.977 ]
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";
Script de Analise do Syslog SNORT
Criando sua própria criptografia em hash
Nenhum comentário foi encontrado.
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Criar perfil temporário no Active Directory samba4-21 (2)
Meu Kubuntu não inicia, além do modo de recuperação (no meu dualboot (1)
Site da gontijo simplesmente não abre, ERR_HTTP2_PRO... (3)