├── LICENSE ├── README.md ├── dns-grind-user-docs.pdf ├── dns-grind.pl └── tlds.txt /LICENSE: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 2, June 1991 3 | 4 | Copyright (C) 1989, 1991 Free Software Foundation, Inc., 5 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | Preamble 10 | 11 | The licenses for most software are designed to take away your 12 | freedom to share and change it. By contrast, the GNU General Public 13 | License is intended to guarantee your freedom to share and change free 14 | software--to make sure the software is free for all its users. This 15 | General Public License applies to most of the Free Software 16 | Foundation's software and to any other program whose authors commit to 17 | using it. (Some other Free Software Foundation software is covered by 18 | the GNU Lesser General Public License instead.) You can apply it to 19 | your programs, too. 20 | 21 | When we speak of free software, we are referring to freedom, not 22 | price. Our General Public Licenses are designed to make sure that you 23 | have the freedom to distribute copies of free software (and charge for 24 | this service if you wish), that you receive source code or can get it 25 | if you want it, that you can change the software or use pieces of it 26 | in new free programs; and that you know you can do these things. 27 | 28 | To protect your rights, we need to make restrictions that forbid 29 | anyone to deny you these rights or to ask you to surrender the rights. 30 | These restrictions translate to certain responsibilities for you if you 31 | distribute copies of the software, or if you modify it. 32 | 33 | For example, if you distribute copies of such a program, whether 34 | gratis or for a fee, you must give the recipients all the rights that 35 | you have. You must make sure that they, too, receive or can get the 36 | source code. And you must show them these terms so they know their 37 | rights. 38 | 39 | We protect your rights with two steps: (1) copyright the software, and 40 | (2) offer you this license which gives you legal permission to copy, 41 | distribute and/or modify the software. 42 | 43 | Also, for each author's protection and ours, we want to make certain 44 | that everyone understands that there is no warranty for this free 45 | software. If the software is modified by someone else and passed on, we 46 | want its recipients to know that what they have is not the original, so 47 | that any problems introduced by others will not reflect on the original 48 | authors' reputations. 49 | 50 | Finally, any free program is threatened constantly by software 51 | patents. We wish to avoid the danger that redistributors of a free 52 | program will individually obtain patent licenses, in effect making the 53 | program proprietary. To prevent this, we have made it clear that any 54 | patent must be licensed for everyone's free use or not licensed at all. 55 | 56 | The precise terms and conditions for copying, distribution and 57 | modification follow. 58 | 59 | GNU GENERAL PUBLIC LICENSE 60 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 61 | 62 | 0. This License applies to any program or other work which contains 63 | a notice placed by the copyright holder saying it may be distributed 64 | under the terms of this General Public License. The "Program", below, 65 | refers to any such program or work, and a "work based on the Program" 66 | means either the Program or any derivative work under copyright law: 67 | that is to say, a work containing the Program or a portion of it, 68 | either verbatim or with modifications and/or translated into another 69 | language. (Hereinafter, translation is included without limitation in 70 | the term "modification".) Each licensee is addressed as "you". 71 | 72 | Activities other than copying, distribution and modification are not 73 | covered by this License; they are outside its scope. The act of 74 | running the Program is not restricted, and the output from the Program 75 | is covered only if its contents constitute a work based on the 76 | Program (independent of having been made by running the Program). 77 | Whether that is true depends on what the Program does. 78 | 79 | 1. You may copy and distribute verbatim copies of the Program's 80 | source code as you receive it, in any medium, provided that you 81 | conspicuously and appropriately publish on each copy an appropriate 82 | copyright notice and disclaimer of warranty; keep intact all the 83 | notices that refer to this License and to the absence of any warranty; 84 | and give any other recipients of the Program a copy of this License 85 | along with the Program. 86 | 87 | You may charge a fee for the physical act of transferring a copy, and 88 | you may at your option offer warranty protection in exchange for a fee. 89 | 90 | 2. You may modify your copy or copies of the Program or any portion 91 | of it, thus forming a work based on the Program, and copy and 92 | distribute such modifications or work under the terms of Section 1 93 | above, provided that you also meet all of these conditions: 94 | 95 | a) You must cause the modified files to carry prominent notices 96 | stating that you changed the files and the date of any change. 97 | 98 | b) You must cause any work that you distribute or publish, that in 99 | whole or in part contains or is derived from the Program or any 100 | part thereof, to be licensed as a whole at no charge to all third 101 | parties under the terms of this License. 102 | 103 | c) If the modified program normally reads commands interactively 104 | when run, you must cause it, when started running for such 105 | interactive use in the most ordinary way, to print or display an 106 | announcement including an appropriate copyright notice and a 107 | notice that there is no warranty (or else, saying that you provide 108 | a warranty) and that users may redistribute the program under 109 | these conditions, and telling the user how to view a copy of this 110 | License. (Exception: if the Program itself is interactive but 111 | does not normally print such an announcement, your work based on 112 | the Program is not required to print an announcement.) 113 | 114 | These requirements apply to the modified work as a whole. If 115 | identifiable sections of that work are not derived from the Program, 116 | and can be reasonably considered independent and separate works in 117 | themselves, then this License, and its terms, do not apply to those 118 | sections when you distribute them as separate works. But when you 119 | distribute the same sections as part of a whole which is a work based 120 | on the Program, the distribution of the whole must be on the terms of 121 | this License, whose permissions for other licensees extend to the 122 | entire whole, and thus to each and every part regardless of who wrote it. 123 | 124 | Thus, it is not the intent of this section to claim rights or contest 125 | your rights to work written entirely by you; rather, the intent is to 126 | exercise the right to control the distribution of derivative or 127 | collective works based on the Program. 128 | 129 | In addition, mere aggregation of another work not based on the Program 130 | with the Program (or with a work based on the Program) on a volume of 131 | a storage or distribution medium does not bring the other work under 132 | the scope of this License. 133 | 134 | 3. You may copy and distribute the Program (or a work based on it, 135 | under Section 2) in object code or executable form under the terms of 136 | Sections 1 and 2 above provided that you also do one of the following: 137 | 138 | a) Accompany it with the complete corresponding machine-readable 139 | source code, which must be distributed under the terms of Sections 140 | 1 and 2 above on a medium customarily used for software interchange; or, 141 | 142 | b) Accompany it with a written offer, valid for at least three 143 | years, to give any third party, for a charge no more than your 144 | cost of physically performing source distribution, a complete 145 | machine-readable copy of the corresponding source code, to be 146 | distributed under the terms of Sections 1 and 2 above on a medium 147 | customarily used for software interchange; or, 148 | 149 | c) Accompany it with the information you received as to the offer 150 | to distribute corresponding source code. (This alternative is 151 | allowed only for noncommercial distribution and only if you 152 | received the program in object code or executable form with such 153 | an offer, in accord with Subsection b above.) 154 | 155 | The source code for a work means the preferred form of the work for 156 | making modifications to it. For an executable work, complete source 157 | code means all the source code for all modules it contains, plus any 158 | associated interface definition files, plus the scripts used to 159 | control compilation and installation of the executable. However, as a 160 | special exception, the source code distributed need not include 161 | anything that is normally distributed (in either source or binary 162 | form) with the major components (compiler, kernel, and so on) of the 163 | operating system on which the executable runs, unless that component 164 | itself accompanies the executable. 165 | 166 | If distribution of executable or object code is made by offering 167 | access to copy from a designated place, then offering equivalent 168 | access to copy the source code from the same place counts as 169 | distribution of the source code, even though third parties are not 170 | compelled to copy the source along with the object code. 171 | 172 | 4. You may not copy, modify, sublicense, or distribute the Program 173 | except as expressly provided under this License. Any attempt 174 | otherwise to copy, modify, sublicense or distribute the Program is 175 | void, and will automatically terminate your rights under this License. 176 | However, parties who have received copies, or rights, from you under 177 | this License will not have their licenses terminated so long as such 178 | parties remain in full compliance. 179 | 180 | 5. You are not required to accept this License, since you have not 181 | signed it. However, nothing else grants you permission to modify or 182 | distribute the Program or its derivative works. These actions are 183 | prohibited by law if you do not accept this License. Therefore, by 184 | modifying or distributing the Program (or any work based on the 185 | Program), you indicate your acceptance of this License to do so, and 186 | all its terms and conditions for copying, distributing or modifying 187 | the Program or works based on it. 188 | 189 | 6. Each time you redistribute the Program (or any work based on the 190 | Program), the recipient automatically receives a license from the 191 | original licensor to copy, distribute or modify the Program subject to 192 | these terms and conditions. You may not impose any further 193 | restrictions on the recipients' exercise of the rights granted herein. 194 | You are not responsible for enforcing compliance by third parties to 195 | this License. 196 | 197 | 7. If, as a consequence of a court judgment or allegation of patent 198 | infringement or for any other reason (not limited to patent issues), 199 | conditions are imposed on you (whether by court order, agreement or 200 | otherwise) that contradict the conditions of this License, they do not 201 | excuse you from the conditions of this License. If you cannot 202 | distribute so as to satisfy simultaneously your obligations under this 203 | License and any other pertinent obligations, then as a consequence you 204 | may not distribute the Program at all. For example, if a patent 205 | license would not permit royalty-free redistribution of the Program by 206 | all those who receive copies directly or indirectly through you, then 207 | the only way you could satisfy both it and this License would be to 208 | refrain entirely from distribution of the Program. 209 | 210 | If any portion of this section is held invalid or unenforceable under 211 | any particular circumstance, the balance of the section is intended to 212 | apply and the section as a whole is intended to apply in other 213 | circumstances. 214 | 215 | It is not the purpose of this section to induce you to infringe any 216 | patents or other property right claims or to contest validity of any 217 | such claims; this section has the sole purpose of protecting the 218 | integrity of the free software distribution system, which is 219 | implemented by public license practices. Many people have made 220 | generous contributions to the wide range of software distributed 221 | through that system in reliance on consistent application of that 222 | system; it is up to the author/donor to decide if he or she is willing 223 | to distribute software through any other system and a licensee cannot 224 | impose that choice. 225 | 226 | This section is intended to make thoroughly clear what is believed to 227 | be a consequence of the rest of this License. 228 | 229 | 8. If the distribution and/or use of the Program is restricted in 230 | certain countries either by patents or by copyrighted interfaces, the 231 | original copyright holder who places the Program under this License 232 | may add an explicit geographical distribution limitation excluding 233 | those countries, so that distribution is permitted only in or among 234 | countries not thus excluded. In such case, this License incorporates 235 | the limitation as if written in the body of this License. 236 | 237 | 9. The Free Software Foundation may publish revised and/or new versions 238 | of the General Public License from time to time. Such new versions will 239 | be similar in spirit to the present version, but may differ in detail to 240 | address new problems or concerns. 241 | 242 | Each version is given a distinguishing version number. If the Program 243 | specifies a version number of this License which applies to it and "any 244 | later version", you have the option of following the terms and conditions 245 | either of that version or of any later version published by the Free 246 | Software Foundation. If the Program does not specify a version number of 247 | this License, you may choose any version ever published by the Free Software 248 | Foundation. 249 | 250 | 10. If you wish to incorporate parts of the Program into other free 251 | programs whose distribution conditions are different, write to the author 252 | to ask for permission. For software which is copyrighted by the Free 253 | Software Foundation, write to the Free Software Foundation; we sometimes 254 | make exceptions for this. Our decision will be guided by the two goals 255 | of preserving the free status of all derivatives of our free software and 256 | of promoting the sharing and reuse of software generally. 257 | 258 | NO WARRANTY 259 | 260 | 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY 261 | FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN 262 | OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES 263 | PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED 264 | OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 265 | MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS 266 | TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE 267 | PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, 268 | REPAIR OR CORRECTION. 269 | 270 | 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 271 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR 272 | REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, 273 | INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING 274 | OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED 275 | TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY 276 | YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER 277 | PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE 278 | POSSIBILITY OF SUCH DAMAGES. 279 | 280 | END OF TERMS AND CONDITIONS 281 | 282 | How to Apply These Terms to Your New Programs 283 | 284 | If you develop a new program, and you want it to be of the greatest 285 | possible use to the public, the best way to achieve this is to make it 286 | free software which everyone can redistribute and change under these terms. 287 | 288 | To do so, attach the following notices to the program. It is safest 289 | to attach them to the start of each source file to most effectively 290 | convey the exclusion of warranty; and each file should have at least 291 | the "copyright" line and a pointer to where the full notice is found. 292 | 293 | {description} 294 | Copyright (C) {year} {fullname} 295 | 296 | This program is free software; you can redistribute it and/or modify 297 | it under the terms of the GNU General Public License as published by 298 | the Free Software Foundation; either version 2 of the License, or 299 | (at your option) any later version. 300 | 301 | This program is distributed in the hope that it will be useful, 302 | but WITHOUT ANY WARRANTY; without even the implied warranty of 303 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 304 | GNU General Public License for more details. 305 | 306 | You should have received a copy of the GNU General Public License along 307 | with this program; if not, write to the Free Software Foundation, Inc., 308 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 309 | 310 | Also add information on how to contact you by electronic and paper mail. 311 | 312 | If the program is interactive, make it output a short notice like this 313 | when it starts in an interactive mode: 314 | 315 | Gnomovision version 69, Copyright (C) year name of author 316 | Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 317 | This is free software, and you are welcome to redistribute it 318 | under certain conditions; type `show c' for details. 319 | 320 | The hypothetical commands `show w' and `show c' should show the appropriate 321 | parts of the General Public License. Of course, the commands you use may 322 | be called something other than `show w' and `show c'; they could even be 323 | mouse-clicks or menu items--whatever suits your program. 324 | 325 | You should also get your employer (if you work as a programmer) or your 326 | school, if any, to sign a "copyright disclaimer" for the program, if 327 | necessary. Here is a sample; alter the names: 328 | 329 | Yoyodyne, Inc., hereby disclaims all copyright interest in the program 330 | `Gnomovision' (which makes passes at compilers) written by James Hacker. 331 | 332 | {signature of Ty Coon}, 1 April 1989 333 | Ty Coon, President of Vice 334 | 335 | This General Public License does not permit incorporating your program into 336 | proprietary programs. If your program is a subroutine library, you may 337 | consider it more useful to permit linking proprietary applications with the 338 | library. If this is what you want to do, use the GNU Lesser General 339 | Public License instead of this License. 340 | 341 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # dns-grind 2 | Tool for performing lots of DNS queries quickly 3 | -------------------------------------------------------------------------------- /dns-grind-user-docs.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pentestmonkey/dns-grind/1141f1de7e4b522a126e77a21d3434437a73d0eb/dns-grind-user-docs.pdf -------------------------------------------------------------------------------- /dns-grind.pl: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl -w 2 | # dns-grind - Performs lots of DNS queries quickly 3 | # Copyright (C) 2006 pentestmonkey@pentestmonkey.net 4 | # 5 | # This program is free software; you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License version 2 as 7 | # published by the Free Software Foundation. 8 | # 9 | # This program is distributed in the hope that it will be useful, 10 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 | # GNU General Public License for more details. 13 | # 14 | # You should have received a copy of the GNU General Public License along 15 | # with this program; if not, write to the Free Software Foundation, Inc., 16 | # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 17 | # 18 | # This tool may be used for legal purposes only. Users take full responsibility 19 | # for any actions performed using this tool. If these terms are not acceptable to 20 | # you, then do not use this tool. 21 | # 22 | # You are encouraged to send comments, improvements or suggestions to 23 | # me at dns-grind@pentestmonkey.net 24 | # 25 | 26 | use strict; 27 | use Net::DNS; 28 | use Socket; 29 | use IO::Handle; 30 | use IO::Select; 31 | use Getopt::Std; 32 | $| = 1; 33 | 34 | my $VERSION = "1.0"; 35 | my $debug = 0; 36 | my @child_handles = (); 37 | my $verbose = 0; 38 | my $max_procs = 25; 39 | my @prefixes = (); 40 | my @suffixes = (); 41 | my $recursive_flag = 1; 42 | my $nameserver = undef; 43 | my $query_timeout = 5; 44 | my $start_time = time(); 45 | my $end_time; 46 | my $kill_child_string = "\x00"; 47 | $SIG{CHLD} = 'IGNORE'; # auto-reap 48 | my %opts; 49 | my $usage=<; 156 | } 157 | 158 | if (defined($suffix_file)) { 159 | open(FILE, "<$suffix_file") or die "ERROR: Can't open prefix file $suffix_file: $!\n"; 160 | @suffixes = map { chomp($_); $_ } ; 161 | } 162 | 163 | if (defined($prefix)) { 164 | push @prefixes, $prefix; 165 | } 166 | 167 | if (defined($suffix)) { 168 | push @suffixes, $suffix; 169 | } 170 | 171 | if (defined($suffix_file) and not @suffixes) { 172 | print "ERROR: Suffix file $suffix_file was empty\n"; 173 | exit 1; 174 | } 175 | 176 | if (defined($prefix_file) and not @prefixes) { 177 | print "ERROR: Suffix file $prefix_file was empty\n"; 178 | exit 1; 179 | } 180 | 181 | print "Starting dns-grind v$VERSION ( http://pentestmonkey.net/tools/dns-grind )\n"; 182 | print "\n"; 183 | print " ----------------------------------------------------------\n"; 184 | print "| Scan Information |\n"; 185 | print " ----------------------------------------------------------\n"; 186 | print "\n"; 187 | print "Resolver Processes ..... $max_procs\n"; 188 | print "Records file ........... $file\n" if defined($file); 189 | print "Suffixes file .......... $suffix_file\n" if defined($suffix_file); 190 | print "Prefixes file .......... $prefix_file\n" if defined($prefix_file); 191 | print "Suffix count ........... " . scalar(@suffixes) . "\n" if @suffixes; 192 | print "Prefix count ........... " . scalar(@prefixes) . "\n" if @prefixes; 193 | print "Query timeout .......... $query_timeout secs\n"; 194 | print "Recursive queries ...... " . ($recursive_flag ? "On" : "Off") . "\n"; 195 | if (defined($nameserver)) { 196 | print "DNS Server ............. $nameserver\n"; 197 | } else { 198 | print "DNS Server ............. Determine by OS\n"; 199 | } 200 | print "\n"; 201 | print "######## Scan started at " . scalar(localtime()) . " #########\n"; 202 | 203 | # Create DNS resolver object 204 | my $res; 205 | if (defined($nameserver)) { 206 | $res = Net::DNS::Resolver->new(recurse => $recursive_flag, nameservers => [$nameserver]); 207 | } else { 208 | $res = Net::DNS::Resolver->new(recurse => $recursive_flag); 209 | } 210 | 211 | 212 | # Spawn off correct number of children 213 | foreach my $proc_count (1..$max_procs) { 214 | socketpair(my $child, my $parent, AF_UNIX, SOCK_STREAM, PF_UNSPEC) or die "socketpair: $!"; 215 | $child->autoflush(1); 216 | $parent->autoflush(1); 217 | 218 | # Parent executes this 219 | if (my $pid = fork) { 220 | close $parent; 221 | print "[Parent] Spawned child with PID $pid to do resolving\n" if $debug; 222 | push @child_handles, $child; 223 | 224 | # Chile executes this 225 | } else { 226 | close $child; 227 | while (1) { 228 | my $timed_out = 0; 229 | 230 | # Read domain from parent 231 | my $domain = <$parent>; 232 | next unless defined($domain); 233 | chomp($domain); 234 | 235 | # Exit if told to by parent 236 | if ($domain eq $kill_child_string) { 237 | print "[Child $$] Exiting\n" if $debug; 238 | exit 0; 239 | } 240 | 241 | # Do query with timeout 242 | my $query; 243 | eval { 244 | local $SIG{ALRM} = sub { die "alarm\n" }; 245 | alarm $query_timeout; 246 | $query = $res->query($domain, uc($query_type)); 247 | alarm 0; 248 | }; 249 | 250 | if ($@) { 251 | $timed_out = 1; 252 | print "[Child $$] Timeout for $domain\n" if $debug; 253 | } 254 | 255 | my $trace; 256 | if ($debug) { 257 | $trace = "[Child $$] $domain\t"; 258 | } else { 259 | $trace = "$domain\t"; 260 | } 261 | 262 | if ($query and not $timed_out) { 263 | my @results; 264 | 265 | if (uc($query_type) eq "A") { 266 | @results = map { $_->address } grep { $_->type eq 'A' } $query->answer; 267 | } 268 | 269 | if (uc($query_type) eq "NS") { 270 | @results = map { $_->nsdname } grep { $_->type eq 'NS' } $query->answer; 271 | } 272 | 273 | if (uc($query_type) eq "PTR") { 274 | @results = map { $_->ptrdname } grep { $_->type eq 'PTR' } $query->answer; 275 | } 276 | 277 | if (uc($query_type) eq "MX") { 278 | @results = map { $_->exchange } grep { $_->type eq 'MX' } $query->answer; 279 | } 280 | 281 | # print $parent $trace . join(",", map { $_->nsdname } grep { $_->type eq 'NS' } $query->answer) . "\n"; 282 | print $parent $trace . join(",", @results) . "\n"; 283 | } 284 | 285 | if ($timed_out) { 286 | print $parent $trace . "\n"; 287 | } else { 288 | if (!$query) { 289 | print $parent $trace . "\n"; 290 | } 291 | } 292 | 293 | # print "CHILD: Child $$ finished\n"; 294 | } 295 | exit; 296 | } 297 | } 298 | 299 | # Fork once more to make a process that will feed us domains 300 | socketpair(my $get_next_domain, my $parent, AF_UNIX, SOCK_STREAM, PF_UNSPEC) or die "socketpair: $!"; 301 | $get_next_domain->autoflush(1); 302 | $parent->autoflush(1); 303 | 304 | # Parent executes this 305 | if (my $pid = fork) { 306 | close $parent; 307 | 308 | # Chile executes this 309 | } else { 310 | # Generate domains from prefix-suffix pairs and send to parent 311 | foreach my $prefix (@prefixes) { 312 | foreach my $suffix (@suffixes) { 313 | my $domain = $prefix . "." . $suffix; 314 | print "[Domain Generator] Sending $domain to parent\n" if $debug; 315 | print $parent "$domain\n"; 316 | } 317 | } 318 | 319 | # Read domains from file and send to parent 320 | if ($file) { 321 | open (FILE, "<$file") or die "Can't open file $file: $!\n"; 322 | 323 | while () { 324 | my $domain = $_; 325 | chomp($domain); 326 | print "[Domain Generator] Sending $domain to parent\n" if $debug; 327 | print $parent "$domain\n"; 328 | } 329 | } 330 | 331 | exit 0; 332 | } 333 | 334 | # printf "Created %d child processes\n", scalar(@child_handles); 335 | my $s = IO::Select->new(); 336 | my $s_in = IO::Select->new(); 337 | $s->add(@child_handles); 338 | $s_in->add(\*STDIN); 339 | my $timeout = 0; # non-blocking 340 | my $more_domains = 1; 341 | my $outstanding_queries = 0; 342 | my $query_count = 0; 343 | my $result_count = 0; 344 | 345 | # Write to each child process once 346 | writeloop: foreach my $write_handle (@child_handles) { 347 | my $domain = <$get_next_domain>; 348 | if ($domain) { 349 | chomp($domain); 350 | print "[Parent] Sending $domain to child\n" if $debug; 351 | print $write_handle "$domain\n"; 352 | $outstanding_queries++; 353 | } else { 354 | print "[Parent] Quitting main loop. All domains have been read.\n" if $debug; 355 | last writeloop; 356 | } 357 | } 358 | 359 | # Keep reading from child processes until there is nothing 360 | # write to a child only after it has been read from 361 | mainloop: while (1) { 362 | # Wait until there's a child that we can either read from or written to. 363 | my ($rh_aref) = IO::Select->select($s, undef, undef); # blocking 364 | 365 | print "[Parent] There are " . scalar(@$rh_aref) . " children that can be read from\n" if $debug; 366 | 367 | foreach my $read_handle (@$rh_aref) { 368 | # Read from child 369 | chomp(my $line = <$read_handle>); 370 | if ($verbose == 1 or $debug == 1 or not ($line =~ /no result/ or $line =~ //)) { 371 | print "$line\n"; 372 | $result_count++ unless ($line =~ /no result/ or $line =~ //); 373 | } 374 | $outstanding_queries--; 375 | $query_count++; 376 | 377 | # Write to child 378 | my $domain = <$get_next_domain>; 379 | if ($domain) { 380 | chomp($domain); 381 | print "[Parent] Sending $domain to child\n" if $debug; 382 | print $read_handle "$domain\n"; 383 | $outstanding_queries++; 384 | } else { 385 | print "DEBUG: Quitting main loop. All domains have been read.\n" if $debug; 386 | last mainloop; 387 | } 388 | } 389 | } 390 | 391 | # Wait to get replies back from remaining children 392 | my $count = 0; 393 | readloop: while ($outstanding_queries) { 394 | my @ready_to_read = $s->can_read(1); # blocking 395 | foreach my $child_handle (@ready_to_read) { 396 | print "[Parent] Outstanding queries: $outstanding_queries\n" if $debug; 397 | chomp(my $line = <$child_handle>); 398 | if ($verbose == 1 or $debug == 1 or not ($line =~ /no result/ or $line =~ //)) { 399 | print "$line\n"; 400 | $result_count++ unless ($line =~ /no result/ or $line =~ //); 401 | } 402 | print $child_handle "$kill_child_string\n"; 403 | $s->remove($child_handle); 404 | $outstanding_queries--; 405 | $query_count++; 406 | } 407 | } 408 | 409 | # Tell any remaining children to exit 410 | foreach my $handle ($s->handles) { 411 | print "[Parent] Telling child to exit\n" if $debug; 412 | print $handle "$kill_child_string\n"; 413 | } 414 | 415 | # Wait for all children to terminate 416 | while(wait != -1) {}; 417 | 418 | print "######## Scan completed at " . scalar(localtime()) . " #########\n"; 419 | print "$result_count results.\n"; 420 | print "\n"; 421 | $end_time = time(); # Second granularity only to avoid depending on hires time module 422 | my $run_time = $end_time - $start_time; 423 | $run_time = 1 if $run_time < 1; # Avoid divide by zero 424 | printf "%d queries in %d seconds (%0.1f queries / sec)\n", $query_count, $run_time, $query_count / $run_time; 425 | -------------------------------------------------------------------------------- /tlds.txt: -------------------------------------------------------------------------------- 1 | ac 2 | ad 3 | ae 4 | af 5 | ag 6 | ai 7 | al 8 | am 9 | an 10 | ao 11 | aq 12 | ar 13 | as 14 | at 15 | au 16 | aw 17 | ax 18 | az 19 | ba 20 | bb 21 | bd 22 | be 23 | bf 24 | bg 25 | bh 26 | bi 27 | bj 28 | bm 29 | bn 30 | bo 31 | br 32 | bs 33 | bt 34 | bv 35 | bw 36 | by 37 | bz 38 | ca 39 | cc 40 | cd 41 | cf 42 | cg 43 | ch 44 | ci 45 | ck 46 | cl 47 | cm 48 | cn 49 | co 50 | cr 51 | cu 52 | cv 53 | cx 54 | cy 55 | cz 56 | de 57 | dj 58 | dk 59 | dm 60 | do 61 | dz 62 | ec 63 | ee 64 | eg 65 | eh 66 | er 67 | es 68 | et 69 | eu 70 | fi 71 | fj 72 | fk 73 | fm 74 | fo 75 | fr 76 | ga 77 | gb 78 | gd 79 | ge 80 | gf 81 | gg 82 | gh 83 | gi 84 | gl 85 | gm 86 | gn 87 | gp 88 | gq 89 | gr 90 | gs 91 | gt 92 | gu 93 | gw 94 | gy 95 | hk 96 | hm 97 | hn 98 | hr 99 | ht 100 | hu 101 | id 102 | ie 103 | il 104 | im 105 | in 106 | io 107 | iq 108 | ir 109 | is 110 | it 111 | je 112 | jm 113 | jo 114 | jp 115 | ke 116 | kg 117 | kh 118 | ki 119 | km 120 | kn 121 | kp 122 | kr 123 | kw 124 | ky 125 | kz 126 | la 127 | lb 128 | lc 129 | li 130 | lk 131 | lr 132 | ls 133 | lt 134 | lu 135 | lv 136 | ly 137 | ma 138 | mc 139 | md 140 | me 141 | mg 142 | mh 143 | mk 144 | ml 145 | mm 146 | mn 147 | mo 148 | mp 149 | mq 150 | mr 151 | ms 152 | mt 153 | mu 154 | mv 155 | mw 156 | mx 157 | my 158 | mz 159 | na 160 | nc 161 | ne 162 | nf 163 | ng 164 | ni 165 | nl 166 | no 167 | np 168 | nr 169 | nu 170 | nz 171 | om 172 | pa 173 | pe 174 | pf 175 | pg 176 | ph 177 | pk 178 | pl 179 | pm 180 | pn 181 | pr 182 | ps 183 | pt 184 | pw 185 | py 186 | qa 187 | re 188 | ro 189 | rs 190 | ru 191 | rw 192 | sa 193 | sb 194 | sc 195 | sd 196 | se 197 | sg 198 | sh 199 | si 200 | sj 201 | sk 202 | sl 203 | sm 204 | sn 205 | so 206 | sr 207 | st 208 | su 209 | sv 210 | sy 211 | sz 212 | tc 213 | td 214 | tf 215 | tg 216 | th 217 | tj 218 | tk 219 | tl 220 | tm 221 | tn 222 | to 223 | tp 224 | tr 225 | tt 226 | tv 227 | tw 228 | tz 229 | ua 230 | ug 231 | uk 232 | um 233 | us 234 | uy 235 | uz 236 | va 237 | vc 238 | ve 239 | vg 240 | vi 241 | vn 242 | vu 243 | wf 244 | ws 245 | ye 246 | yt 247 | yu 248 | za 249 | zm 250 | zw 251 | aero 252 | biz 253 | cat 254 | com 255 | coop 256 | edu 257 | gov 258 | info 259 | int 260 | jobs 261 | mil 262 | mobi 263 | museum 264 | name 265 | net 266 | org 267 | pro 268 | tel 269 | travel 270 | co.uk 271 | ltd.uk 272 | me.uk 273 | net.uk 274 | org.uk 275 | plc.uk 276 | ac.uk 277 | gov.uk 278 | mod.uk 279 | nhs.uk 280 | police.uk 281 | nic.uk 282 | sch.uk 283 | --------------------------------------------------------------------------------