August 2009
Beginner
298 pages
9h 5m
English
Content preview from Hacking: The Next GenerationBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Appendix B. Cache_Snoop.pl
Cache_snoop.pl is a script to aid in exploiting DNS servers that are susceptible to DNS cache snooping. The script enumerates a list of domain names, obtained from a text file, and verifies whether the remote DNS server contains a record for any given domain name. In addition, the script compares the TTL value obtained from the authoritative name server to see when the record was originally requested.
#!/usr/bin/perl # cache_snoop.pl # Developed by: Brett Hardin $version = "1.0"; use Getopt::Long; my $options = GetOptions ( "help" => \$help, "save" => \$save, "dns=s" => \$dns_server, "ttl" => \$ttl_option, "queries=s" => \$queries ); if($help ne "") { &Help; } if($dns_server eq "") { die "Usage: cache_snoop.pl -dns <DNS IP> -queries <QUERY FILE>\n"; } open(FILE, $queries) or die "Usage: cache_snoop.pl -dns <DNS IP> -queries <QUERY FILE>\n"; @sites = <FILE>; #FIRST RUN IS FOR FINDING OUT DEFAULT TTL if($ttl_option ne "") { print "Finding Default TTL's...\n"; &default_TTL; } for $site (@sites) { chomp($site); $default_TTL = $TTL_list{$site}; if($site =~ /^\#/) { print $site . "\n"; next; } if($site =~ /^$/) { print "\n"; next;} $results = `dig \@$dns_server $site A +norecurse`; if ($results =~ /ANSWER: 0,/) { print "[NO] " . $site . " not visited\n"; } else { @edited_result = split(/\n/, $results); @greped_result = grep(/^$site\./, @edited_result); @A_Broke = split(/\s+/, $greped_result[0]); $TTL = $A_Broke[1]; print "[YES] " . $site . " ($TTL"; if($ttl_option ...Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.