repo: resdb
action: commit
revision: 
path_from: 
revision_from: 2cce5212e49f7da676670446db8aa4fc176d7f1d:
path_to: 
revision_to:
git.thebackupbox.net
resdb
git clone git://git.thebackupbox.net/resdb
commit 2cce5212e49f7da676670446db8aa4fc176d7f1d
Author: epoch 
Date:   Wed Jun 1 22:24:29 2016 +0000

    added a chan domain. changed some marc stuff. anocheck script for watching for ASN downages.

diff --git a/contrib/anocheck/hand-check.sh b/contrib/anocheck/hand-check.sh
new file mode 100755
index 0000000000000000000000000000000000000000..24dca8fbca59a5b70429776c3694c6188a7d82e9
--- /dev/null
+++ b/contrib/anocheck/hand-check.sh
@@ -0,0 +1,4 @@
+#!/bin/sh
+/usr/local/libexec/bgp-paths.sh 4141 AN_out | tr ' ' '\n' | sort | uniq > /var/cache/anocheck/ASN.$(date +%s)
+ls -rt /var/cache/anocheck/ASN.* | tail -r | tail -n+3 | xargs rm
+ls -rt /var/cache/anocheck/ASN.* | tail -n2 | xargs diff -s
diff --git a/contrib/anocheck/test.sh b/contrib/anocheck/test.sh
new file mode 100755
index 0000000000000000000000000000000000000000..241b34b4feb316c7137c60b83a68bc9e3d860d1e
--- /dev/null
+++ b/contrib/anocheck/test.sh
@@ -0,0 +1,7 @@
+#!/bin/sh
+mkdir -p /var/cache/anocheck
+/usr/local/libexec/bgp-paths.sh 4141 AN_out | tr ' ' '\n' | sort | uniq > /var/cache/anocheck/ASN.$(date +%s)
+ls -rt /var/cache/anocheck/ASN.* | tail -r | tail -n+3 | xargs rm
+ls -rt /var/cache/anocheck/ASN.* | tail -n2 | xargs diff
+#this is nifty for hand-checks
+#ls -rt /var/cache/anocheck/ASN.* | tail -n2 | xargs diff -s
diff --git a/contrib/marc/README b/contrib/marc/README
new file mode 100644
index 0000000000000000000000000000000000000000..e77f12bab234bed38bf9a56ada4574b631ec6183
--- /dev/null
+++ b/contrib/marc/README
@@ -0,0 +1 @@
+make marc
diff --git a/contrib/marc/marc.c b/contrib/marc/marc.c
index a83eb9b02773a4d18d4a1d5983e49d3c3cba1a50..
index ..d46b5764b1eb8e4b9de6e9f313201a81946d19ee 100644
--- a/contrib/marc/marc.c
+++ b/contrib/marc/marc.c
@@ -60,8 +60,14 @@ int marc_decode(unsigned char *data,int from_index,int length) {
    printf("list:\n");
    indent++;
    while(from_index < length) {
+
+// old code. testing 16 bit lengths.
     cur_len=data[from_index+3]+(data[from_index+2]<<1)+(data[from_index+1]<<2)+(data[from_index+0]<<3);
     from_index+=4;
+
+//    cur_len=data[from_index+1]+(data[from_index+0]<<1);
+//    from_index+=2;
+ 
     marc_decode(data,from_index,cur_len);
     from_index+=cur_len;
    }
@@ -153,6 +159,8 @@ void update_message_decode(unsigned char *data,int from_index,int length) {
   for(i=0;i

index 2a2c63a8a2cda3bd2844becd6866d4660634b788..


index ..890d0a487323715518171735a70ac6c0f5f08051 100644


Binary files a/contrib/marc/marcdb and b/contrib/marc/marc.db differ
diff --git a/contrib/marc/pull.sh b/contrib/marc/pull.sh
new file mode 100755
index 0000000000000000000000000000000000000000..4193e211a671b3d710f422cb9fd190aaa75637cb
--- /dev/null
+++ b/contrib/marc/pull.sh
@@ -0,0 +1 @@
+wget 'http://marc.ucis.ano/?get=0&version=3' -O marc.db
diff --git a/contrib/whoisd/whoisd.pl b/contrib/whoisd/whoisd.pl



index 107f7ea0eb8ce28f9ca6bb8b70f6f832128db77a..


index ..60ce11fd14cb5b52bc09e39983826463d57f5834 100755


--- a/contrib/whoisd/whoisd.pl
+++ b/contrib/whoisd/whoisd.pl
@@ -1,8 +1,6 @@
 #!/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.
+# ncat -klp 43 -e ./whoisd.pl
+# use inetd or tcpserver or ncat

 use strict;

@@ -23,6 +21,9 @@ my $value;
 my @value;
 my @parts;
 my $i;
+my $d;
+
+my $user;

 if($QUERY eq "!!\n") {
  $QUERY=;
@@ -32,6 +33,75 @@ if($QUERY eq "!!\n") {
  $HACK=1;
 }

+sub get_user_from_ASN {
+ my $AS=$_[0];
+ my $user;
+ chdir("$RESDB/db/as") || die "%% error";
+ if(chdir($AS) || die "%% error") {
+  open(FILE,"owner") || die "%% ASN not found.";
+  $user=;
+  close(FILE);
+ } else {
+  printf "%% AS not found.";
+ }
+ return $user;
+}
+
+sub get_user_from_IPv4 {
+ my @parts;
+ my $user;
+ chdir("$RESDB/db/ip") || die "%% error";
+ @parts=split(/\./,$_[0]);
+ for($i=0;$i;
+ close(FILE);
+ return $user;
+}
+
+sub get_user_from_domain {
+ my @parts;
+ my $user;
+ my $i;
+ @parts=split(/\./,$_[0]);
+ 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;
+  }
+ }
+ open(FILE,"owner") || die "%% IP's owner not found."; 
+ $user=;
+ close(FILE);
+ return $user;
+}
+
+sub get_user_from_IPv6 {
+ chdir("$RESDB/db/ip6") || die "%% error. no resdb/db/ip6\n";
+ $d=$_[0];
+ print "$d";
+ $d =~ s/[^0-9a-f]//gi;
+ $d =~ tr/a-z/A-Z/;
+ foreach(split(//,$d)) {
+  $d=$_;
+  chdir($d);
+ }
+ open(FILE,"owner") || die "%% IP6's owner not found."; 
+ $user=;
+ close(FILE);
+ return $user;
+}
+
 sub ASN_lookup {
  if($QUERY =~ m/^AS(.+?)$/) {
   printf "%% AS section for %s\n", $QUERY;
@@ -54,81 +124,88 @@ sub ASN_lookup {
  }
 }

-ASN_lookup();

 # 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;$iscalar(@parts)-3;$i--) {
-  if(!$parts[$i]) {
-   printf "%% error";
-   exit
-  }
-  if(!chdir($parts[$i])) {
-   printf "%-20s %s", "warning" . ":", "domain not found.";
-   exit;
+sub domain_lookup {
+ 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;
+  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;
+   }
   }
  }
 }

-#ipv6 addresses
-#if($QUERY =~ m/:/) {#close enough?
-# $QUERY =~ s/://g;
-# $QUERY =~ s/[^a-fA-F0-9]//g;
-# $QUERY = uc($QUERY);
-# chdir("$RESDB/db/ip6");
-# foreach(split(//,$QUERY)) {
-#  chdir($_);;
-# }
-# 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;
-#  }
-# } 
-#}

+#IPv6 addresses
+sub IPv6_lookup {
+ if($QUERY =~ m/:/) {#close enough?
+  $QUERY =~ s/://g;
+  $QUERY =~ s/[^a-fA-F0-9]//g;
+  $QUERY = uc($QUERY);
+  chdir("$RESDB/db/ip6");
+  foreach(split(//,$QUERY)) {
+   chdir($_);;
+  }
+  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.
+sub user_lookup {
  printf "%% user section for '%s'\n", $QUERY unless $HACK;

  chdir("$RESDB/db/usr") || die "%% error";
@@ -173,3 +250,30 @@ if($QUERY =~ m/\./) {
   ASN_lookup();
  }
  #printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet";
+}
+
+if($QUERY =~ m/^AS(.+?)$/) {
+ $user=get_user_from_ASN($1);
+}
+elsif($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]?)$/) {
+ $user=get_user_from_IPv4($QUERY);
+}
+elsif($QUERY =~ m/\./) {
+ $user=get_user_from_domain($QUERY);
+}
+elsif($QUERY =~ m/:/) {
+ $user=get_user_from_IPv6($QUERY);
+}
+else {
+ $user=$QUERY;
+}
+$user =~ s/[\r\n]//g;
+printf "%%%% found user: %s for the query.\n", $user;
+
+#k. we got user... now to find stuff belonging to that user.
+
+#ASN_lookup($user);
+#IPv4_lookup($user);
+#domain_lookup($user);
+#IPv6_lookup($user);
+user_lookup();
diff --git a/db/as/3232/owner b/db/as/3232/owner
new file mode 100644
index 0000000000000000000000000000000000000000..6dda02ed260c59b3dc4e5ae3236ae7a8c2e2ba50
--- /dev/null
+++ b/db/as/3232/owner
@@ -0,0 +1 @@
+rjeli
diff --git a/db/dom/ano/epoch/ns/ns.epoch.ano b/db/dom/ano/ch/ns/ns1.ch.ano
similarity index 100%
rename from db/dom/ano/epoch/ns/ns.epoch.ano
rename to db/dom/ano/ch/ns/ns1.ch.ano
diff --git a/db/dom/ano/ch/ns/ns2.ch.ano b/db/dom/ano/ch/ns/ns2.ch.ano
new file mode 100644
index 0000000000000000000000000000000000000000..542e31ae684251b224212dd67ab6527e4df635e2
--- /dev/null
+++ b/db/dom/ano/ch/ns/ns2.ch.ano
@@ -0,0 +1 @@
+fd63:1e39:6f73:2929::1
diff --git a/db/dom/ano/ch/owner b/db/dom/ano/ch/owner
new file mode 100644
index 0000000000000000000000000000000000000000..3aea3d0353bcf93e1b8f067134bafa4066a2ef11
--- /dev/null
+++ b/db/dom/ano/ch/owner
@@ -0,0 +1 @@
+epoch
diff --git a/db/dom/ano/whois/ns/ns.whois.ano b/db/dom/ano/whois/ns/ns.whois.ano
deleted file mode 100644
index cb39eef853663887ebbcebd551165671baabcdc6..0000000000000000000000000000000000000000
--- a/db/dom/ano/whois/ns/ns.whois.ano
+++ /dev/null
@@ -1 +0,0 @@
-1.41.41.1
diff --git a/db/ip/01/20/20/cidr b/db/ip/01/20/20/cidr
new file mode 100644
index 0000000000000000000000000000000000000000..18d38719b9b26682462f84bfcf3f6a2de9f1d604
--- /dev/null
+++ b/db/ip/01/20/20/cidr
@@ -0,0 +1 @@
+1.32.32.0/24
diff --git a/db/ip/01/20/20/ns/ns1.rjeli.ano b/db/ip/01/20/20/ns/ns1.rjeli.ano
new file mode 100644
index 0000000000000000000000000000000000000000..e8024b1577433433ed1df80d043066261f73c43e
--- /dev/null
+++ b/db/ip/01/20/20/ns/ns1.rjeli.ano
@@ -0,0 +1 @@
+1.32.32.1
diff --git a/db/ip/01/20/20/owner b/db/ip/01/20/20/owner
new file mode 100644
index 0000000000000000000000000000000000000000..6dda02ed260c59b3dc4e5ae3236ae7a8c2e2ba50
--- /dev/null
+++ b/db/ip/01/20/20/owner
@@ -0,0 +1 @@
+rjeli
diff --git a/db/usr/epoch/pgp b/db/usr/epoch/pgp
deleted file mode 100644
index d0283e85029118076cb20006c08da2b912c18a5a..0000000000000000000000000000000000000000
--- a/db/usr/epoch/pgp
+++ /dev/null
@@ -1,15 +0,0 @@
-Type Bits/KeyID    Date       User ID
-pub  1024/55C8CE2D 2014/10/14 epoch 
-
------BEGIN PGP PUBLIC KEY BLOCK-----
-Version: 2.6.3ia
-
-mQCNA1Q8ipIAAAEEALbXggiUagqYBmFVgJwBdEvTcGwe7xevHc4SAYHnTg/5SwlT
-WlHqXY+RB64aPBnun4Q2AUgX8jTJX7TSrN4yNRyiwLCf4ViiHIJmmiPuom7qOw2E
-ix0pkj4wqglg2QIV5mAYsM9Z7g+zBQKjiF3ynS+R09WQ3IyM6k/37rtVyM4tAAUR
-tCFlcG9jaCA8ZXBvY2hAaGFja2luZy5hbGxvd2VkLm9yZz6JAJUDBRBUPIqST/fu
-u1XIzi0BARdGBACeESKUtfeLeDY+vKeKuJhqP5vUGydYeXTDQ6aRoE0U8IOtjemo
-+7ZTV/WlxD3rM7AzSBoSuV2HvVb3L3pzeUrBcDCnmQ2svzGjRaMLX9QLqeojaNXb
-fGQp4hFblNzycPIqM8F14es+DCIYBtPzrz1SrodXuxmox6cBWuHfDC494g==
-=9EHH
------END PGP PUBLIC KEY BLOCK-----



-----END OF PAGE-----