Dork Scan Bing search

Htich · January 15, 2014

#!/usr/bin/perl -w #Dork Scann #By #cPanel use LWP::UserAgent; print - Pastebin.com

Sper sa va fie de folos.

------------------------------

                   

#!/usr/bin/perl -w
#Dork Scann
#By
#cPanel

 use LWP::UserAgent; 

print q{
+----------------------[Dork Scan]----------------------+
|                                                       |
|                      By cPanel                        |
|                         v2                            |
+-------------------------------------------------------+

};
print "\nColoque Sua Dork:";
print "\n(Ex: inurl:home.php?id= )\n";
print "=>";
 $dork = <STDIN>; 
 chomp($dork); 

 print "Scan Start!";

 for ($i = 0; $i < 1000; $i += 10) { 

 $b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)'); 
 $b->timeout(30); 
 $b->env_proxy; 
 $c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content; 
 $check = index($c, 'sb_pagN'); 

 while (1) { 
 $n = index($c, '<h3><a href="'); 

 if ($n == -1) { 
 last; 
 } 

 print "$s\n";
 $c = substr($c, $n + 13); 
 $s = substr($c, 0, index($c, '"'));
 open (txt,">>done.txt"); 
 print txt  $s,"\n"; 
 close(txt);

 } 
 if ($check == -1) { 
 last; 
 } 
 }
 print "Scan Finalizado!";
 system("done.txt");
 exit;

Edited January 15, 2014 by hate.me

tudor13mn13 · January 15, 2014

Bravo .

Dar poftim un pont : Pune cu CODE

florinul · January 23, 2014

o sa il incerc

pinkpanter · January 23, 2014

pe google nu merge sa scaneze ?

pinkpanter · January 23, 2014

Modifica sursa fisierului, adauga modulul de la google si path-ul pentru scanare.

nu te supara...... crezi ca daca stiam mai intrebam ?

Htich · January 23, 2014

paikpanter @ Din cate stiu eu Google baneaza foarte repede "motoarele pentru cautare" , bing-ul nu !

OFF : Comanda manuala ->

https://www.google.com/search?q=%22php?id%22&num=100&filter=0&start=%22.$i%29;

}

sub google() {
    my @list;
    my $key = $_[0];
    for (my $i=0; $i<=1000; $i+=100){
        my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
            my $link = $1;
            if ($link !~ /google/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

Edited January 23, 2014 by Htich

dancezar · January 23, 2014

https://rstforums.com/forum/79777-bing-dork-extractor.rst

Am facut modificari la el si poate scoate si dorkuri de pe google numai ca te blocheaza dupa 50 de pagini,partea buna e ca daca mai stai 30 de minute calm sau te bagi printr-un vpn poti continua sa scanezi

Htich · January 23, 2014

danyweb09 : Cum am zis .. pe google se baneaza foarte repede motorul de cautare..

pinkpanter : Sper sa te ajute sursa aia !

florinul · February 3, 2014

new:/usr/src/.src/nt/src# perl p.pl

Unquoted string "txt" may clash with future reserved word at p.pl line 42.

Unquoted string "txt" may clash with future reserved word at p.pl line 43.

Unquoted string "txt" may clash with future reserved word at p.pl line 44.

Scan Finalizado!Can't exec "done.txt": No such file or directory at p.pl line 52, <STDIN> line 1.

Htich · February 3, 2014

perl sex.pl
Unquoted string "txt" may clash with future reserved word at sex.pl line 42.
Unquoted string "txt" may clash with future reserved word at sex.pl line 43.
Unquoted string "txt" may clash with future reserved word at sex.pl line 44.
+----------------------[Dork Scan]----------------------+
| |
| By cPanel |
| v2 |
+-------------------------------------------------------+
Coloque Sua Dork:
(Ex: inurl:home.php?id= )
=>inurl:home.php?id=1
Use of uninitialized value in concatenation (.) or string at sex.pl line 39, <STDIN> line 1.
Scan Start!
???? ????? Google ????????

http://www.xujc.cn/index.php

PHP: Hypertext Preprocessor

Ventrilo - Download Product

?? - ???????? - Powered by Discuz!

Amazing

http://www.cbrx.com/forum.php

Amazing

http://www.cbrx.com/forum.php

Compuhowto.com – Computer help, how tos, Computer tips, Computer tutorials, and Computer guides

phpMyAdmin

????? 5944.net ?????õ?????????

Discuz! ???-PHP ???? - Powered by Discuz!