SHOW:
|
|
- or go back to the newest paste.
| 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 |
