Web Fuzzer em Perl
Publicado por Perfil removido (última atualização em 19/02/2014)
[ Hits: 4.395 ]
Código simples, primeiro ele faz busca pelo robots.txt, depois usa um arquivo lista para fazer rquest e "descobrir" os diretórios e arquivos.
#!/usr/bin/perl # BIBLIOTECAS # use strict; use LWP::UserAgent; use threads; use Socket; use Config; # LIMPAR TERMINAL # my $os=$Config{osname}; if($os=="linux"){ system('clear'); }else{ system('cls'); } # BANNER print q{ ====================================================== Coded by KoubackTr // http://koubacktr.wordpress.com/ Version 2.0 ====================================================== ,------.,--. ,------. | .---'`--',--.--. ,---. | .---',--.,--.,-----.,-----. ,---. ,--.--. | `--, ,--.| .--'| .-. : | `--, | || |`-. / `-. / | .-. :| .--' | |` | || | ' --..--.| |` ' '' ' / `-. / `-.' --.| | `--' `--'`--' `----''--'`--' `----' `-----'`-----' `----'`--' }; my $target=$ARGV[0] or die "\t\t\t USE: FireFuzzer.pl <target> ( don't use http::// )\n\n"; # HOSTNAME TO IP (verificando se o target existe) my $addr = gethostbyname("$target") or die "\t\t [!]CRITICAL: not resolve $target\n"; my $ip = inet_ntoa($addr); my $filedata = "./fuzz-list.txt"; # ARQUIVO DE DADOS (nome das pastas e arquivos) print "\t\t\t [!]FUZZER TARGET> http://$target/ \n"; # TARGET print "\t\t\t [!]TARGET IP> $ip \n"; # IP print "\t\t\t [!]DATABASE> $filedata \n\n"; # ARQUIVO print " Use Ctrl+C to break software!\n\n"; # VERIFICANDO ROBOTS ! { my $robotsagent = LWP::UserAgent->new; my $robots = HTTP::Request->new(GET => "http://$target/robots.txt"); my $Disallow = $robotsagent->request($robots); print "\t\t[+] EXPLORE robots.txt\n\n"; if($Disallow->is_success){ print $Disallow->content; # Imprime dados do robots.txt }else{ print "\t\t robots.txt NOT FOUND"; } } # VERIFICANDO POR ARQUIVO DE DADOS # print "\n\n\t\t[+]EXPLORE fuzzer list!\n\n"; open(DIRorFILE,"< $filedata") or die "FILE fuzz-list.txt NOT FOUND!\n"; # ARQUIVO NÃO EXISTE chomp(my @DorF = <DIRorFILE>); foreach ( @DorF){ threads->new(\& threads, $_)->join; sub threads { my $DIRorFILE = shift; my $agent = LWP::UserAgent->new; my $urlcompleta = "http://$target/$DIRorFILE"; # URL TARGET + FILE OR DIR my $req = HTTP::Request->new(GET => $urlcompleta); my $resposta = $agent->request($req); if($resposta->is_success){ print "\t\t\t\t\t\t\t[!]OK: \t\t\t\t /$DIRorFILE\n"; } else{ #NULL }}} #FIM (end)
Script de conectividade wireless
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)