Bitcoin rules

[Henrik K]

I wonder who's going to be the first to offer public bitcoin DNS blacklist,
I could make plugin for it. :-)

In the meantime, here's something to try..

./btcabuse.pl >btcabuse.cf.tmp && mv -f btcabuse.cf.tmp btcabuse.cf

====================================
#!/usr/bin/perl -w

use strict;
use JSON;
use LWP::UserAgent;

my $url = 'http://www.bitcoinabuse.com/api/reports/distinct';
my $ua = LWP::UserAgent->new(
    keep_alive => 1, agent => 'Wget/1.17.1 (linux-gnu)');
my $json;
my %ids;

sub parse_rule {
    my $id = $_[0]->{address};
    return if $id !~ /^\w{26,35}$/;
    return if defined $ids{$id};
    $ids{$id} = 1;
    my $len = 8;
    my $idshort = uc(substr($id, 0, $len));
    while (defined $ids{$idshort}) {
        $idshort = uc(substr($id, 0, ++$len));
    }
    $ids{$idshort} = 1;
    my $i = $id =~ /^bc1/i ? 'i' : '';
    print "body BTC_$idshort /$id/$i\n";
    print "describe BTC_$idshort https://www.bitcoinabuse.com/reports/$id\n";;
    print "score BTC_$idshort 5\n";
    print "priority BTC_$idshort 2\n";
}

for (my $i = 20; $i; $i--) {
    my $r = $ua->get($url);
    die $r->status_line unless $r->is_success;
    eval { $json = decode_json($r->decoded_content); }
        or die "JSON parse failed: $@\n";
    die unless $json->{data};
    parse_rule($_) foreach (@{$json->{data}});
    last unless $json->{next_page_url};
    $url = $json->{next_page_url};
    sleep(1);
}
====================================