SHARE
TWEET

Bing Dorker

ToKeiChun Mar 22nd, 2019 20 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3.  
  4. use HTTP::Request;
  5. use LWP::Simple;
  6. use LWP::UserAgent;
  7. use Win32::Console::ANSI;
  8. use IO::Socket::INET;
  9. use Term::ANSIColor;
  10. use IO::Select;
  11. use HTTP::Response;
  12. use HTTP::Request::Common qw(POST);
  13. use HTTP::Request::Common qw(GET);
  14. use URI::URL;
  15.  
  16.  
  17.  
  18. if ($^O =~ /MSWin32/) {system("cls"); system("color A");
  19. }else { system("clear"); }
  20. print color 'reset';
  21. print color("bold red"),"                      IIIIIIIIII      CCCCCCCCCCCCC       GGGGGGGGGGGGG    \n";
  22. print color("bold red"),"                      I::::::::I   CCC::::::::::::C    GGG::::::::::::G    \n";
  23. print color("bold red"),"                      I::::::::I CC:::::::::::::::C  GG:::::::::::::::G    \n";
  24. print color("bold red"),"                      II::::::IIC:::::CCCCCCCC::::C G:::::GGGGGGGG::::G    \n";
  25. print color("bold red"),"                        I::::I C:::::C       CCCCCCG:::::G       GGGGGG    \n";
  26. print color("bold red"),"                        I::::IC:::::C             G:::::G                  \n";
  27. print color("bold red"),"                        I::::IC:::::C             G:::::G                  \n";
  28. print color("bold red"),"                        I::::IC:::::C             G:::::G    GGGGGGGGGG    \n";
  29. print color("bold red"),"                        I::::IC:::::C             G:::::G    G::::::::G    \n";
  30. print color("bold red"),"                        I::::IC:::::C             G:::::G    GGGGG::::G    \n";
  31. print color("bold red"),"                        I::::IC:::::C             G:::::G        G::::G    \n";
  32. print color("bold red"),"                        I::::I C:::::C       CCCCCCG:::::G       G::::G    \n";
  33. print color("bold red"),"                      II::::::IIC:::::CCCCCCCC::::C G:::::GGGGGGGG::::G    \n";
  34. print color("bold red"),"                      I::::::::I CC:::::::::::::::C  GG:::::::::::::::G    \n";
  35. print color("bold red"),"                      I::::::::I   CCC::::::::::::C    GGG::::::GGG:::G    \n";
  36. print color("bold red"),"                      IIIIIIIIII      CCCCCCCCCCCCC       GGGGGG   GGGG    \n";
  37. print color 'reset';
  38. print color("bold Green"), "            Bing Dorker Version 1.0 Perl                                    \n";
  39. print color("bold Green"), "            Developers : Jok3r _ Golden Hacker                              \n";
  40. print color("bold Green"), "                                                                            \n";
  41. print color("bold Green"), "                Iran-cYbeR.Net                                              \n";
  42. print color("bold Green"), "                Telegram : publish                                          \n";
  43. print color 'reset';
  44. print color("bold yellow"),"   [1] Single Dork \n";
  45. print color("bold white"),"   [2] ip server  \n";
  46. print color("yellow"), "\n";
  47. print color 'reset';
  48. print color("bold Green"),"   Enter your Method: ";
  49. $name=<STDIN>;
  50. chomp $name;
  51.  
  52.  
  53. if ($name=~ "1")
  54. {
  55.  
  56. if ($^O =~ /MSWin32/) {system("cls"); system("color A");
  57. }else { system("clear"); }
  58.  
  59. print color 'reset';
  60. print color("bold white"),  "\n\n\n      #################################################################################  \n";
  61. print color("bold white"),  "        #             Bing Dorker Version 1.0 Perl                  #  \n";
  62. print color 'reset';
  63. print color("bold Green"),  "        #           Developers : Jok3r _ Golden Hacker                  #  \n";
  64. print color("bold Green"),  "        #                                           #  \n";
  65. print color 'reset';
  66. print color("bold red"),    "        #               Iran-cYbeR.Net                      #  \n";
  67. print color 'reset';
  68. print color("bold yellow"), "        #             Telegram : publish                        #  \n";
  69. print color("bold yellow"), "        #################################################################################  \n";
  70. print color 'reset';
  71. $ag = LWP::UserAgent->new();
  72. $ag->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801");
  73. $ag->timeout(10);
  74.  
  75. print color("bold Green"),"  \n\n        Enter your Dork : ";
  76. $dork=<STDIN>;
  77. chomp $dork;
  78. print color("yellow"), "\n";
  79.  
  80. for (my $i=1; $i<=2000; $i+=10) {
  81. $url = "http://www.bing.com/search?q=$dork&filt=all&first=$i&FORM=PERE";
  82. $resp = $ag->request(HTTP::Request->new(GET => $url));
  83. $rrs = $resp->content;
  84.  
  85. while($rrs =~ m/<a href=\"?http:\/\/(.*?)\//g){
  86.  
  87. $link = $1;
  88.     if ( $link !~ /overture|msn|live|bing|yahoo|duckduckgo|google|w3|microsof/)
  89.     {
  90.                 if ($link !~ /^http:/)
  91.              {
  92.                 $link = 'http://' . "$link" . '/';
  93.              }
  94.  
  95.  
  96.  
  97. if($link !~ /\"|\?|\=|index\.php/){
  98.                     if  (!  grep (/$link/,@result))
  99.                     {
  100. print "$link\n";
  101. open(save, '>>scanned_dork.txt');
  102.     print save "$link\n";
  103.     close(save);
  104.                         push(@result,$link);
  105.                     }
  106. }
  107. }
  108. }
  109. }
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116. }
  117.  
  118. if ($name=~ "2")
  119. {
  120.  
  121. if ($^O =~ /MSWin32/) {system("cls"); system("color A");
  122. }else { system("clear"); }
  123.  
  124. print color 'reset';
  125. print color("bold white"),  "\n\n\n      #################################################################################  \n";
  126. print color("bold white"),  "        #             Bing Dorker Version 1.0 Perl                  #  \n";
  127. print color 'reset';
  128. print color("bold Green"),  "        #           Developers : Jok3r _ Golden Hacker                  #  \n";
  129. print color("bold Green"),  "        #                                           #  \n";
  130. print color 'reset';
  131. print color("bold red"),    "        #               Iran-cYbeR.Net                      #  \n";
  132. print color 'reset';
  133. print color("bold yellow"), "        #             Telegram : publish                        #  \n";
  134. print color("bold yellow"), "        #################################################################################  \n";
  135. print color 'reset';
  136. $ag = LWP::UserAgent->new();
  137. $ag->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801");
  138. $ag->timeout(10);
  139.  
  140. print color("bold Green"),"  \n\n        Enter your ip : ";
  141. $ip=<STDIN>;
  142. chomp $ip;
  143. print color("yellow"), "\n";
  144.  
  145. for (my $i=1; $i<=2000; $i+=10) {
  146. $url = "http://www.bing.com/search?q=ip:$ip&filt=all&first=$i&FORM=PERE";
  147. $resp = $ag->request(HTTP::Request->new(GET => $url));
  148. $rrs = $resp->content;
  149.  
  150. while($rrs =~ m/<a href=\"?http:\/\/(.*?)\//g){
  151.  
  152. $link = $1;
  153.     if ( $link !~ /overture|msn|live|bing|yahoo|duckduckgo|google|w3|microsof/)
  154.     {
  155.                 if ($link !~ /^http:/)
  156.              {
  157.                 $link = 'http://' . "$link" . '/';
  158.              }
  159.  
  160. if($link !~ /\"|\?|\=|index\.php/){
  161.                     if  (!  grep (/$link/,@result))
  162.                     {
  163. print "$link\n";
  164. open(save, '>>scanned_ip.txt');
  165.     print save "$link\n";
  166.     close(save);
  167.                         push(@result,$link);
  168.                     }
  169. }
  170. }
  171. }
  172. }
  173.  
  174.  
  175. }
  176.  
  177. exit
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top