1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
#!/usr/bin/perl
# coded by epoch.
# use inetd or tcpserver or something else.
# waste of time to do manual sockets for something like this.
# this isn't my baby. you can murder it if you want.
use strict;
#maybe chroot this whoisd?
my $RESDB = "/services/resdb/resdb";
my $HACK=0;
my $QUERY=<stdin>;
$QUERY =~ s/\r\n//g;
$QUERY =~ s/\///g;
if($QUERY eq '') {
printf "%% error. no query. wtf?";
exit 0;
}
my $out;
my $title;
my $value;
my @parts;
my $i;
if($QUERY eq "!!\n") {
$QUERY=<stdin>;
$QUERY =~ s/^!r(.+?)[\/,].*$/\1/;
printf "A500\n"; #fake this I guess. Does it even use that number for anything?
printf "%% Looks like you're trying -A on a BSDian traceroute with this server.\n";
$HACK=1;
}
# ASNs
if($QUERY =~ m/^AS(.+?)$/) {
printf "%% AS section for %s\n", $QUERY;
my $AS=$1;
chdir("$RESDB/db/as") || die "%% error";
if(chdir($AS) || die "%% error") {
foreach(split(/\n/,`grep '' -r .`)) {
$out = $_;
$out =~ s/^\.\///g;
$out =~ m/^(.+?):(.+?)$/;
($title, $value) = ($1, $2);
printf "%-20s %s\n", $title . ":", $value;
if($title eq "owner") {
$QUERY = $value;
}
}
} else {
printf "AS not found.";
}
}
# IPv4 addresses
if($QUERY =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/) {
printf "%% IP section for %s\n", $QUERY unless $HACK;
chdir("$RESDB/db/ip") || die "%% error";
@parts=split(/\./,$QUERY);
for($i=0;$i<scalar(@parts)-1;$i++) {
if(!chdir(sprintf("%02X",$parts[$i]))) {
printf "%-20s %s\n", "error" . ":", "IP not found." unless $HACK;
exit;
}
}
foreach(split(/\n/,`grep '' -r .`)) {
$out = $_;
$out =~ s/^\.\///g;
($title, $value) = split(/:/,$out);
printf "%-20s %s\n", $title . ":", $value unless $HACK;
if($title eq "owner") {
$QUERY = $value;
}
}
}
# if we get here and there's still a . in the query it is probably a domain.
if($QUERY =~ m/\./) {
printf "%% domain section for %s\n", $QUERY;
@parts=split(/\./,$QUERY);
chdir("$RESDB/db/dom") || die "%% error";
for($i=scalar(@parts)-1;$i>scalar(@parts)-3;$i--) {
if(!$parts[$i]) {
printf "%% error";
exit
}
if(!chdir($parts[$i])) {
printf "%-20s %s", "warning" . ":", "domain not found.";
exit;
}
}
foreach(split(/\n/,`grep '' -r .`)) {
$out = $_;
$out =~ s/^\.\///g;
$out =~ m/^(.+?):(.+?)$/;
($title, $value) = ($1, $2);
printf "%-20s %s\n", $title . ":", $value;
if($title eq "owner") {
$QUERY = $value;
}
}
}
# default to assuming it is a name.
printf "%% user section for '%s'\n", $QUERY unless $HACK;
chdir("$RESDB/db/usr") || die "%% error";
if(chdir($QUERY)) {
foreach(split(/\n/,`grep '' -r .`)) {
$out = $_;
$out =~ s/^\.\///g;
$out =~ m/^(.+?):(.+?)$/;
($title, $value) = ($1, $2);
printf "%-20s %s\n", $title . ":", $value unless $HACK;
}
} else {
printf "%-20s missing db/usr file.\n", "warning" . ":" unless $HACK;
}
chdir("$RESDB/db/as") || die "%% error";
foreach(split(/\n/,`grep '^$QUERY\$' */owner | cut -d/ -f1`)) {
$out = $_;
$out =~ s/\n//g;
printf "%-20s AS%s\n", "origin" . ":", $out if $HACK;
printf "%-20s AS%s\n", "origin" . ":", $out unless $HACK;
}
foreach(split(/\n/,`grep -i -e "^$QUERY\$" "$RESDB/db/dom"/*/*/owner`)) {
$out = $_;
$out =~ s/.*\/db\/dom\/(.+?)\/(.+?)\/owner.*/\2\.\1/;
if ($out ne "") { #fix this comparison.
printf "%-20s %s\n", "domain" . ":", $out;
}
}
#printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet";
|
