Perl Wordpress Grabber Bot

[sQuo]

[HIDE-THANKS][LENGUAJE=perl]#!/usr/bin/perluse strict;use threads;use threads::shared;use LWP::UserAgent;use HTTP::Request;my $threads = 5;my $ua = LWP::UserAgent->new;$ua->timeout(15);$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5');my @ips : shared;my @linkz : shared;system("cls");print "++++++++++++++++++++++++++++++++++++++++++++++++\n";print "+ M-A project +\n",print "+ +\n";print "+++++++++++++++++++++++++++++++++++++++++++++++\n";print "\n\n[+] Search engine: hackteach.org\n";print "\[.] Starting...\n";GetIps();print "[+] Quantity of ips: ".scalar(@ips)."\n";GetLinks();while (threads->list) {}print "[+] Links Found: ".scalar(@linkz)."\n";print "[.] Begin work...\n\n";CheckLinks();while (threads->list) {}sub CheckLinks { foreach my $link( @linkz ) { my $ctr = 0; foreach my $thr ( threads->list ) { $ctr++; } if ($ctr create( \&wordpress, $link ); } else { redo; } }}sub GetLinks { foreach my $ip( @ips ) { my $ctr = 0; foreach my $thr ( threads->list ) { $ctr++; } if ($ctr create( \&GetLinks_hackteach,$ip ); } else { redo; } }}sub GetIps { open( DOM, "ip.txt" ) or die "$!\n"; while( defined( my $line_ = ) ) { chomp( $line_ ); push( @ips, $line_ ); } close( DOM );}sub GetLinks_hackteach { my $ip = shift; chomp( $ip ); my $url = "http://www.hoststation.net/websitebuilder/http.php?htip=$ip"; my $content = $ua->get($url)->content; while( $content =~m{

(.*?)

}g) { my $link = $1; push( @linkz, $link ); open(TN,">>get-all.txt"); print TN "$link\n"; close(TN); } threads->detach();}sub wordpress { my $link = shift; chomp( $link ); my @files = ("/wp-login.php","/wp/wp-login.php","/wordpress/wp-login.php","/blog/wp-login.php","/wpp/wp-login.php","/site/wp-login.php",); foreach my $vul(@files){ my $wp = "http://".$link.$vul; my $reqwp=HTTP::Request->new(GET=>$wp); my $uawp=LWP::UserAgent->new(); $uawp->timeout(10); my $responsewp=$uawp->request($reqwp); if ($responsewp->content=~ /

/){ print "[+] $wp :[WordPress]\n"; open(TNN,">>get-wordpress.txt"); print TNN "$wp\n"; close(TNN); } else { print "[-] $link :[unknown] \n"; } } threads->detach();}[/LENGUAJE][/HIDE-THANKS]