88 lines
4.0 KiB
Plaintext
88 lines
4.0 KiB
Plaintext
$OpenBSD: patch-lib_Net_DNS_Fingerprint_pm,v 1.1 2013/11/28 15:43:55 giovanni Exp $
|
|
--- lib/Net/DNS/Fingerprint.pm.orig Wed Nov 27 13:30:40 2013
|
|
+++ lib/Net/DNS/Fingerprint.pm Wed Nov 27 13:32:23 2013
|
|
@@ -52,7 +52,7 @@ my $ignore_recurse = 0;
|
|
my @qy = (
|
|
"0,QUERY,0,0,0,0,0,0,NOERROR,0,0,0,0", #qy0
|
|
"0,QUERY,0,0,0,1,0,1,NOERROR,0,0,0,0", #qy1
|
|
- "0,NS_NOTIFY_OP,0,1,1,0,1,1,NOTIMP,0,0,0,0", #qy2
|
|
+ "0,NOTIFY,0,1,1,0,1,1,NOTIMP,0,0,0,0", #qy2
|
|
"0,IQUERY,0,0,0,1,1,1,NOERROR,0,0,0,0", #qy3
|
|
"0,QUERY,0,0,1,0,0,0,NOERROR,0,0,0,0", #qy4
|
|
"0,QUERY,0,0,1,0,0,0,NOERROR,0,0,0,0", #qy5
|
|
@@ -85,15 +85,15 @@ my @iq = (
|
|
"1,QUERY,0,0,0,0,0,0,NXDOMAIN,1,0,0,0", #iq1
|
|
"1,QUERY,0,0,0,0,0,0,NOERROR,1,0,0,0", #iq2
|
|
"1,QUERY,0,0,0,1,0,0,NOERROR,.+,.+,.+,.+", #iq3
|
|
- "1,NS_NOTIFY_OP,0,0,1,1,0,1,FORMERR,1,0,0,0", #iq4
|
|
- "1,NS_NOTIFY_OP,0,0,1,1,0,0,FORMERR,1,0,0,0", #iq5
|
|
- "1,NS_NOTIFY_OP,0,0,1,1,0,0,REFUSED,1,0,0,0", #iq6
|
|
- "0,NS_NOTIFY_OP,0,1,1,0,1,1,NOTIMP,1,0,0,0", #iq7
|
|
+ "1,NOTIFY,0,0,1,1,0,1,FORMERR,1,0,0,0", #iq4
|
|
+ "1,NOTIFY,0,0,1,1,0,0,FORMERR,1,0,0,0", #iq5
|
|
+ "1,NOTIFY,0,0,1,1,0,0,REFUSED,1,0,0,0", #iq6
|
|
+ "0,NOTIFY,0,1,1,0,1,1,NOTIMP,1,0,0,0", #iq7
|
|
"1,IQUERY,0,0,0,1,0,0,NOTIMP,1,0,0,0", #iq8
|
|
"0,IQUERY,0,0,0,1,1,1,NOERROR,1,0,0,0", #iq9
|
|
"1,QUERY,0,0,1,0,0,0,NOTIMP,1,0,0,0", #iq10
|
|
"0,QUERY,0,0,1,0,0,0,NOERROR,1,0,0,0", #iq11
|
|
- "1,NS_NOTIFY_OP,0,0,1,1,0,0,SERVFAIL,1,0,0,0", #iq12
|
|
+ "1,NOTIFY,0,0,1,1,0,0,SERVFAIL,1,0,0,0", #iq12
|
|
"1,IQUERY,0,0,1,1,0,0,SERVFAIL,1,0,0,0", #iq13
|
|
"1,IQUERY,0,0,1,1,0,0,NOTIMP,0,0,0,0", #iq14
|
|
"1,QUERY,0,0,0,1,0,0,NOTIMP,.+,.+,.+,.+", #iq15
|
|
@@ -406,7 +406,7 @@ my @ruleset = (
|
|
|
|
my @qy_old = (
|
|
"0,IQUERY,0,0,1,0,0,0,NOERROR,0,0,0,0",
|
|
- "0,NS_NOTIFY_OP,0,0,0,0,0,0,NOERROR,0,0,0,0",
|
|
+ "0,NOTIFY,0,0,0,0,0,0,NOERROR,0,0,0,0",
|
|
"0,QUERY,0,0,0,0,0,0,NOERROR,0,0,0,0",
|
|
"0,IQUERY,0,0,0,0,1,1,NOERROR,0,0,0,0",
|
|
"0,QUERY,0,0,0,0,0,0,NOTIMP,0,0,0,0",
|
|
@@ -430,20 +430,20 @@ my @iq_old = (
|
|
"1,QUERY,1,0,1,0,0,0,NOTIMP,1,0,0,0",
|
|
"1,QUERY,0,0,0,0,0,0,NOTIMP,0,0,0,0",
|
|
"1,IQUERY,0,0,1,1,0,0,FORMERR,1,0,0,0", # iq_old10
|
|
- "1,NS_NOTIFY_OP,0,0,0,0,0,0,FORMERR,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,0,0,0,NOTIMP,0,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,0,0,0,NOTIMP,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,0,0,0,NXDOMAIN,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,0,0,0,REFUSED,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,0,0,0,SERVFAIL,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,1,0,0,FORMERR,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,1,0,0,NOTIMP,0,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,1,0,0,NOTIMP,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,0,0,0,1,0,0,REFUSED,1,0,0,0", # iq_old20
|
|
- "1,NS_NOTIFY_OP,0,0,0,1,0,0,SERVFAIL,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,1,0,0,0,0,0,NOTIMP,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,0,0,0,FORMERR,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,0,0,0,NOTIMP,0,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,0,0,0,NOTIMP,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,0,0,0,NXDOMAIN,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,0,0,0,REFUSED,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,0,0,0,SERVFAIL,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,1,0,0,FORMERR,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,1,0,0,NOTIMP,0,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,1,0,0,NOTIMP,1,0,0,0",
|
|
+ "1,NOTIFY,0,0,0,1,0,0,REFUSED,1,0,0,0", # iq_old20
|
|
+ "1,NOTIFY,0,0,0,1,0,0,SERVFAIL,1,0,0,0",
|
|
+ "1,NOTIFY,1,0,0,0,0,0,NOTIMP,1,0,0,0",
|
|
"1,QUERY,1,0,0,0,0,0,NOTIMP,1,0,0,0",
|
|
- "1,NS_NOTIFY_OP,1,0,0,0,0,0,SERVFAIL,1,0,0,0",
|
|
+ "1,NOTIFY,1,0,0,0,0,0,SERVFAIL,1,0,0,0",
|
|
"1,IQUERY,0,0,0,0,1,1,NOTIMP,0,0,0,0",
|
|
"1,IQUERY,0,0,0,0,0,0,NOTIMP,0,0,0,0",
|
|
"1,IQUERY,0,0,1,1,1,1,FORMERR,0,0,0,0",
|
|
@@ -2171,10 +2171,6 @@ sub fp2header {
|
|
$header->ad(shift @list);
|
|
$header->cd(shift @list);
|
|
$header->rcode(shift @list);
|
|
- $header->qdcount(shift @list);
|
|
- $header->ancount(shift @list);
|
|
- $header->nscount(shift @list);
|
|
- $header->arcount(shift @list);
|
|
}
|
|
|
|
sub probe {
|