ToKeiChun

Bing Dorker

Mar 22nd, 2019
191
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.11 KB | None | 0 0
  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
Add Comment
Please, Sign In to add comment